H DFTNAME(TESTPRT2) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     F**********  売掛元帳の印刷 **************************************                             
     FTESTPRTF2 O    E             PRINTER                                                          
     F*****************************************************************                             
     D KENSU           S              4S 0 INZ(10)                                                  
     D N               S              4S 0                                                          
     D DENNO           S              9S 0 INZ(900001)                                              
                                                                                                    
     D DATEDS          DS                                                                           
     D  CENTRY                 1      2S 0                                                          
     D  DATE6                  2      8S 0                                                          
     D  YY4                    1      4A                                                            
     D  MM                     5      6A                                                            
     D  DD                     7      8A                                                            
     D  YYMM                   3      6A                                                            
                                                                                                    
     D TIMEDS          DS                                                                           
     D  CURTIME                1      6S 0                                                          
     D  HOUR                   1      2A                                                            
     D  MINUTE                 3      4A                                                            
     D  SECOND                 5      6A                                                            
                                                                                                    
     D* ＬＩＢ名付きＰＧＭ名                                              *                         
     D TITLE           C                   CONST(' 得意先別売掛元帳 ')                              
     D TKNAME          C                   CONST(' ごまアザラシ商会 ')                              
      *( 前月残 )                                                                                   
     C     1             DO        KENSU         N                                                  
     C                   MOVE      DENNO         WLD202                                             
      *( 売上 )                                                                                     
     C                   EVAL      WLD204 = N * 10000                                               
      *( 消費税 )                                                                                   
     C                   EVAL      WLD206 = WLD204 * 0.05                                           
      *( 入金 )                                                                                     
     C     N             IFEQ      3                                                                
     C     N             OREQ      6                                                                
     C     N             OREQ      9                                                                
     C     N             MULT      10000         WLD205                                             
     C                   ADD       100000        WLD205                                             
     C                   ELSE                                                                       
     C                   Z-ADD     0             WLD205                                             
     C                   ENDIF                                                                      
      *( 残高 )                                                                                     
     C     N             IFEQ      1                                                                
      /FREE                                                                                         
        WLD207 = WLD101 + WLD204 - WLD205 + WLD206;                                                 
      /END-FREE                                                                                     
     C                   ELSE                                                                       
      /FREE                                                                                         
        WLD207 = WLD207 + WLD204 - WLD205 + WLD206;                                                 
      /END-FREE                                                                                     
     C                   ENDIF                                                                      
     C*( 明細印刷 )                                                                                 
     C                   Z-ADD     UDATE         WLD201                                             
     C                   SETON                                        12                            
     C*----------------------------------------------------+                                        
     C                   SETON                                        42        |                   
     C                   EXSR      OUTPUT                                       | 明細印刷          
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       12                            
      *( 累計 )                                                                                     
     C                   ADD       WLD204        WLT104                                             
     C                   ADD       WLD205        WLT105                                             
     C                   ADD       WLD206        WLT106                                             
     C                   ADD       WLD207        WLT107                                             
      *                                                                                             
     C                   ADD       1             WLPAGE                                             
     C                   ADD       1             DENNO                                              
     C                   ENDDO                                                                      
     C*( T-LR 最終合計 )                                                                            
     C*----------------------------------------------------+                                        
     C                   SETON                                        49        |                   
     C                   EXSR      OUTPUT                                       | 合計印刷          
     C*----------------------------------------------------+                                        
     C                   SETON                                        LR                            
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C                   Z-ADD     UDATE         DATE6                                              
     C                   TIME                    CURTIME                                            
      *( #HED1 )                                                                                    
     C*                  MOVE      YYMM          WLHD01                                             
      *( #DTL1 )                                                                                    
     C                   Z-ADD     1             WLPAGE                                             
     C*                  MOVEL(P)  TITLE         WLTITL                                             
     C                   MOVE      '01'          WLHD02                                             
     C                   MOVE      '11'          WLHD03                                             
     C                   MOVE      '21'          WLHD04                                             
     C                   MOVEL(P)  TKNAME        WLHD05                                             
      *( #DTL1 )                                                                                    
     C                   Z-ADD     123000        WLD101                                             
      *( #DTL2 )                                                                                    
     C                   Z-ADD     180813        WLD201                                             
     C                   MOVE      '01'          WLD203                                             
      *( #TTL  )                                                                                    
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     OUTPUT        BEGSR                                                                      
     C******************************************************                                        
     C  N40              SETON                                        4041                          
     C   41              WRITE     #HED1                                                            
     C   41              WRITE     #DTL1                                                            
     C   42              WRITE     #DTL2                                                            
     C   49              WRITE     #TTL                                                             
     C   OF              SETOFF                                       40OF                          
     C                   SETOFF                                       414243                        
     C                   SETOFF                                       444546                        
     C                   SETOFF                                       474849                        
     C                   ENDSR