PGM                                                                
/*---------------------------------------------------------*/                   
/*   RPG001CL :   商品マスターの登録                       */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)                          
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             OVRDSPF    FILE(RPG001FM) WAITRCD(*IMMED) SECURE(*YES) +           
                          OVRSCOPE(*JOB) SHARE(*YES)                            
             CALL       PGM(R610OBJ/RPG001)                                     
             DLTOVR     FILE(RPG001FM) LVL(*JOB)                                
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG)                       
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM