PGM                                                                
/*---------------------------------------------------------*/                   
/*   MONMSG   :   メッセージ・モニター                     */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&MSGKEY) TYPE(*CHAR) LEN(4)                         
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             CHKOBJ     OBJ(MYLIB/MYFIL) OBJTYPE(*FILE)                         
             MONMSG     MSGID(CPF9800) EXEC(RETURN)                             
                                                                                
 ERROR:      RCVMSG     RMV(*NO) KEYVAR(&MSGKEY) MSG(&MSG)                      
             IF         COND(&MSG *NE ' ') THEN(DO)                             
             RCVMSG     MSGTYPE(*PRV) MSGKEY(&MSGKEY)                           
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDDO                                                              
             ENDPGM