H NOMAIN DFTNAME(UPD0053) DATEDIT(*YMD/)                                                       
     F******** 商品マスターの登録 - DSPDTA01 **************************                             
     FUPD005D   CF   E             WORKSTN                                                          
     FSHOHIN    IF   E           K DISK                                                             
     FHINSHU    IF   E           K DISK                                                             
     F*****************************************************************                             
     D DSPDTA01_       PR             4A                                                            
     D  SHCODE                       10A   VALUE                                                    
                                                                                                    
     D INDATA        E DS                  EXTNAME(SHOHIN) EXPORT                                   
     D  DSPDTA                 1   1024                                                             
     D                                     DIM(1024)                             入力 ﾃﾞｰﾀ          
                                                                                                    
     P DSPDTA01_       B                   EXPORT                                                   
     D                 PI             4A                                                            
     D   SHCODE_                     10A   VALUE                                                    
                                                                                                    
     D CF03            S              4A   INZ('CF03')                                              
     D CF10            S              4A   INZ('CF10')                                              
     D CF12            S              4A   INZ('CF12')                                              
     D CF23            S              4A   INZ('CF23')                                              
     D ENTER           S              4A   INZ('ENTR')                                              
                                                                                                    
     C                   SETOFF                                       99                            
     C     SHCODE_       CHAIN     SHOHIN                             99                            
     C                   EXSR      CHECK                                                            
     C     DSPLY         TAG                                                                        
     C                   EXFMT     DSPDTA01                                     |                   
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                                              
     C                   CLOSE     UPD005D                                                          
     C                   CLOSE     SHOHIN                                                           
     C                   CLOSE     HINSHU                                                           
     C                   RETURN                  CF03                                               
     C                   END                                                                        
     C*-( CF12 )- 前画面                                                                            
     C     *IN12         IFEQ      *ON                                                              
     C                   RETURN                  CF12                                               
     C                   END                                                                        
     C*-( CF10 )  更新                                                                              
     C     *IN10         IFEQ      *ON                                                              
     C                   EXSR      CHECK                                                            
     C   99              GOTO      DSPLY                                                            
     C                   RETURN                  CF10                                               
     C                   END                                                                        
     C*-( CF23 )  削除                                                                              
     C     *IN23         IFEQ      *ON                                                              
     C                   RETURN                  CF23                                               
     C                   END                                                                        
     C*-( 実行キー )                                                                                
     C                   RETURN                  ENTER                                              
     C******************************************************                                        
     C     CHECK         BEGSR                                                                      
     C******************************************************                                        
     C*    *NOKEY        CLEAR                   @HINSHU                                            
     C                   SETOFF                                       9993                          
     C     SHSCOD        CHAIN     HINSHU                             99                            
     C     ENDCHK        ENDSR                                                                      
     P                 E