H DFTNAME(RPG002) DATEDIT(*YMD/)                                                               
     F******** 商品マスターの登録           ***************************                             
     FRPG001FM  CF   E             WORKSTN                                                          
     F*****************************************************************                             
     C* 外部からの rﾟwﾘｰnｰ の受取                                                                   
     C*----------------------------------------------------+                                        
     C     *ENTRY        PLIST                                                  |                   
     C                   PARM                    FORMAT           10            |                   
     C*----------------------------------------------------+                                        
     C     FORMAT        IFEQ      'DSPHEAD   '                                                     
     C                   MOVEL(P)  'NV-CF1'      SHCODE                                             
     C                   WRITE     DSPHEAD                                                          
     C                   RETURN                                                                     
     C                   END                                                                        
     C                   SETON                                        LR                            
     C                   RETURN