/* REXX *** */
PARSE ARG lim current maximum
/* alter OMVS limit values */
ADDRESS SYSCALL
if lim == '' then do
   SAY 'setrlimit resource [current] [maximum]'
   exit 8
   end
/* get current values */
CALL dolim lim
if current == '' then do
   SAY 'No current limit specified for 'lim
   exit 8
   END
else ,
  rv.1 = current
if maximum \= '' then ,
   rv.2 = maximum
/* if we received an unexpected return code, exit */
if grc \= 0 then do
   say 'Parameter 'lim' is probably incorrect. Exiting'
   exit 8
   end
errno = 0
num=value(lim)
/* try to set new values */
"setrlimit "num" rv."
 src = RC
if src \= 0 then ,
 say 'Setrlimit returned RC='src
else ,
 say 'New values='v'('num') current='rv.1 'maximum='rv.2
say 'Errno was 'errno
exit 0
 dolim: ,
 arg v .
/* return current settings */
 num=value(v)
 "getrlimit "num" rv."
 grc = RC
 SAY 'Current setting='v'('num') current='rv.1 'maximum='rv.2
 Say ' '
 return