Release : 5.4
Component : CA-TPX for OS/390
The following batch job will extract from the user records if users have any Admin authority
You will need to change the TPXPROC to your TPX proc name and change the name of your extfile and report file names.
//BATCHADM EXEC TPXPROC,VNODE='*BATCH*'
//EXTFILE DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(MOD,CATLG),
// DSN=YOUR.TPX.EXTRACT
//*RPTFILE DD SYSOUT=*
//RPTFILE DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(NEW,CATLG),
// DSN=YOUR.TPX.RPTFILE
//*
//SYSIN DD *
C extract from USER records if user has any Admin authority
C
C multiple EXTRACT statements with DISP=MOD on DD
C
EXTRACT GIVING(EXTFILE) USER AND NO SESSIONS (UIDXCMST(Y))
EXTRACT GIVING(EXTFILE) USER AND NO SESSIONS (UIDXCSYS(Y))
EXTRACT GIVING(EXTFILE) USER AND NO SESSIONS (UIDXCOPR(Y))
EXTRACT GIVING(EXTFILE) USER AND NO SESSIONS (UIDXCADM(Y))
SET RTITLE1 ' ======== === ADMINISTRATOR AUTHORITY === '
SET RTITLE2 ' USERID MASTER SYSTEM OPER USER'
SET RTITLE3 ' ======== ====== ====== ==== ===='
REPORT GIVING(RPTFILE) USING (EXTFILE)
((' &UIDXNAME' ' &UIDXCMST' '&UIDXCSYS' '&UIDXCOPR'
'&UIDXCADM' ))
//