H DFTNAME(PGMID) DATEDIT(*YMD/)                                                                
     F**********  商品マスター照会 ************************************                             
     FDSPSFL2FM CF   E             WORKSTN                                                          
     F                                     SFILE(SFREC01:RRN1)                                      
     F                                     SFILE(SFREC02:RRN2)                                      
     F                                     INFDS(INFDS)                                             
     FSHOHIN    IF   E           K DISK                                                             
     FHINSHU    IF   E           K DISK                                                             
     F*****************************************************************                             
     D DATADS        E DS                  EXTNAME(SHOHIN)                                          
     D INFDS           DS                                                                           
     D*  TOPRRN: 今表示している ｻﾌﾞ･ﾌｧｲﾙ の先頭の RRN                                               
     D  TOPRRN               378    379B 0                                                          
     C*( 初期画面 )                                                                                 
     C*----------------------------------------------------+                                        
     C     START         TAG                                                    |                   
     C                   EXFMT     DSPHEAD                                      |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C   LR              RETURN                                                                     
     C                   END                                                    CF03                
     C*( 実行キー )                                                                                 
     C*   : ＫＥＹをファイルにセット                                                                
     C*----------------------------------------------------+                                        
     C     SETKEY        KLIST                                                  |                   
     C                   KFLD                    SHCODE                         |                   
     C*----------------------------------------------------+                                        
     C                   MOVEL     STRSHCOD      SHCODE                                             
     C     SETKEY        SETLL     SHOHIN                                                           
     C                   EXSR      SFLCLR                                                           
     C*   : ファイルの読み取り                                                                      
     C                   Z-ADD     1             TOPRRN                                             
     C                   EXSR      READ1                                                            
     C                   EXSR      READ2                                                            
     C                   Z-ADD     1             DSPREC1                                            
     C                   Z-ADD     1             DSPREC2                                            
     C*( サブ・ファイルの表示 )                                                                     
     C                   WRITE     DSPEND01                                                         
     C*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                    |                   
     C                   SETON                                        4142      |SFL-DSPLY          
     C                   WRITE     SFCTL02                                      |                   
     C                   EXFMT     SFCTL01                                      |                   
     C                   SETOFF                                       4142      |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C   LR              RETURN                                                                     
     C                   END                                                    CF03                
     C*                                                                                             
     C*( CF12 )- 前画面                                                                             
     C     *IN12         IFEQ      *ON                                          CF12                
     C                   SETOFF                                       12                            
     C                   GOTO      START                                                            
     C                   END                                                    CF12                
     C*( 実行キー )                                                                                 
     C                   GOTO      DSPLY                                                            
     C*                                                                                             
     C     END           TAG                                                                        
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C                   SETON                                        45                            
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     READ1         BEGSR                                                                      
     C******************************************************                                        
     C     1             DO        *HIVAL        RRN1              4 0          READ                
     C                   SETOFF                                       50                            
     C                   READ      SHOHIN                                 50                        
     C*( 終り )                                                                                     
     C     *IN50         IFEQ      *ON                                          EOF                 
     C                   SETON                                        91                            
     C                   LEAVE                                                                      
     C                   END                                                                        
     C                   MOVE      RRN1          GYO1                                               
     C*----------------------------------------------------+                                        
     C                   WRITE     SFREC01                                      |                   
     C*----------------------------------------------------+                                        
     C                   Z-ADD     RRN1          DSPREC1                                            
     C                   END                                                    READ                
     C     REDEND1       ENDSR                                                                      
     C******************************************************                                        
     C     READ2         BEGSR                                                                      
     C******************************************************                                        
     C     *LOVAL        SETLL     HINSHU                                                           
     C     1             DO        *HIVAL        RRN2              4 0          READ                
     C                   SETOFF                                       50                            
     C                   READ      HINSHU                                 50                        
     C*( 終り )                                                                                     
     C     *IN50         IFEQ      *ON                                          EOF                 
     C                   SETON                                        91                            
     C                   LEAVE                                                                      
     C                   END                                                                        
     C                   MOVE      RRN2          GYO2                                               
     C*----------------------------------------------------+                                        
     C                   WRITE     SFREC02                                      |                   
     C*----------------------------------------------------+                                        
     C                   Z-ADD     RRN2          DSPREC2                                            
     C                   END                                                    READ                
     C     REDEND        ENDSR                                                                      
     C******************************************************                                        
     C     SFLCLR        BEGSR                                                                      
     C******************************************************                                        
     C*( ｻﾌﾞﾌｧｲﾙ の ｸﾘﾔｰ )                                                                          
     C*----------------------------------------------------+                                        
     C                   SETON                                        44        |                   
     C                   WRITE     SFCTL01                                      |                   
     C                   WRITE     SFCTL02                                      |                   
     C                   SETOFF                                       4491      |                   
     C*----------------------------------------------------+                                        
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     SFLDLT        BEGSR                                                                      
     C******************************************************                                        
     C*( ｻﾌﾞﾌｧｲﾙ の削除 )                                                                           
     C*----------------------------------------------------+                                        
     C                   SETON                                        46        |                   
     C                   WRITE     SFCTL01                                      |                   
     C                   WRITE     SFCTL02                                      |                   
     C                   SETOFF                                       46        |                   
     C*----------------------------------------------------+                                        
     C                   ENDSR