Is there a VIEW program to determine number of disk blocks used?

Products

• View

Issue/Introduction

 below is a VIEW SARGRW program that can be used to determine the number of disk blocks being used for reports that are on the disk layer

Environment

Release : 14.0

Component : View

Resolution

 

//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    <=== Modify DB HLQ
/TITLE 'LISTING OF SYSOUTS WITH DISK BLOCKS'                               
/SELECT GEN = -0                                          
/DEFINE CNT BIN                                           
/DEFINE DBLKS BIN                                         
/SET CNT = CNT+1                                          
/SET DBLKS = DBLKS+DISKBLKS                               
/PRINT ID  'ID'   
/PRINT JOBNAME  'JOBNAME'                  
/PRINT JOBID    'JOBID'                    
/PRINT GEN      'GEN  '                    
/PRINT SEQ      'SEQ  '                    
/PRINT ARCHDATE 'ARC DATE'                 
/PRINT ARCHTIME 'ARC TIME'                 
/PRINT EDIT(LINES,'ZZZZZZZZ9')  '    LINES'
/PRINT EDIT(PAGES,'ZZZZZZZZ9')  '    PAGES'
/PRINT EDIT(DISKBLKS,'ZZZZZZ') 'BLOCKS'    
/ON ENDDATA                                
/   PRINT 'TOTAL SYSOUT='||CNT COL(1)      
/   PRINT 'TOTAL BLOCKS='||DBLKS COL(1)    
/END                                       
/*                                         
//