MONMSG 為何有時(shí)不起作用？

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

上面的這個(gè)程序，設(shè)置了錯(cuò)誤捕獲，可是為何當(dāng)錯(cuò)誤發(fā)生時(shí)，系統(tǒng)還是報(bào)了錯(cuò)誤，必須手動(dòng)進(jìn)行回答？
哪位高手能解釋一下嗎？


                             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信息應(yīng)該是OPEN file FCWKTBL1出錯(cuò)，
這個(gè)error是發(fā)生在子程序的吧？
那么試試將MONMSG放到 Program Level (即DCL語(yǔ)句下面的首行，命令語(yǔ)句之前）

V01619

試過啦，前后都放了MONMSG還是報(bào)同樣的錯(cuò)誤，奇怪了。。。

dinholam

請(qǐng)參考前人的一些回答
http://72891.cn/thread-1627181-1-1.html
另外你的子程序是CL還是RPG？
"monmsg一般用于上一條cl程序行中cl命令執(zhí)行情況的系統(tǒng)返回的msgid，所以，monmsg一般跟在這樣的cl行之后，而不能monmsg另外一個(gè)rpg的出錯(cuò)信息。monmsg CL命令，msgid都會(huì)在Redbook或400聯(lián)機(jī)help中有詳細(xì)說明，都會(huì)列寫出所有可能發(fā)生的錯(cuò)誤msgid號(hào)。"
在RPG中用 指示器或者 IF        %ERROR （RPGLE）判斷。

dinholam

還有，你可以試下在Program Level 放 MONMSG MSGID(RPG1216)
畢竟真正拋出的錯(cuò)誤ID是 RPG1216 ， 不是 CPF4207

V01619

果然沒錯(cuò)，發(fā)現(xiàn)MONMSG可以監(jiān)控CL命令出現(xiàn)的錯(cuò)誤，
對(duì)于RPG程序出現(xiàn)的錯(cuò)誤，似乎沒有辦法捕捉到，
受教了。