XC WAST(WAST#LENGTH),WAST
MVI WASTEXITCODE,57 User defined exit code
SPACE ,
CALL BPX1MPC, MVS Process cleanup +
(WAST, Input: Ending status code 0-255 +
RETVAL, Return value: 0, -1 or 1 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------
**************************************************************
* Set up the WAST (exit status word) *
* with a user defined exit code *
**************************************************************
LA R3,0 Set R3 with zero and
ST R3,LOCALWAST clear the WAST
LA R14,LOCALWAST Get address of WAST
MVI WASTEXITCODE(R14),44 Set exit status
**************************************************************
* Set up the WAST (exit status word) *
* with a terminating signal *
**************************************************************
LA R3,0 Set R3 with zero and
ST R3,LOCALWAST clear the WAST
LA R14,LOCALWAST Get address of WAST
MVI WASTSIGTERM(R14),09 Exit with sigterm (x'09')
**************************************************************
* Set up the WAST (exit status word) *
* Do not set any exit codes *
**************************************************************
LA R3,0 Set R3 with zero and
ST R3,LOCALWAST clear the WAST
LA R14,LOCALWAST Get address of WAST
For the callable service, see mvsprocclp (BPX1MPC, BPX4MPC) — Clean up kernel resources. For the data structure, see BPXYWAST — Map the wait status word. AMODE 64 callers use BPX4MPC (mvsprocclp) example.