/* REXX *** */
PARSE SOURCE . . . . . . Envir .
 /* if not in shell, establish environment */
If Envir \= 'SH' then ,
IF SYSCALLS('ON')>3 THEN
   DO
   Say 'Unable to establish the SYSCALL environment'
   Say 'Return code was 'RC
   Exit 4
   End
 /* set total region to specified value */
PARSE ARG region
If region == '' then do
   Say 'addregn: value required'
   Exit 8
   End
ADDRESS SYSCALL
CALL dolim 'RLIMIT_AS'
  /* make sure we are increasing value */
If region < rv.1 then do
   Say 'New value 'region' less than current'
   Exit 8
   End
Else ,
  rv.1 = region
If grc \= 0 then do
   Say 'Problem retrieving current values. Exiting'
   Exit 8
   End
 /* set new region limit */
errno = 0
num=RLIMIT_AS
"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
If errno \= 0 then ,
  say 'Errno was 'errno' Errnojr was 'errnojr
Exit 0
 /* report current values */
 dolim: ,
 arg v .
 num=value(v)
 "getrlimit "num" rv."
 grc = RC
 Say 'Current setting='v'('num') current='rv.1 'maximum='rv.2
 Say ' '
 Return