MONMSG 为何有时不起作用？

V01619

PGM                                                           
     /****************************************************/   
     /* DDMF(NTSTL1DB) COMMUNICATION FLAG CHECK          */   
     /****************************************************/   
         CHGCURLIB CURLIB(SUZOBJ)                             
         CHGJOB DDMCNV(*DROP)                                 
         CLRPFM FILE(SUZOBJ/FCWKP0DB)                        
J1:      CALL PGM(SUZOBJ/PY018UB)                             
         MONMSG MSGID(CPF4207) EXEC(GOTO J9)                  
J9: ENDPGM

上面的这个程序，设置了错误捕获，可是为何当错误发生时，系统还是报了错误，必须手动进行回答？
哪位高手能解释一下吗？


                             Additional Message Information                        
                                                                                
Message ID . . . . . . :   RPG1216                                             
Date sent  . . . . . . :   12/11/11      Time sent  . . . . . . :   05:30:00   
                                                                                
Message . . . . :   Error message CPF4207 appeared during OPEN (C S D F).      
                                                                                
Cause . . . . . :   The RPG program PY018UB in library SUZOBJ received the     
   message CPF4207 while doing an implicit OPEN to file FCWKTBL1. See the job   
   log for a complete description of message CPF4207. If the file has a device  
   type of SPECIAL, there may be no message in the job log.                     
Recovery  . . . :   Enter C to cancel, S to obtain a printout of system        
   storage, D to obtain an RPG formatted printout of system storage, or F to   
   obtain a full formatted printout of system storage.                          
Possible choices for replying to message . . . . . . . . . . . . . . . :      
   D -- Obtain RPG formatted printout of system storage.                        
   S -- Obtain printout of system storage.                                      
   F -- Obtain full formatted printout of system storage.                       
                                                                       



                                               

dinholam

你的MONMSG放的位置有问题吧。。。
看message信息应该是OPEN file FCWKTBL1出错，
这个error是发生在子程序的吧？
那么试试将MONMSG放到 Program Level (即DCL语句下面的首行，命令语句之前）

V01619

试过啦，前后都放了MONMSG还是报同样的错误，奇怪了。。。

dinholam

请参考前人的一些回答
http://bbs.chinaunix.net/thread-1627181-1-1.html
另外你的子程序是CL还是RPG？
"monmsg一般用于上一条cl程序行中cl命令执行情况的系统返回的msgid，所以，monmsg一般跟在这样的cl行之后，而不能monmsg另外一个rpg的出错信息。monmsg CL命令，msgid都会在Redbook或400联机help中有详细说明，都会列写出所有可能发生的错误msgid号。"
在RPG中用 指示器或者 IF        %ERROR （RPGLE）判断。

dinholam

还有，你可以试下在Program Level 放 MONMSG MSGID(RPG1216)
毕竟真正抛出的错误ID是 RPG1216 ， 不是 CPF4207

V01619

果然没错，发现MONMSG可以监控CL命令出现的错误，
对于RPG程序出现的错误，似乎没有办法捕捉到，
受教了。