
316 z/OS Distributed File Service zSeries File System Implementation z/OS V1R11
/* Subroutines */
/* ------------------------------------------------------------------ */
Syscall_Cmd:
Parse Arg syscall_cmd, call_type, no_display
display_msgs = (no_display<>"1")
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
Call Send2sysp "SYSCALL Service:" syscall_cmd
Call Send2sysp "Syscall Return Code=" rc
Call Send2sysp "OMVS Return Value =" retval
Call Send2sysp "OMVS Return Code =" errno
Call Send2sysp "OMVS Reason Code =" errnojr ...