//*******************************************************************
//*
//* THIS WILL READ THE RACF DATABASE FLATFILE AND USE THE SORT
//* TOOL TO SORT THE DATA AND GENERATE A REPORT.
//*
//* THIS JOB WILL REPORT ALL DATASET PROFILES AND THEIR
//* ACCESS LIST ENTRIES. CAN BE MODIFIED TO INCLUDE ONE
//* OR MORE SPECIFIC USERIDS/GROUPS.
//*
//*******************************************************************
//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(ULDF)
DISPLAY FROM(TEMP0001) LIST(PRINT) -
PAGE -
TITLE('DATASET PROFILES AND THEIR ACCESS LIST ENTRIES') -
DATE(4MD/) -
TIME(24:) -
BLANK -
ON(10,44,CH) HEADER('PROFILE NAME') -
ON(62,8,CH) HEADER('USERID/GROUP') -
ON(71,8,CH) HEADER('ACCESS')
//*------------------------------------------------------------------
//ULDFCNTL DD *
SORT FIELDS=(10,44,CH,A)
INCLUDE COND=(5,4,CH,EQ,C'0404')
OUTFIL FNAMES=TEMP0001,OUTREC=(1,490),VLFILL=X'40'
OPTION VLSHRT
/*
//
INCLUDE COND=(5,4,CH,EQ,C'0404',AND,
(62,6,CH,EQ,C'IBOPPR',OR,
62,7,CH,EQ,C'CONTRLM'))