How to Identify a CA View Database's Large Reports Using the SARGRW Program.

Products

• Deliver
• View

Issue/Introduction

In trying to find additional space on the CA View database disk layer, the SARGRW program can be used to identify large reports, for possible removal.

 

Environment

CA View 12.2 and Higher

Resolution

Below is a SARGRW program that lists reports, in descending order, by the number of LINES. 

The //OUTFILE output file is a set of "/DELETE DISK ID=... GEN=... SEQ=..." cards, in the same descending order of the report, that can be used as input to the SARBCH program (in the //SYSIN DD ... statement). 

 

//XXXXXXXX JOB ... 

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

//OUTFILE DD DISP=(,CATLG,DELETE), 

// DSN=xxxxxx.xxxxxx.CARDS, 

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800), 

// SPACE=(TRK,(5,1),RLSE), 

// UNIT=xxxx,VOL=SER=xxxxxx 

//PRTFILE DD SYSOUT=* 

//SYSIN DD * 

/CONTROL RULER=YES DATABASE=view_hlq <=== Modify DB name 

/SORT LINES-D 

/TITLE 'LISTING OF SYSOUTS BY GREATEST NUMBER OF LINES' 

/DEFINE CNT BIN 

/SET CNT = CNT+1 

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

/OUTPUT '/DELETE DISK ID=' COL(1) 

/OUTPUT ID COL(17) 

/OUTPUT ' GEN=' COL(49) 

/OUTPUT EDIT(GEN,'99999') COL(54) 

/OUTPUT ' SEQ=' COL(59) 

/OUTPUT EDIT(SEQ,'99999') COL(64) 

/ON ENDDATA 

/ PRINT 'TOTAL SYSOUT='||CNT COL(1) 

/END 

/* 

//