CA View - Want to Display the Last Access Date for a Report

Products

• OM Deliver
• OM View

Issue/Introduction

The client would like a way to display the Last Access Date for a report in CA View. 
Results of the research could be accompanied with a change in the ERO settings.
 

Environment

CA View

Resolution

Provided the client the following SARGRW program, to show the Last Access Date for reports in the 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 SEQ=RID DATABASE=view_hlq <=== Modify Db name 
/ PRINT JOBNAME 'JOBNAME' COL(1) 
/ PRINT ID 'REPORT ID' COL(10) 
/ PRINT EDIT(LASTACC,'MM/DD/YYYY') 'LST ACC DT' COL(43) 
/* 
//