//******************************************************************* //* 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 GROUPS AND THE USERIDS CONNECTED //* TO THOSE GROUPS. GROUPS LISTED CAN BE CONTROLLED THRU THE //* 'INCLUDE' STATEMENT AT THE BOTTOM OF THE JOB. //* //******************************************************************* //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('GROUP PROFILES AND CONNECTED USERS') - DATE(4MD/) - TIME(24:) - BLANK - ON(10,8,CH) HEADER('GROUP PROFILE') - ON(19,8,CH) HEADER('USERID') - ON(28,8,CH) HEADER('AUTHORITY') //RACFCNTL DD * SORT FIELDS=(10,8,CH,A,19,8,CH,A) INCLUDE COND=(5,4,CH,EQ,C'0102',AND,10,2,CH,EQ,C'IB') OPTION VLSHRT /*