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 first published in February 2002
This Content Component encountered an error

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close