/* REXX *** */
PARSE SOURCE . . . . . . Envir .
If Envir \= 'SH' then ,
 IF SYSCALLS('ON')>3 THEN
    DO
    SAY 'Unable to establish the SYSCALL environment'
    SAY 'Return code was 'RC
    RETURN
    END
 ADDRESS SYSCALL
/* display current limits for OMVS resources */
Say 'Maximum amount of CPU time (in seconds) used by a process.'
 CALL dolim 'rlimit_cpu'
Say 'Maximum files size (in bytes) created by a process.'
 CALL dolim 'rlimit_fsize'
Say 'Maximum number of open file descriptors for a process.'
 CALL dolim 'rlimit_nofile'
Say 'Maximum address space size for a process.'
 CALL dolim 'rlimit_as'
Say 'Maximum size (in bytes) of a core dump created by a process.'
 CALL dolim 'rlimit_core'
 exit 0
 dolim: ,
 arg v .
/* return current limits for resource */
 num=value(v)
 "getrlimit "num" rv."
 SAY 'Resource='v'('num') current='rv.1 'maximum='rv.2
Say ' '
 return