View - Database Space Usage

Products

• View

Issue/Introduction

I need to find the total space used for all my View reports, both disk and tape. 

In running a SARDBASE STATUS FULL, the database BLKSIZE is shown in the statistics.

Environment

Release : 14.0

Resolution

The customer was provided the following SARGRW program for some database size statistics:

//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 name
/TITLE 'LISTING OF SYSOUTS AND BLOCKS'                               
/DEFINE CNT BIN(4)  
/DEFINE DCNT BIN(4)                         
/DEFINE TCNT BIN(4)                         
/DEFINE DBLKS BIN(4)                        
/DEFINE TBLKS BIN(4)                        
/SET CNT = CNT+1                            
/IF DISK = 'Y'                              
/ SET DCNT = DCNT+1                         
/ SET DBLKS = DBLKS+DISKBLKS                
/END                                        
/IF TAPE = 'Y'                              
/ SET TCNT = TCNT+1                         
/ SET TBLKS = TBLKS+TAPEBLKS                
/END                                        
/ON ENDDATA                                 
/   PRINT 'TOTAL SYSOUT='||CNT COL(1)       
/   PRINT 'TOTAL DISK SYSOUT='||DCNT COL(1) 
/   PRINT 'TOTAL DISK BLOCKS='||DBLKS COL(1)
/   PRINT 'TOTAL TAPE SYSOUT='||TCNT COL(1) 
/   PRINT 'TOTAL TAPE BLOCKS='||TBLKS COL(1)
/END                                        
/*
//

 . The number of cylinders of disk space would be calculated by:

 . . ((TOTAL DISK BLOCKS) x (Database BLKSIZE)) / 850000

 . The number of bytes of tape space would be calculated by:

 . . (TOTAL TAPE BLOCKS) x 32K