H DFTNAME(SFL001) DATEDIT(*YMD/)                                                               
     F**********  商品マスター照会 ************************************                             
     FSFL001FM  CF   E             WORKSTN                                                          
     F                                     SFILE(SFREC01:RRN1)                                      
     FSHOHIN    IF   E           K DISK                                                             
     F*****************************************************************                             
     D* 作業変数の定義                                                                              
     D RRN1            S              4S 0 INZ                                                      
     D SFLPAG          S              4S 0 INZ(13)                                                  
     D STRRRN          S              4S 0 INZ(1)                                                   
     D ENDRRN          S              4S 0 INZ                                                      
     C     *LOVAL        SETLL     SHOHIN                                                           
     C                   EXSR      SFLCLR                                                           
     C*   : ファイルの読み取り                                                                      
     C                   EXSR      READ                                                             
     C*( サブ・ファイルの表示 )                                                                     
     C*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                    |                   
     C                   SETON                                        4142      |SFL-DSPLY          
     C                   EXFMT     SFCTL01                                      |                   
     C                   SETOFF                                       4142      |                   
     C*----------------------------------------------------+                                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C   LR              RETURN                                                                     
     C                   END                                                    CF03                
     C*( ROLL-UP )                                                                                  
     C     *IN14         IFEQ      *ON                                          CF03                
     C                   EXSR      READ                                                             
     C                   END                                                    CF03                
     C*( 実行キー )                                                                                 
     C                   GOTO      DSPLY                                                            
     C     END           TAG                                                                        
     C******************************************************                                        
     C     READ          BEGSR                                                                      
     C******************************************************                                        
     C     STRRRN        ADD       13            ENDRRN                                             
     C     STRRRN        DO        ENDRRN        RRN1                           READ                
     C                   SETOFF                                       50                            
     C                   READ      SHOHIN                                 50                        
     C   50              LEAVE                                                                      
     C                   MOVE      RRN1          GYO                                                
     C*----------------------------------------------------+                                        
     C                   WRITE     SFREC01                                      |                   
     C*----------------------------------------------------+                                        
     C                   END                                                    READ                
     C                   ADD       SFLPAG        STRRRN                                             
     C     REDEND        ENDSR                                                                      
     C******************************************************                                        
     C     SFLCLR        BEGSR                                                                      
     C******************************************************                                        
     C                   SETON                                        44        |                   
     C                   WRITE     SFCTL01                                      |                   
     C                   SETOFF                                       44        |                   
     C                   ENDSR