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

Products

• OM Deliver
• OM View

Issue/Introduction

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

Environment

OM View 14.0

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       
/DEFINE CNT BIN                                 
/SET CNT=CNT+1                                  
/TITLE 'LISTING OF SYSOUTS'                     
/PRINT ID 'ID'                                  
/PRINT JOBNAME 'JOB NAME'                       
/PRINT LASTACC 'LAST ACCESSED'                  
/ON ENDDATA                                     
/PRINT 'TOTAL SYSOUT='||CNT COL(1)              
/*            
//

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