H DFTNAME(SFL003) DATEDIT(*YMD/)                                                               
     F**********  商品マスター更新 ************************************                             
     FSFL003FM  CF   E             WORKSTN                                                          
     F                                     SFILE(SFREC01:RRN1)                                      
     FSHOHIN    UF A E           K DISK                                                             
     F*****************************************************************                             
     D* 作業変数の定義                                                                              
     D SAVEDS        E DS                  EXTNAME(SHOHIN)                                          
     D SAVDTA          S              1    DIM(1024)                             SAVE-ﾃﾞｰﾀ          
     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                   SETOFF                                       51                            
     C                   DO        *HIVAL                                                           
     C                   SETOFF                                       50                            
     C                   READC     SFREC01                                50                        
     C   50              LEAVE                                                                      
     C                   SETON                                        51                            
     C                   MOVEA     SAVEDS        SAVDTA                                             
     C                   SETOFF                                       90                            
     C     SHCODE_B      CHAIN     SHOHIN                             90                            
     C                   MOVEA     SAVDTA        SAVEDS                                             
     C*----------------------------------------------------+                                        
     C   90              WRITE     SHOHINR                                      |                   
     C  N90              UPDATE    SHOHINR                                      |                   
     C*----------------------------------------------------+                                        
     C                   END                                                                        
     C* 51= 修正があった                                                                            
     C     *IN51         IFEQ      *ON                                                              
     C                   GOTO      DSPLY                                                            
     C                   ELSE                                                                       
     C                   SETON                                        LR                            
     C   LR              RETURN                                                                     
     C                   END                                                                        
     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              SETOFF                                       45                            
     C   50              LEAVE                                                                      
     C                   MOVE      RRN1          GYO                                                
     C                   MOVE      SHCODE        SHCODE_B                                           
     C*----------------------------------------------------+                                        
     C                   WRITE     SFREC01                                      |                   
     C*----------------------------------------------------+                                        
     C                   END                                                    READ                
     C                   ADD       SFLPAG        STRRRN                                             
     C     REDEND        ENDSR                                                                      
     C******************************************************                                        
     C     SFLCLR        BEGSR                                                                      
     C******************************************************                                        
     C                   SETON                                        4445      |                   
     C                   WRITE     SFCTL01                                      |                   
     C                   SETOFF                                       44        |                   
     C                   ENDSR