//TOMCRPSD JOB ('ESRF DEVELOPMENT'),'TOM.CARNEAL', // CLASS=A,MSGCLASS=X,MSGLEVEL=(0,0), // NOTIFY=&SYSUID //* //******************************************************************** //* * //* ESRF 'MOT' RACF SYSTEM ACCESS ANALYSIS. * //* * //*------------------------------------------------------------------* //* * //* RUN PSEUDO RESOURCE NAME GENERATOR. * //* * //******************************************************************** //* //EKCRRPSD EXEC PGM=EKCRRPSD,REGION=0K //STEPLIB DD DSN=TEST.ESRF210.ESRFLOAD,DISP=SHR //SYSPRINT DD DSN=&&SYSPRINT,DISP=(,PASS), // UNIT=VIO,SPACE=(CYL,(1,1)) //IRACFDB DD DSN=TOMC.AA.VSAM,DISP=SHR //RSNAMES DD DSN=TOMC.RACF.PRSNS,DISP=SHR //DSNAMES DD DSN=&DSNAMES,DISP=(NEW,PASS), // SPACE=(CYL,(1,1),RLSE),UNIT=VIO //RSNAMES DD DSN=TOMC.RACF.PRSNS,DISP=SHR //SYSIN DD * //* //* SORT DATASET MASKS IN NAME ORDER. //* //SORTDSN EXEC PGM=SORT //SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR //SORTIN DD DSN=&DSNAMES,DISP=(OLD,DELETE) //SORTOUT DD DSN=TOMC.RACF.PDSNS,DISP=SHR //SYSOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=(21,44,CH,A) //* //* 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(RRPSD),DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * TITLE=EKCRRPSD -- (GENERATE PSEUDO DATASET/RESOURCE NAMES)