
334 z/OS Distributed File Service zSeries File System Implementation z/OS V1R11
Call Syscalls "SIGOFF"
Do i=0 To 2
If fd.i<>-1 Then Call Syscall_Cmd "close (fd.i)", noexit_on_error
End
If pp.1<>-1 Then Call Syscall_Cmd "close (pp.1)", noexit_on_error
If cur_euid<>0 & switched & foreground Then Do
Call Syscall_Cmd "seteuid" cur_euid, noexit_on_error
If not_OK Then Say "Effective UID could not be switched back..."
Else Say "Effective UID switched back..."
End
Exit final_rc
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 ...