//*
//*******************************************************************
//* THIS WILL READ THE RACF DATABASE FLATFILE AND USE THE SYNCSORT
//* TOOL TO SORT THE DATA AND GENERATE A REPORT.
//*
//* THIS JOB WILL REPORT ALL USERIDS WHO HAVE THE 'OPERATIONS',
//* 'SPECIAL' OR 'AUDITOR' ATTRIBUTES SET AT THE SYSTEM LEVEL.
//*
//*******************************************************************
//REPORT EXEC PGM=ICETOOL
//RACFDATA DD DISP=SHR,DSN=PROD.RACF.IRRDBU00.UNLOAD(0)
//TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(200,100))
//TEMP0002 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(200,100))
//TOOLMSG DD SYSOUT=*
//PRINT DD SYSOUT=(A,,STD),HOLD=YES,DEST=U0022
//DFSMSG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
/*
//*------------------------------------------------------------------
//TOOLIN DD *
SORT FROM(RACFDATA) TO(TEMP0001) USING(RACF)
DISPLAY FROM(TEMP0001) LIST(PRINT) -
PAGE -
TITLE('USERIDS WITH "OPERATIONS", "SPECIAL" OR "AUDITOR"') -
DATE(YMD/) -
TIME(12:) -
BLANK -
ON(10,8,CH) HEADER('USERID') -
ON(79,20,CH) HEADER('USER NAME') -
ON(118,10,CH) HEADER('LAST ACCESS') -
ON(19,10,CH) HEADER('CREATED') -
ON(54,4,CH) HEADER('REVOKED?') -
ON(49,3,CH) HEADER('OPER') -
ON(44,3,CH) HEADER('SPEC') -
ON(390,3,CH) HEADER('AUDT')
/*
//*------------------------------------------------------------------
//RACFCNTL DD *
SORT FIELDS=(10,8,CH,A)
INCLUDE COND=(5,4,CH,EQ,C'0200',AND,
(49,3,CH,EQ,C'YES',OR,
44,3,CH,EQ,C'YES',OR,
390,3,CH,EQ,C'YES'))
OPTION VLSHRT
/*