RPGLE CALL RPG要先做点什么吗？

greenxiong

执行CALL后，JOBLOG显示：
Value ' ! 99     ' for parameter MSGID not a valid name.
Error found on RTVMSG command.                           
! 99   NOT FOUND IN *LIBL     /SSAZ03     *** <== CLMSG
SYS007B2 119200 decimal-data error in field (C G S D F).
D                                                        
SYS007B2 119200 decimal-data error in field (C G S D F).
D                                                        
Error RPG0907 caused program SYS007B2 to stop.

hanyu

call 是外部调用，call的是C、CL、RPG、RPGLE 都没有关系，只要参数定义一致就行。
从你的joblog 猜想，是不是rpg 内调用了一个CL 程序，CL程序用RTVMSG  取*LIBL /SSAZ03 *** 中的MSGDTA，但MSGID的值不当。
并导致后续程序有一个十进制错误。

如果不能跟踪进去的话，看一下DUMP的SPLF或许有帮助。

greenxiong

谢谢hanyu
如何才能从STRDBG跟进STRISDB呢？

hanyu

sorry
我以前也试过，没有成功，后来找了个苯方法，分别用RPGLE，RPG写桩模块，再分别用
STRDBG
STRISDB
应该是有办法的........

greenxiong

那假如被CALL的是RPGLE，应该可以跟进去，是如何做的呢？

hanyu

你说的是 rpgle call rpgle 吗？
shift + F10

greenxiong

谢谢！
以前一直有用F22，都没成。
现在知道了，要用F14先增加RPGLE程序，但仍不支持添加RPG程序。

gpm

首先，需要在编译RPGLE程序的时候将参数：DBGVIEW设为*ALL
然后，STRDBG以后用DSPMODSRC添加程序和断点，最后CALL要调试的模块。

greenxiong

呵呵，我的版本没有*ALL，不过用*SOURCE也一样。