How to find large reports by line size
search cancel

How to find large reports by line size

book

Article ID: 233670

calendar_today

Updated On:

Products

View

Issue/Introduction

How to find all report names available in SAR, where line size is greater than a specified limit

Environment

Release : 12.2 and above

Component : View

Resolution

Broadcom supplies various sample SARGRW's to aid in generating reports. ( details of which can be found in the VIEW documentation.)

 

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 inserting the following line AFTER the control statement, the result would be to list reports with 5000lines or more.

/IF LINES GT 5000

 

 

//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 LISTING CONTAINS 
//* REPORTS THAT WERE ARCHIVED TODAY. 
//* 
//SYSIN DD * 
/CONTROL DATABASE=VIEW.SYSTEM1 
 RULER=YES 
/SELECT ARCHDATE = -0 
/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' 
/* 
//