除了使用MONITOR之外，还有其他方法可以在RPG程序中捕获QCMDEXC错误吗

Question

我使用QCMDEXC api在RPGLE程序中发出了CL命令。假设CL命令抛出一个错误。是否有任何方法可以在不使用MONITOR的情况下捕获错误。

Answer 1

您可以使用；e"；代码扩展器

*  Setup QCMDEXEC
C                   eval      cmdStr = 'CALL PGM(DMACCT001) PARM(REGIONA)'
C                   eval      cmdLen = %len( cmdStr )
C* call to QCMDEXC
C                   callp(e)  command(cmdStr : cmdLen)
C                   if        %error
C*    ZZZ    Friendly error handler goes here
C                   endif
D Command         PR                  ExtPgm('QCMDEXC')
D  CmdStr                    32702    const options(*varsize)
D  CmdLen                       15p 5 const