H DFTNAME(PGMID) DATEDIT(*YMD/)                                                                
     F**********  商品マスター照会 ************************************                             
     FSCROLLFM  CF   E             WORKSTN                                                          
     F                                     SFILE(SFREC01:RRN1)                                      
     F                                     INFDS(INFDS)                                             
     FSHOHIN    IF   E           K DISK                                                             
     F*****************************************************************                             
     D*                                                                                             
     D*         -( サブ・ファイルのファイル情報 )-                                                  
     D*                                                                                             
     D INFDS           DS                                                                           
     D*( カーソルの行と桁の取り込み )                                                               
     D  LINE                 370    371B 0                                                          
     D*  TOPRRN: 今表示しているサブ・ファイルの先頭の RRN                                           
     D  TOPRRN               378    379B 0                                                          
     D* BRRN : サブ・ファイルのレコード�Y                                                           
     D  BRRN                 376    377B 0                                                          
     D SFREC           DS                                                                           
     D  GYO                           4A                                                            
     D  SHCODE                       10A                                                            
     D  SHNAME                       24A                                                            
     D  SHTANK                        7S 0                                                          
     D  SHSCOD                        4A                                                            
     C                   GOTO      DETAIL                                                           
     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     DETAIL        TAG                                                                        
     C*----------------------------------------------------+                                        
     C     SETKEY        KLIST                                                  |                   
     C                   KFLD                    STRCOD                         |                   
     C*----------------------------------------------------+                                        
     C                   MOVE      SHCODE        STRCOD                                             
     C     SETKEY        SETLL     SHOHIN                                                           
     C                   EXSR      SFLCLR                                                           
     C*   : ファイルの読み取り                                                                      
     C                   Z-ADD     1             TOPRRN                                             
     C                   EXSR      READ                                                             
     C*   U8:AutoWeb のスクロール・バーでは EOF になるまで                                          
     C*       読取りを繰り返す。                                                                    
     C     *IN88         IFEQ      *ON                                                              
     C                   DOW       *IN45 = *OFF                                                     
     C                   SETON                                        4142      |SFL-DSPLY          
     C                   WRITE     SFCTL01                                      |                   
     C                   SETOFF                                       4142      |                   
     C                   EXSR      ROLLUP                                                           
     C                   ENDDO                                                                      
     C                   ENDIF                                                                      
     C*( サブ・ファイルの表示 )                                                                     
     C                   WRITE     DSPEND01                                                         
     C*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                    |                   
     C                   SETON                                        4142      |SFL-DSPLY          
     C   89              READ      SFCTL01                                      |                   
     C  N89              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*( CF12 )- 前画面                                                                             
     C     *IN12         IFEQ      *ON                                          CF12                
     C                   SETOFF                                       12                            
     C                   MOVE      STRCOD        SHCODE                                             
     C                   GOTO      START                                                            
     C                   END                                                    CF12                
     C*( ROLL UP )- 次ページ                                                                        
     C     *IN14         IFEQ      *ON                                                              
     C                   EXSR      ROLLUP                                                           
     C                   GOTO      DSPLY                                                            
     C                   END                                                                        
     C*( ROLL DOWN )- 前ページ                                                                      
     C     *IN15         IFEQ      *ON                                                              
     C                   Z-ADD     1             DSPREC                                             
     C                   SETON                                        6299      ERRMSG              
     C                   GOTO      DSPLY                                                            
     C                   END                                                                        
     C*( 実行キー )                                                                                 
     C     2             CHAIN     SFREC01                            90                            
     C                   GOTO      DSPLY                                                            
     C*                                                                                             
     C     END           TAG                                                                        
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期サイクルのみの実行                                                                     
     C   U8              SETON                                        88                            
     C                   SETON                                        88                            
     C                   CLEAR                   SFREC01                                            
     C*( SFL 行数を 13 行にセット ) 13                                                              
     C                   MOVE      13            GYOSU             2 0           行数               
     C                   MOVE      08            STRGYO            2 0           開始行�Y           
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     READ          BEGSR                                                                      
     C******************************************************                                        
     C                   MOVE      *BLANKS       EOF               1                                
     C                   MOVE      *ZEROS        DSPREC                                             
     C                   SETOFF                                       45                            
     C*( データ・ベースの検索 )                                                                     
     C     TOPRRN        ADD       GYOSU         ENDRRN            4 0                              
     C                   SUB       1             ENDRRN                                             
     C*                                                                                             
     C     TOPRRN        DO        ENDRRN        RRN1              4 0          READ                
     C                   SETOFF                                       50                            
     C                   READ      SHOHIN                                 50                        
     C*( 終り )                                                                                     
     C     *IN50         IFEQ      *ON                                          EOF                 
     C                   MOVE      'E'           EOF                                                
     C                   SETOFF                                       1129                          
     C                   SETON                                        45                            
     C                   GOTO      REDEND                                                           
     C                   ELSE                                                   EOF                 
     C*( 行 NO に入れる )                                                                           
     C                   MOVE      RRN1          GYO                                                
     C     DSPREC        IFEQ      *ZEROS                                                           
     C                   Z-ADD     TOPRRN        DSPREC                                             
     C                   ENDIF                                                                      
     C*( サブ・ファイルへ更新 )                                                                     
     C*----------------------------------------------------+                                        
     C                   WRITE     SFREC01                                      |                   
     C*----------------------------------------------------+                                        
     C                   Z-ADD     RRN1          LSTRRN            4 0                              
     C                   ENDIF                                                  EOF                 
     C                   ENDDO                                                  READ                
     C     REDEND        TAG                                                                        
     C     DSPREC        IFEQ      *ZEROS                                                           
     C                   SETON                                        89                            
     C     TOPRRN        SUB       1             DSPREC                                             
     C                   ENDIF                                                                      
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     SFLCLR        BEGSR                                                                      
     C******************************************************                                        
     C*( サブ・ファイルのクリヤー )                                                                 
     C*----------------------------------------------------+                                        
     C                   SETON                                        44        |                   
     C                   WRITE     SFCTL01                                      |                   
     C                   SETOFF                                       4489      |                   
     C*----------------------------------------------------+                                        
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     ROLLUP        BEGSR                                                                      
     C******************************************************                                        
     C     EOF           IFEQ      'E'                                                              
     C                   SETON                                        6199      ERRMSG              
     C   99              Z-ADD     LSTRRN        DSPREC                                             
     C   99              GOTO      UPEND                                                            
     C                   END                                                                        
     C     ENDRRN        ADD       1             TOPRRN                                             
     C                   EXSR      READ                                                             
     C     UPEND         ENDSR