View - Create a listing of the most recent occurrence of all Sysout/Report IDs in a database
search cancel

View - Create a listing of the most recent occurrence of all Sysout/Report IDs in a database

book

Article ID: 219511

calendar_today

Updated On:

Products

Deliver View

Issue/Introduction

How to audit a report database to print the date and time a report was created?

Environment

Release : 14.0

Component : View/Deliver

Resolution

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                                                 
/*                                                   
//