H NOMAIN DFTNAME(UPD0054) DATEDIT(*YMD/)                                                       
     F******** 商品マスターの登録 - ENDOPT   **************************                             
     FUPD005D   CF   E             WORKSTN                                                          
     F*****************************************************************                             
     D ENDOPT_         PR             4A                                                            
     D ANS             S              1A   EXPORT                                                   
     D ADDREC          S              5S 0 EXPORT                                                   
     D CHGREC          S              5S 0 EXPORT                                                   
     D DLTREC          S              5S 0 EXPORT                                                   
                                                                                                    
     P ENDOPT_         B                   EXPORT                                                   
     D                 PI             4A                                                            
     D CF03            S              4A   INZ('CF03')                                              
     D CF12            S              4A   INZ('CF12')                                              
     D ENTER           S              4A   INZ('ENTR')                                              
                                                                                                    
     C                   MOVE      'Y'           ANS                                                
     C*----------------------------------------------------+                                        
     C     DSPEND        TAG                                                    |                   
     C                   EXFMT     ENDOPT                                       |                   
     C*----------------------------------------------------+                                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                                              
     C                   CLOSE     UPD005D                                                          
     C                   RETURN                  CF03                                               
     C                   END                                                                        
     C*-( CF12 )- 前画面                                                                            
     C     *IN12         IFEQ      *ON                                                              
     C                   RETURN                  CF12                                               
     C                   END                                                                        
     C*-( 実行キー )                                                                                
     C                   RETURN                  ENTER                                              
     P                 E