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

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

output_lines = output_lines+1

Parse Var all_output outputd.output_lines (esc_n) all_output

End

outputd.0 = output_lines

Call Syscall_Cmd "close (pp.1)"

pp.1 = -1

Return

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

If call_type=info_on_timeout & errno=78 Then Do

time_out = 1

final_rc = 8

End

Else Do

Say "SYSCALL Service:" syscall_cmd

Say "Syscall Return ...