z/OS Distributed File Service zSeries File System Implementation z/OS V1R11

390 z/OS Distributed File Service zSeries File System Implementation z/OS V1R11

exit_on_error = (call_type="")

Address SYSCALL syscall_cmd

not_OK = (rc<>0 | retval<0 | retval=0 & (errno<>0 | errnojr<>0))

OK = (not_OK = 0)

If not_OK & display_msgs Then Do

Say "SYSCALL Service:" syscall_cmd

Say "Syscall Return Code=" rc

Say "OMVS Return Value =" retval

Say "OMVS Return Code =" errno

Say "OMVS Reason Code =" errnojr

Address SYSCALL "strerror" errno errnojr "err."

If rc=0 & retval>=0 Then Do

Say ""

Say "OMVS Return Code Explanation -"

Say err.se_errno

Say "OMVS Reason Code Explanation -"

Say err.se_reason

Say ""

End

If exit_on_error Then Call Fin ...