H DFTNAME(TANPRT) DATEDIT(*YMD/)                                                               
     F**********  担当者マスター一覧表 *************************************                        
     FTANTOM    IP   E           K DISK                                                             
     FBUKAM     IF   E           K DISK                                                             
     FQPRINT    O    F  132        PRINTER OFLIND(*INOF)                                            
     F                                     FORMLEN(66)                                              
     F                                     FORMOFL(62)                                              
     F**********************************************************************                        
                                                                                                    
      *[ COMPILE ]                                                                                  
      * CRTRPGMOD  OBJ(QTEMP/TANPRINT)   SRCFILE(QTRSRC/QRPGLESRC)                                  
      * DBGVIEW(*SOURCE) AUT(*ALL)                                                                  
      * CRTPGM PGM(QTROBJ/TANPRINT)    MODULE(QTEMP/TANPRINT) ACTGRP(*NEW)                          
      *        AUT(*ALL)                                                                            
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2020/04/04 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D HDR             S             32    DIM(1) CTDATA PERRCD(1)               見出し             
     D LIN             S              1    DIM(132)                                                 
     D KENSU           S              4S 0                                                          
                                                                                                    
     I@TANTOM       01                                                                              
     I                                          TBCODE        L1                                    
                                                                                                    
     C******************************************************                                        
     C     *INL1         IFEQ      *ON                                          *INL1               
     C******************************************************                                        
     C                   SETOFF                                       99                            
     C     TBCODE        CHAIN     BUKAM                              99                            
     C                   ENDIF                                                  *INL1               
     C******************************************************                                        
     C*            明　　細　　演　　算                                                             
     C******************************************************                                        
     C*( 明細印刷 )                                                                                 
     C*-------------------------------------------------------------------------+                   
     C                   SETON                                        42        |                   
     C                   EXSR      OUTPUT                                       |                   
     C*-------------------------------------------------------------------------+                   
     C                   ADD       1             KENSU                           件数               
      *                                                                                             
     C*-------------------------------------------------------------------------+                   
     CL1                 SETON                                        LR49      |                   
     CL1                 EXSR      OUTPUT                                       |                   
     C*-------------------------------------------------------------------------+                   
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C                   MOVEA     *ALL'-'       LIN                                                
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     OUTPUT        BEGSR                                                                      
     C******************************************************                                        
     C  N40              SETON                                        4041                          
     C                   EXCEPT                                                                     
     C   OF              SETOFF                                       40OF                          
     C                   SETOFF                                       414243                        
     C                   SETOFF                                       444546                        
     C                   SETOFF                                       474849                        
     C                   ENDSR                                                                      
     OQPRINT    E    41                     2 06                                                    
     O                       UDATE         Y      8                                                 
     O                                           14 ' 作成 '                                        
     O                       HDR(1)              82                                                 
     O                                          128 'PAGE.'                                         
     O                       PAGE          Z    131                                                 
     O          E    41                     1                                                       
     O                                           12 ' 部課コード '                                  
     O                       TBCODE              18                                                 
     O                                           24 ' 部課名 '                                      
     O                       BKNAME              36                                                 
     O          E    41                     1                                                       
     O                       LIN                132                                                 
     O          E    41                     1                                                       
     O                                           14 ' 担当者コード '                                
     O                                           24 ' 担当者名 '                                    
     O                                           44 ' 略名 '                                        
     O          E    41                     1                                                       
     O                       LIN                132                                                 
     O          E    42                     2                                                       
     O                       TACODE               5                                                 
     O                       TTNAMJ              36                                                 
     O                       TTNAM               46                                                 
     O          E    49                     1                                                       
     O                                           40 ' 処理件数 '                                    
     O                                           57 '. . . . . . . . .'                             
     O                       KENSU         2     65                                                 
**  HDR                                                                                             
 担当者一覧表