//TOMCDBL JOB ('ESRF DEVELOPMENT'),'TOM.CARNEAL', // CLASS=A,MSGCLASS=X,MSGLEVEL=(0,0), // NOTIFY=&SYSUID //* //******************************************************************** //* * //* ESRF RACF SYSTEM ACCESS ANALYSIS. * //* * //*------------------------------------------------------------------* //* * //* BUILD ESRF/RACF VSAM DATABASE USING DATA FROM * //* THE CURRENT RACF DATABASE. * //* * //******************************************************************** //* //* BUILD EMPTY VSAM CLUSTER. //* - //DEFINE EXEC PGM=IDCAMS,REGION=0K //SYSPRINT DD SYSOUT=* DELETE TOMC.AA.VSAM PURGE DEFINE - CLUSTER( - NAME(TOMC.AA.VSAM) - RECORDS(256,256) - RECORDSIZE(1024,4096) - KEYS(156,0) - REUSE - VOLUME(EKSTG2) - ) //* //* EXTRACT INFORTMATION FROM THE RACF DATABASE. //* - //UNLOAD EXEC PGM=IRRDBU00,PARM='NOLOCKINPUT' //SYSPRINT DD SYSOUT=* //INDD1 DD DSN=SYS1.RACFDS,DISP=SHR //OUTDD DD DSN=&RACF,DISP=(NEW,PASS), // UNIT=VIO,SPACE=(CYL,(10,10)), // DCB=(BLKSIZE=4096) //* //* BUILD ESRF/RACF DATABASE USING RACF DATABASE EXTRACT DATA. //* //EKCRRCDB EXEC PGM=EKCRRCDB,REGION=0K //STEPLIB DD DSN=TEST.ESRF210.ESRFLOAD,DISP=SHR //SYSPRINT DD DSN=&&SYSPRINT,DISP=(NEW,PASS), // UNIT=VIO,SPACE=(CYL,(1,1)) //RACFUNLD DD DSN=&RACF,DISP=(OLD,DELETE) //EKCRVSAM DD DSN=TOMC.AA.VSAM,DISP=SHR //SORTOUT DD UNIT=VIO,SPACE=(CYL,(10,10)) //WORK1 DD UNIT=VIO,SPACE=(CYL,(10,10)) //WORK2 DD UNIT=VIO,SPACE=(CYL,(10,10)) //WORK3 DD UNIT=VIO,SPACE=(CYL,(10,10)) //WORK4 DD UNIT=VIO,SPACE=(CYL,(10,10)) //WORK5 DD UNIT=VIO,SPACE=(CYL,(10,10)) //WORK6 DD UNIT=VIO,SPACE=(CYL,(10,10)) //* //* CONVERT PRINT OUTPUT TO HTML. //* //HTML EXEC PGM=ESRFHTML //STEPLIB DD DSN=TEST.ESRF210.ESRFLOAD,DISP=SHR //PRINTIN DD DSN=&&SYSPRINT,DISP=(OLD,DELETE) //HTMLOUT DD DSN=TOMC.ESRF.HTML(RCDB),DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * TITLE=EKCRRCDB -- (BUILD RACF ACCESS ANALYSIS VSAM CLUSTER)