The following code sets the resource limits for the calling
process based on the input resource value and the resource
limits set in the input rlimit structure. The resource value
is set to RLIMIT_CPU. The resource limits are set to RLIM_INFINITY.
For the callable service, see
setrlimit (BPX1SRL, BPX4SRL) — Set resource limits.
For the data structure, see
BPXYRLIM — Map the rlimit, rusage, and timeval structures. AMODE 31 callers
use
BPX1SRL (setrlimit) example.
MVC RESOURCE,=A(RLIMIT_CPU) Value of resource
XC RLIM_CUR_HW,RLIM_CUR_HW Current limit highword (Zero)
XC RLIM_MAX_HW,RLIM_MAX_HW Maximum limit highword (Zero)
MVC RLIM_CUR,=A(RLIM_INFINITY) Current limit
MVC RLIM_MAX,=A(RLIM_INFINITY) Maximum limit
SPACE ,
CALL BPX4SRL, Set resource limits +
(RESOURCE, Input: resource +
RLIMIT, Structure, mapped by BPXYRLIM +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------
L R15,RETVAL Load return value
C R15,=F'-1' Test for -1 return
BE PSEUDO Branch on error