H NOMAIN DFTNAME(UPD0052) DATEDIT(*YMD/)                                                       
     F******** 商品マスターの登録 - DSPHEAD ***************************                             
     FUPD005D   CF   E             WORKSTN                                                          
     F*****************************************************************                             
     D DSPHEAD_        PR             4A                                                            
     D  SHCODE                       10A   VALUE                                                    
                                                                                                    
     D SHCODE          S             10A   EXPORT                                                   
                                                                                                    
     P DSPHEAD_        B                   EXPORT                                                   
     D                 PI             4A                                                            
     D   SHCODE                      10A   VALUE                                                    
     D CF03            S              4A   INZ('CF03')                                              
     D ENTER           S              4A   INZ('ENTR')                                              
     C                   EXFMT     DSPHEAD                                      |                   
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                                              
     C                   CLOSE     UPD005D                                                          
     C                   RETURN                  CF03                                               
     C                   END                                                                        
     C*( 実行キー )                                                                                 
     C                   RETURN                  ENTER                                              
     P                 E