How to find large reports by line size
Article ID: 233670
Updated On:
Products
Issue/Introduction
How to find all report names available in SAR, where line size is greater than a specified limit
Environment
Release : View 12.2 and above
Resolution
Broadcom supplies various sample SARGRW's to aid in generating reports , details of which can be found here : -
SARGRW Utility to Output Database Information
and
SARGRW01 in CAI.CVDEJCL, will produce a listing similar to the SARBCH /LIST (that contains SYSOUT ID, job name, job ID, generation number, sequence number, archival date, archival time, location, lines, pages, block count, exception code, tape sequence number, and DR tape sequence number).
By replacing the SELECT ARCHDATE = -0 statement with IF LINES GT 500 the report will list all reports with more that 500 lines ,this statement can be modified accordingly
//EXAMPLE1 JOB ACCOUNT,PROGRAMMER
//*
//* SARGRW - GENERAL PURPOSE REPORT UTILITY
//*
//SARGRW EXEC PGM=SARGRW
//STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR <=== MODIFY
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PRTFILE DD SYSOUT=*
//*
//* SAMPLE CONTROL STATEMENTS TO GENERATE A REPORT SIMILAR TO
//* SARBCH /LIST WHICH CONTAINS SYSOUT ID, JOB NAME, JOB
//* ID, GENERATION NUMBER, SEQUENCE NUMBER, ARCHIVAL
//* DATE, ARCHIVAL TIME, LOCATION, LINES, PAGES, DISK
//* BLOCKS, EXCEPTION CODE, TAPE SEQUENCE NUMBER, AND
//* DR TAPE SEQUENCE NUMBER. THE REPORT WILL LIST ALL REPORTS WITH MORE THAN 500 LINES
//*
//SYSIN DD *
/CONTROL DATABASE= VIEW DB HLQ <=== MODIFY
RULER=YES
/IF LINES GT 500
/TITLE 'Listing of Sysouts'
/PRINT ID 'ID'
/PRINT JOBNAME 'Jobname'
/PRINT JOBID 'Jobid'
/PRINT EDIT(GEN,'zzzz9') ' Gen'
/PRINT EDIT(SEQ,'zzzz9') ' Seq'
/PRINT ARCHDATE 'Arc Date'
/PRINT ARCHTIME 'Arc Time'
/PRINT LOC 'Loc'
/PRINT EDIT(LINES,'ZZZZZZZZ9') ' Lines'
/PRINT EDIT(PAGES,'ZZZZZZZ9') ' Pages'
/PRINT EDIT(DISKBLKS,'ZZZZZZ') 'Blocks'
/PRINT XCODE 'Xcode'
/PRINT EDIT(TAPESEQ,'ZZZZZ') ' Tseq'
/PRINT EDIT(DRSEQ,'ZZZZZ') 'DRseq'
/*
//
Feedback
