请教，RPG中的异常错误处理

PPhan

我一般在rpg程序中写*pssr子程序处理异常错误，有时在f表中用键字infsr（）调用错误处理的子程序。
请问还有什么方法处理异常错误？最好有一种方法一下可以捕捉所有的错误 。还有有时给每个文件加infsr（）挺费劲，感觉文件出错几乎没有，所以使用这种方式有必要吗？

wildfish

我们目前一般很少用这些，感觉还是让程序出错的比较好，可以知道程序由哪些错误，可以立马进行修正。
不过这样还没尝试过。
如果你想补捉一般的异常错误，可以用cl来调用那个程序，然后，monmsg msgid(cpf0000)

riancy1106

infsr是一个structure，里面对程序状态和正在使用的文件都有比较详细的描述，是rpg、rpgle使用的。
monmsg是cl使用的。

XFIVE

原帖由 "riancy1106" 发表：
infsr是一个structure，里面对程序状态和正在使用的文件都有比较详细的描述，是rpg、rpgle使用的。
monmsg是cl使用的。

   在RPGLE 中用对FILE Opd的error .

   rpgle 中 还可以用 MONITOR 来 catch error   对BATCH DAYEND 的JOB

return 详细的ERROR 根据 这个来决定 是 C , I , R , D .. 当然 MONMSG 在CL 中 一起配和使用 功能就做的更灵活了。。。

PPhan

多谢，
我是想在rpg中捕获错误，如果用一个有monmsg 的cl程序调用我的rpg ，rpg是下级程序，它出错后上级的cl程序应该捕获不了这个错误吧。
关于infsr（）是不是把数据操作的错误指示器加全了就用不着infsr（）了？
加这样的错误处理，查错是不方便，很有道理，我应该考虑是不是不加了

XFIVE兄提供的方式没看明白，能不能说详细些。

Inyan

原帖由 PPhan 于 2004-3-4 15:58 发表
多谢，
我是想在rpg中捕获错误，如果用一个有monmsg 的cl程序调用我的rpg ，rpg是下级程序，它出错后上级的cl程序应该捕获不了这个错误吧。
关于infsr（）是不是把数据操作的错误指示器加全了就用不着infsr（） ...

顶起来老帖子~
我也有同样的困惑，
在RPG中捕捉系统异常
用什么办法呢

coolk

可以根据程序当前的状态码、错误码来确定如何进去错误逻辑处理！它一样可以做到像CL中那样的错误处理！

Inyan

是说错误的message号码吗？如CPF****
具体做法呢，能否指点一下

wildfish

*pssr begsr
       xxxx
         endsr
能够捕捉所有的rpgle的错误
*inzsr begsr
    xxxx
xxx
        endsr
是一个开始的初始化入口subroutine.

liu__jiang

原帖由 PPhan 于 2004-3-4 15:58 发表
多谢，
我是想在rpg中捕获错误，如果用一个有monmsg 的cl程序调用我的rpg ，rpg是下级程序，它出错后上级的cl程序应该捕获不了这个错误吧。
关于infsr（）是不是把数据操作的错误指示器加全了就用不着infsr（） ...

如果RPG出错了，CL是可以捕获的，INFSR是因为有一些不可预知的错误，所以要转到*PSSR做处理，一般会在F格式后加上这个也是因为这原因，如果把错误指示器全加上去了，程式是没问题了，但你想实现的效果怕也是不完整的。

以上个人意见。