//******************************************************************* //* 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 USERIDS THAT HAVE A PASSWORD INTERVAL //* NOT EQUAL TO 60 DAYS //* //* WILL SORT BY INTERVAL VALUE THEN USERID //* //******************************************************************* //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=U22 //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 PASSWORD INTERVALS ^= 60') - DATE(YMD/) - TIME(12:) - BLANK - ON(10,8,CH) HEADER('USERID') - ON(79,20,CH) HEADER('USER NAME') - ON(100,8,CH) HEADER('DEF GRP') - ON(118,10,CH) HEADER('LAST INIT') - ON(64,3,CH) HEADER('INTERVAL') - ON(129,34,CH) HEADER('INST DATA (1ST 34 CHARS)') /* //*------------------------------------------------------------------ //RACFCNTL DD * SORT FIELDS=(64,3,CH,D,10,8,CH,A) INCLUDE COND=(5,4,CH,EQ,C'0200',AND, 64,3,CH,NE,C'060') OPTION VLSHRT /*