The following code enables interruption of threads waiting
in MVS™ ENQs in the caller's
process. For the callable service,
see
oe_env_np (BPX1ENV, BPX4ENV) — Examine, change, or examine and change an environmental attribute. For the
data structure, see
BPXYCONS — Constants used by services.
AMODE 31 callers use
BPX1ENV (oe_env_np) example.
LA R15,=F'1'
ST R15,INARG
LA R15,INARG
STG R15,INARGLIST
LA R15,INARGLIST
STG R15,INARGLISTPTR
SPACE ,
CALL BPX4ENV, oe_env_np +
(=A(ENQWAIT_PROCESS), Input: Function_code BPXYCONS +
=A(1), Input: InArgCount +
INARGLISTPTR, Input: InArgListPtr +
=A(0), Input: OutArgCount +
=AD(0), Input: OutArgListPtr +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------