H DFTNAME(PGM108) DATEDIT(*YMD/) BNDDIR('QC2LE')                                               
     F**********  部課マスター一覧表 ***************************************                        
     FBUKAM     IF   E           K DISK                                                             
     FPGM108P   O    E             PRINTER EXTDESC('QTROBJ/PGM108P')                                
     F                                     EXTFILE(*EXTDESC)                                        
     F**********************************************************************                        
      *    QTRSRC/QRPGLESRC(PGM108)                                                                 
      *     使用目的    :  一覧表印刷 (*REPORT)                                                     
      *     作成日      :  2017/08/18         18:55:30                                              
      *     作成者      :  QTR                                                                      
                                                                                                    
     D LINE            S              1    DIM(132)                                                 
     D AR              S              1    DIM(80)                                                  
     D SAVDTA          S              1    DIM(1024)                             SAVE-ｺﾞｰn          
     D STRGYO          S              2S 0 INZ(6)                                                   
     D GYOSU           S              3S 0                                                          
     D ENDRRN          S              3S 0                                                          
     D SFLPAG          S              2S 0 INZ(15)                                                  
     D SFLSIZ          S              3S 0 INZ(16)                                                  
     D LINE1           S            132A                                                            
     D LINE2           S            132A                                                            
     D TITLE_          C                   CONST(' 部品マスター一覧表 ')                            
                                                                                                    
     D SAVEDS        E DS                  EXTNAME(JUCHU)                                           
     D  DSPDTA                 1   1024                                                             
     D                                     DIM(1024)                             入力 ｺﾞｰn          
                                                                                                    
     D*( WORK 日付 YYMMDD ｺﾞｰn 構造  )                                                              
     D DATEDS          DS                                                                           
     D  SRY                    1      2  0                                                          
     D  SRYMD                  1      8  0                                                          
     D  YYMMDD                 3      8  0                                                          
     D  YYMM                   3      6  0                                                          
     D  MMDD                   5      8  0                                                          
     D  YY                     3      4  0                                                          
     D  MM                     5      6  0                                                          
     D  DD                     7      8  0                                                          
                                                                                                    
     C*ﾗ 注意 ﾝ                                                                                     
     C* このプログラムはパラメータつきで呼び出すことができます。                                    
     C* パラメータなしで呼び出された場合は単独で動作します。                                        
     C*----------------------------------------------------+                                        
     C     *ENTRY        PLIST                                                  |                   
     C                   PARM                    FROMCD            2                                
     C                   PARM                    TOCD              2                                
     C*----------------------------------------------------+                                        
     C                   MOVE      FROMCD        BKCODE                                             
     C*----------------------------------------------------+                                        
     C     SETKEY        KLIST                                                                      
     C                   KFLD                    BKCODE                                             
     C*----------------------------------------------------+                                        
     C     SETKEY        SETLL     BUKAM                                                            
     C                   DO        *HIVAL                                                           
     C                   SETOFF                                       50                            
     C                   READ      BUKAM                                  50                        
     C   50              LEAVE                                                                      
     C     BKCODE        CABGT     TOCD          REDEND                                             
     C*-------------------------------------------------------------------------+                   
     C                   SETON                                        42        |                   
     C                   EXSR      OUTPUT                                       |                   
     C*-------------------------------------------------------------------------+                   
     C                   ENDDO                                                                      
     C     REDEND        TAG                                                                        
     C                   SETON                                        LR                            
     C   LR              EXSR      LRRTN                                                            
     C                   RETURN                                                                     
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期サイクルのみの実行                                                                     
     C                   MOVEA     *ALL'-'       LINE                                               
     C                   MOVEA     LINE          LINE1                                              
     C                   MOVEA     LINE          LINE2                                              
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     LRRTN         BEGSR                                                                      
     C******************************************************                                        
     C*-------------------------------------------------------------------------+                   
     C                   SETON                                        43        |                   
     C                   EXSR      OUTPUT                                       |                   
     C*-------------------------------------------------------------------------+                   
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     OUTPUT        BEGSR                                                                      
     C******************************************************                                        
     C  N40              SETON                                        4041                          
     C*----------------------------------------------------+                                        
     C   41              WRITE     PRTHEAD                                                          
     C   42              WRITE     DETAIL                               OF                          
     C   43              WRITE     ENDPRT                                                           
     C*----------------------------------------------------+                                        
     C   OF              SETOFF                                       40OF                          
     C                   SETOFF                                       414243                        
     C                   ENDSR