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

Document ID : KB000010223
Last Modified Date : 14/02/2018
Show Technical Document Details
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
Instructions:

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 

/* 

//