H DEBUG DFTNAME(SQLPRINT) DATEDIT(*YMD/)                                                       
     F********** SQL 担当者マスター一覧表 *****************************                             
     FQPRINT    O    F  132        PRINTER OFLIND(*INOF)                                            
     F                                     FORMLEN(66)                                              
     F                                     FORMOFL(62)                                              
     F*****************************************************************                             
      *[ COMPILE ]                                                                                  
      * CRTSQLRPGI QTEMP/SQLPRINT SRCFILE(QTRSRC/QRPGLESRC) COMMIT(*NONE)                           
      *                     OBJTYPE(*MODULE) OUTPUT(*PRINT)                                         
      * CRTPGM     QTROBJ/SQLPRINT MODULE(QTEMP/SQLPRINT) ACTGRP(*NEW) AUT(*ALL)                    
      *                                                                                             
      *[ 実行 ]                                                                                     
      *  CALL QTROBJ/SQLPRINT                                                                       
                                                                                                    
     D HDR             S             32    DIM(1) CTDATA PERRCD(1)               見出し             
     D LIN             S              1    DIM(132)                                                 
     D KENSU           S              4S 0                                                          
     D TBCODE_B        S              2A                                                            
     D*( データ・ベース外部データ構造 )                                                             
     D FMT001        E DS                  EXTNAME(TANTOM)                                          
     D FMT002        E DS                  EXTNAME(BUKAM)                                           
     D RCDDTA          DS                  OCCURS(9999)                                             
     D  VAR1                   1   1024                                                             
     D N               S              4B 0                                                          
     C******************************************************                                        
     C*    SQL 文のカーソルの前準備                                                                 
     C******************************************************                                        
     C* SELECT 文によってカーソル C1 を用意                                                         
     C/EXEC SQL DECLARE C1 CURSOR FOR                                                               
     C+  SELECT TACODE, TTNAMJ, TBCODE, TTNAM, BKNAME                                               
     C+         FROM QTRFIL/TANTOM, QTRFIL/BUKAM                                                    
     C+         WHERE TBCODE = BKCODE                                                               
     C+         ORDER BY TBCODE, TACODE                                                             
     C/END-EXEC                                                                                     
     C*  カーソルをオープン                                                                         
     C/EXEC SQL OPEN C1                                                                             
     C/END-EXEC                                                                                     
     C******************************************************                                        
     C*            明  細  演  算                                                             
     C******************************************************                                        
     C/EXEC SQL WHENEVER NOT FOUND GOTO EOF                                                         
     C/END-EXEC                                                                                     
     C     1             DO        *HIVAL        N                                                  
     C     N             OCCUR     RCDDTA                                                           
     C/EXEC SQL                                                                                     
     C+   FETCH C1 INTO :TACODE, :TTNAMJ, :TBCODE, :TTNAM, :BKNAME                                  
     C/END-EXEC                                                                                     
     C*( 明細印刷 )                                                                                 
     C*    TACODE        CAT(P)    TTNAMJ:0      RCDDTA                                             
     C                   MOVEL(P)  TACODE        RCDDTA                                             
     C                   CAT       TTNAMJ:0      RCDDTA                                             
     C/EXEC SQL SET RESULT SETS ARRAY :RCDDTA FOR :N ROWS                                           
     C/END-EXEC                                                                                     
     C*------------------------------------------------------------------                           
     C                   SETON                                        42                            
     C                   EXSR      OUTPUT                                                           
     C*------------------------------------------------------------------                           
     C                   ADD       1             KENSU                                              
     C                   ENDDO                                                                      
     C     EOF           TAG                                                                        
     C*  カーソルをクローズ                                                                         
     C/EXEC SQL CLOSE C1                                                                            
     C/END-EXEC                                                                                     
     C     END           TAG                                                                        
     C*------------------------------------------------------------------                           
     C                   SETON                                        49                            
     C                   EXSR      OUTPUT                                                           
     C*------------------------------------------------------------------                           
     C                   SETON                                        LR                            
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期のみの実行                                                                             
     C                   CLEAR                   FMT001                                             
     C                   MOVEA     *ALL'-'       LIN                                                
     C     INZEND        ENDSR                                                                      
     C******************************************************                                        
     C     OUTPUT        BEGSR                                                                      
     C******************************************************                                        
     C     TBCODE        IFNE      TBCODE_B                                                         
     C                   SETOFF                                       40                            
     C                   ENDIF                                                                      
     C  N40              SETON                                        4041                          
     C                   EXCEPT                                                                     
     C   OF              SETOFF                                       40OF                          
     C                   SETOFF                                       414243                        
     C                   SETOFF                                       444546                        
     C                   SETOFF                                       474849                        
     C                   MOVE      TBCODE        TBCODE_B                                           
     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                                                                                             
 担当者一覧表