View - Process to Identify the Last Access Date of a Report

Products

• Deliver
• View

Issue/Introduction

Is there any View function/report that can identify when a report(s) was last accessed?

Resolution

The following SARGRW program will show the "Last Access" date for reports in a View database:

//XXXXXXXX JOB ...
//SARGRW01 EXEC PGM=SARGRW 
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD   <=== Modify, if used
//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 DATABASE=view_hlq    <=== Modify DB name
/TITLE 'LISTING OF SYSOUTS'                               
/PRINT ID 'ID'                                            
/PRINT JOBNAME 'JOB NAME' 
/PRINT LASTACC 'LAST ACCESSED' 
/ON ENDDATA                                               
/ PRINT 'TOTAL SYSOUT='||CNT COL(1)                    
/*
//

If SARGRW is not in the View 12.2 environment, put on the following PTFs:

 . View 12.2 INC02, PTFs RO71990 and RO71993. 
 . View 12.2 INC05, PTFs RO84335 and RO84337. 

If the SARGRW PTFs are not on, the SARSAM8/ADLIST program can also be used to show Last Access date.