Can the Multi-User Facility (called MUF) give a warning message when an area reaches a certain percent full?

Document ID : KB000011878
Last Modified Date : 14/02/2018
Show Technical Document Details
Question:

I am trying to find a way to manage the space utilization for my CA Datacom databases. Can the Multi-User Facility (called MUF) give a warning message when an area reaches a certain percent full?

Answer:

It is not currently possible to produce a warning message when an area reaches a particular threshold, which would almost certainly be different for each area. However, you can use SQL to query a Datacom System Table - SYSADM.DIR_DATASET (DRZ) to establish how full an area is and then take the appropriate action.

Here is a query you can use with DBSQLPR:

//SYSIN DD *                                          
SELECT                                                
   DBID                        AS DBID,              
   AREA_NAME                   AS ARA,              
   TOTAL_TRACKS                AS "TOT TRKS",        
   TOTAL_BLOCKS                AS "TOT BLKS",        
   IN_USE_BLOCKS               AS "USED BLKS",      
   MAX_USED_BLOCKS             AS "MAX BLKS",        
   CASE                                              
      WHEN TOTAL_BLOCKS >  0 THEN                    
          DECIMAL(DECIMAL(IN_USE_BLOCKS,13,2) /      
                  DECIMAL(TOTAL_BLOCKS,13,2) * 100  
               ,4,1)                                  
      ELSE 0                                        
   END                         AS "PCT FULL",        
   CASE                                              
      WHEN TOTAL_BLOCKS >  0 THEN                    
          DECIMAL(DECIMAL(MAX_USED_BLOCKS,13,2) /    
                  DECIMAL(TOTAL_BLOCKS,13,2) * 100  
               ,4,1)                                  
      ELSE 0                                        
   END                         AS "MAX PCT FULL",    
   DATASET_NAME                AS "DATASET NAME"    
 FROM SYSADM.DIR_DATASET                            
    WHERE DATASET_NAME <> '*VIRTUAL*'                
;                                                  
/*                                                    

 

Additional Information:

As always, please contact CA Technologies support for CA Datacom if you have further questions.

File Attachments:
TEC1848862.zip