//CACJGRSR JOB (ACCOUNT),'FSO / SRR MVS AUDIT', // CLASS=A,MSGCLASS=X ,USER=SRRAUDT //* //SYSOUT OUTPUT DEFAULT=YES,CLASS=*,OUTDISP=(HOLD,HOLD),JESDS=ALL //* //* FIND ALL SYSDSN RESOURCES ALLOCATED IN THE SYSTEM //* // SET SRRI=SYS2.SRRAUDIT // SET SRRU=SYS3.SRRAUDIT //* //PROCLIB JCLLIB ORDER=&SRRI..CNTL //* //JSTEP010 EXEC PGM=CACPGRS0 //STEPLIB DD DISP=SHR,DSN=&SRRI..LOADLIB //SYSPRINT DD DISP=(NEW,PASS),DSN=&&SYSPRINT, // UNIT=VIO,SPACE=(TRK,(15,15)), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PS) //* //*** SORT BY JOBNAME/STC //* //JSTEP020 EXEC PGM=SORT //SORTMSG DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=(1,80,AQ,A) END //SORTIN DD DISP=OLD,DSN=&&SYSPRINT //* //SORTOUT DD SYSOUT=* //SORTWK01 DD UNIT=VIO,SPACE=(CYL,(5)) //