How to audit a report database to print the date and time a report was created?
Release : 14.0
Component : View/Deliver
Here is a SARGRW program to produce a report of the most recent occurrences of 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 SEQ=RID DATABASE=view_hlq
/TITLE 'LISTING OF MOST RECENT OCCURRENCES OF REPORTS'
/DEFINE RIDSAVE CHAR(32)
/IF ID NE RIDSAVE
/ PRINT ID 'ID'
/ PRINT JOBNAME 'JOBNAME'
/ PRINT JOBID 'JOBID'
/ PRINT GEN 'GEN '
/ PRINT SEQ 'SEQ '
/ PRINT ARCHDATE 'ARC DATE'
/ PRINT ARCHTIME 'ARC TIME'
/ PRINT LOC 'LOC'
/ PRINT LINES 'LINES '
/ PRINT PAGES 'PAGES '
/ PRINT DISKBLKS 'BLOCKS'
/ PRINT XCODE 'XCODE'
/ PRINT TAPESEQ 'TSEQ '
/ PRINT DRSEQ 'DRSEQ'
/ SET RIDSAVE = ID
/END
/END
/*
//