//*
//*******************************************************************
//*
//* THIS WILL READ THE RACF DATABASE FLATFILE AND USE THE SORT
//* TOOL TO SORT THE DATA AND GENERATE A REPORT.
//*
//* FIRST STEP:
//* THIS STEP WILL REPORT ALL DATASET PROFILES THAT THE SPECIFIED
//* USERID/GROUP BELONGS TO.
//*
//* SECOND STEP:
//* THIS STEP WILL REPORT ALL GENERAL RESOURCE CLASS PROFILES THAT
//* THE SPECIFIED USERID/GROUP BELONGS TO.
//*
//*******************************************************************
//REPORT1 EXEC PGM=ICETOOL
//RACFDATA DD DISP=SHR,DSN=IDIS.PROD.RACF.IRRDBU00.UNLOAD(0),
// VOL=(,RETAIN)
//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=U0011
//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
/*
//****************************************************************
//REPORT2 EXEC PGM=ICETOOL
//RACFDATA DD DISP=SHR,DSN=IDIS.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=U0011
//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('GEN RES PROFILES AND THEIR ACCESS LIST ENTRIES') -
DATE(4MD/) -
TIME(24:) -
BLANK -
ON(10,44,CH) HEADER('PROFILE NAME') -
ON(257,8,CH) HEADER('CLASS') -
ON(266,8,CH) HEADER('USERID/GROUP') -
ON(275,8,CH) HEADER('ACCESS')
//*------------------------------------------------------------------
//ULDFCNTL DD *
SORT FIELDS=(10,44,CH,A,257,8,CH,A,266,8,CH,A)
INCLUDE COND=(5,4,CH,EQ,C'0505')
OUTFIL FNAMES=TEMP0001,OUTREC=(1,490),VLFILL=X'40'
OPTION VLSHRT
/*