/* 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 /* extract user profile information for OMVS users */ ADDRESS SYSCALL DO FOREVER "GETPWENT pw." IF retval=0 | retval=-1 THEN , LEAVE SAY 'Uid='pw.PW_UID 'Shell='pw.PW_SHELL 'Dir='pw.PW_DIR , 'Gid='pw.PW_GID 'Name='pw.PW_NAME /* SAY C2X(STORAGE(D2X(retval),20)) */ END EXIT 0