H Debug                                                                                                
     D/COPY QSYSINC/QRPGLESRC,QUSEC                                                                         
                                                                                                            
      *Convert Edit Code (QECCVTEC) API                                                                     
     D EdtMsk          PR                  ExtPgm( 'QECCVTEC' )                                             
     D  EdtMask                     256                                                                     
     D  EdtMasklen                   10i 0                                                                  
     D  RcvVarLen                    10i 0                                                                  
     D  ZroBalFilc                    1                                                                     
     D  EdtCde                        1                                                                     
     D  CurId                         1                                                                     
     D  SrcVarPrc                    10i 0                                                                  
     D  SrcDecPos                    10i 0                                                                  
     D  Error                        16                                                                     
                                                                                                            
      *Edit (QECEDT) API                                                                                    
     D Edit            PR                  ExtPgm( 'QECEDT' )                                               
     D  RcvVar                      256                                                                     
     D  RcvVarLen                    10i 0                                                                  
     D  SrcVar                       30                                                                     
     D  SrcVarCls                    10                                                                     
     D  SrcVarPrc                    10i 0                                                                  
     D  EdtMask                     256                                                                     
     D  EdtMaskLen                   10i 0                                                                  
     D  ZroBalFilc                    1                                                                     
     D  Error                        16                                                                     
                                                                                                            
      *                                                                                                     
     D RcvVar          S            256                                                                     
     D RcvVarLen       S             10i 0 inz(256)                                                         
     D SrcVar          S             30                                                                     
     D SrcVarCls       S             10                                                                     
      *                                                                                                     
     D EdtMask         S            256                                                                     
     D EdtMasklen      S             10i 0                                                                  
     D ZroBalFilc      S              1                                                                     
     D SrcVarPrc       S             10i 0                                                                  
     D EdtCde          S              1                                                                     
     D CurId           S              1                                                                     
     D SrcDecPos       S             10i 0                                                                  
      *                                                                                                     
     C     *entry        plist                                                                              
     C                   parm                    SrcVar                                                     
     C                   parm                    SrcVarCls                                                  
     C                   parm                    EdtCde                                                     
     C                   parm                    CurId                                                      
     C                   parm                    SrcVarPrc                                                  
     C                   parm                    SrcDecPos                                                  
     C                   parm                    RcvVar                                                     
      *                                                                                                     
                                                                                                            
     C                   Z-ADD     16            QUSBPRV                                                    
                                                                                                            
     C                   CallP     EdtMsk( EdtMask       :                                                  
     C                                     EdtMaskLen    :                                                  
     C                                     RcvVarLen     :                                                  
     C                                     ZroBalFilc    :                                                  
     C                                     EdtCde        :                                                  
     C                                     CurId         :                                                  
     C                                     SrcVarPrc     :                                                  
     C                                     SrcDecPos     :                                                  
     C                                     QUSEC         )                                                  
                                                                                                            
     C                   CallP     Edit( RcvVar          :                                                  
     C                                   RcvVarLen       :                                                  
     C                                   SrcVar          :                                                  
     C                                   SrcVarCls       :                                                  
     C                                   SrcVarPrc       :                                                  
     C                                   EdtMask         :                                                  
     C                                   EdtMaskLen      :                                                  
     C                                   ZroBalFilC      :                                                  
     C                                   QUSEC            )                                                 
                                                                                                            
                                                                                                            
     C                   Move      '1'           *InLr