E-mail alert of your disk occupation

Learn how to receive a daily mailing informing you of your disk occupation.

Objective: To receive a daily mailing informing you of your disk occupation.

CRTPF FILE(QGPL/DISK_OCP) RCDLEN(132) TEXT('Disk Occupation Work File')


Make the following CL program (DISK_OCP):

-
 
             PGM                                                     
             DCL        VAR(&C) TYPE(*CHAR) LEN(10)                  
             DCL        VAR(&D) TYPE(*DEC) LEN(7 2)                  
             DCL        VAR(&M) TYPE(*CHAR) LEN(256)                 
             DCLF       FILE(QGPL/DISK_OCP)                          
                                                                     
             DSPSYSSTS  OUTPUT(*PRINT) RESET(*YES) ASTLVL(*BASIC)    
             CPYSPLF    FILE(QPDSPSTS) TOFILE(QGPL/DISK_OCP) +       
                          SPLNBR(*LAST)                              
             DLTSPLF    FILE(QPDSPSTS) SPLNBR(*LAST)                 
             RCVF       RCDFMT(DISK_OCP)                             
             RCVF       RCDFMT(DISK_OCP)                             
             RCVF       RCDFMT(DISK_OCP)                             
             RCVF       RCDFMT(DISK_OCP)                             
             CHGVAR     VAR(&C) VALUE(%SST(&DISK_OCP 98 6))          
             CHGVAR     VAR(&D) VALUE(&C)                            
             CHGVAR     VAR(&M) VALUE('Actual disk occupation is' +  
                          *BCAT &C *TCAT '%')                        
/* If disk occupation is greater then 70% change to ALERT */          
             IF         COND(&D > 70) THEN(CHGVAR VAR(&M) +          
                          VALUE('ALERT :' *BCAT &M))     
            
             SNDDST     TYPE(*LMSG) TOINTNET((me@mydomain)) +     
                          DSTD('Disk Occupation') LONGMSG(&M) +      
                          SUBJECT(&M) 
             ENDPGM        

To schedule this program:
ADDJOBSCDE JOB(DISK_OCP)                   
           CMD(CALL PGM(your-library/DISK_OCP))
           FRQ(*WEEKLY)                    
           SCDDATE(*NONE)                  
           SCDDAY(*ALL)                    
           SCDTIME('3:00:00')   (*** change it if you want)
           TEXT('Disk Report')      

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.

This was last published in February 2002

Dig Deeper on Performance

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close