book
Article ID: 122750
calendar_today
Updated On: 12-21-2018
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