The following code uses the #WAIT3 function to wait for
any of its children to end or stop. For the callable service, see
wait-extension (BPX1WTE, BPX4WTE) — Obtain status information for children. For the data structures, see
BPXYWAST — Map the wait status word and
BPXYRLIM — Map the rlimit, rusage, and timeval structures
and
BPXYCONS — Constants used by services. AMODE 31 callers use
BPX1WTE (wait extension) example.
LA R15,WAST Resolve address of WAST
STG R15,WASTA Save address of WAST
LA R15,RUSAGE Resolve address of RUSAGE
STG R15,RUSAGEA Save address of RUSAGE
SPACE ,
CALL BPX4WTE, Wait for a child process to end +
(=A(#WAIT3), Input: function BPXYCONS +
0, Input: id type +
0, Input: id +
WASTA, ->Exit status field, BPXTWAST +
=A(WNOHANG), Input: options BPXYCONS +
RUSAGEA, ->Rusage structure, BPXYRLIM +
RETVAL, Return value: -1, 0, child PID +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------