On Thu, 9 Oct 2025 23:31:37 +0000, Schmitt, Michael <[email protected]>
wrote:
>You get the r0008 from the last TBSKIP but you never test for it. Unless
>that’s in whatever Addr_ISP is?
Addr_ISP is, as I said in my Thursday post, "Call_ISP issues the passed command
and checks for errors."
Addr_ISP:
/* No return -- Ends the program on errors */
req = Arg(1)
Address ISPEXEC req
RetCd = RC
If RetCd > 4 Then Do
Address ISPEXEC "SETMSG MSG(ISRZ002) COND" /* Log first error */
Address ISPEXEC "LOG MSG(ISRZ002)"
ReturnCode = 12
Signal Sig_EndPgm
End /* Bad Address ISPEXEC Return Code */
Return
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
