book
Article ID: 122750
calendar_today
Updated On:
Feedback
Subscribe
Issue/Introduction
Is there a SARGRW sample report that shows the last date when sysouts/reports were last accessed?
Resolution
This sample report lists out all the sysout and shows the date last accessed://XXXXXXXX JOB ... //SARGRW EXEC PGM=SARGRW //STEPLIB DD DISP=SHR,DSN=Your.CVDELOAD //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5),,CONTIG) //SYSUDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //PRTFILE DD SYSOUT=* //SYSIN DD * /CONTROL SEQ=RID DATABASE=view_hlq /TITLE 'DATE LAST ACCESSED REPORT' /PRINT ORIGIN 'ORIGIN' COL(1) /PRINT JOBNAME 'JOBNAME' COL(10) /PRINT ID 'ID' COL(20) /PRINT LASTACC 'LAST ACCESSED' COL(54) /* // Please note that this should be used as a reference point and further research should be done on any reports that are being considered for deletion. For instance, a report could be deleted and redefined, which would make the Date Last Accessed field blank.
Additional Information
The output looks like this: SARGRW VIEW.SYSTEM1 DATE LAST ACCESSED REPORT ORIGIN JOBNAME ID LAST ACCESSED SAR SCOTTRPT AAASGL 06/19/2018 EXP SARBUN1C ABC123 11/28/2018 EXP SARBUN1C ABC123 10/02/2018 EXP SARBUN1C ABC123 01/06/2017 EXP SARBUN1C ABC123 EXP SARBUN1C ABC123 EXP SARBUN1C ABC123 EXP SARBUN1C ABC123 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123 12/29/2015 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123 04/24/2018 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123 EXP XTICA0RC ABC123