bvstone

Sending an Email Using JOBWATCH When a Job Enters MSGW Status

Posted:

Sending an Email Using JOBWATCH When a Job Enters MSGW Status

This is an example of how to use Job Watch (JOBWATCH) to send an email to one or more people when a job name the Message Wait (MSGW) status.  This particular example uses the MAILTOOL command to deliver the email.

1.  Add JOBWATCH to your library list.

ADDLIBLE LIB(JOBWATCH) 

2.  Type JOBWATCHCF on the command line and press Enter to enter the Job Status Maintenance Screen.

3.  On the top empty line of the subfile, enter a 1 on the Opt (Option) column to add a new entry.  Type  MSGW on the Status Line and just type CALL on the command line and press Enter.  

You will now have an entry that looks like this:

4.  Enter the option 2 on the Opt line next to the new entry you just created.  This will display the Enter Extended Command screen.  You now can fill in the rest of the information for this program call.  

The main thing to note is that for each parameter that you want to pass to the program, you should enter the replacement variable enclosed in single quotes.

A list of replacement variables and their data sizes can be seen here in the documentation.

My example command is as follows:

CALL PGM(MYLIB/MSGWEMAIL) PARM('&J' '&S' '&U' '&N' '&F' '&E')  

This command will call program MSGWEMAIL in library MYLIB and pass along the values for the Job Name, Job Status, User ID, Job Number, Function (normally the program name) and an extended message for the error.  Note here than you do not need to use the library name on the program to call as long as the library is in the library list of the JOBWATCH job that is running.  But, it is a good idea just in case.

5.  We now need to create program MSGWEMAIL that will accept the parameters and send an email to the appropriate recipient:

PGM        PARM(&JOB &JOBSTATUS &USER &JOBNBR &FUNCTION +           
             &ERRORTEXT)                                            
DCL VAR(&JOB)       TYPE(*CHAR) LEN(10)                             
DCL VAR(&JOBSTATUS) TYPE(*CHAR) LEN(4)                              
DCL VAR(&USER)      TYPE(*CHAR) LEN(10)                             
DCL VAR(&JOBNBR)    TYPE(*CHAR) LEN(6)                              
DCL VAR(&FUNCTION)  TYPE(*CHAR) LEN(10)                             
DCL VAR(&ERRORTEXT) TYPE(*CHAR) LEN(4096)                           
DCL VAR(&SUBJECT)   TYPE(*CHAR) LEN(1024)                           
DCL VAR(&MESSAGE)   TYPE(*CHAR) LEN(4096)
DCL VAR(&LEN)       TYPE(*DEC) LEN(4 0)                               
                                                                    
ADDLIBLE   LIB(MAILTOOL)                                            
MONMSG     MSGID(CPF0000)                                           
                                                                    
CHGVAR     VAR(&SUBJECT) VALUE('Job ' *BCAT &JOB *BCAT +            
             ' is in ' *BCAT &JOBSTATUS *BCAT ' status')            
                                                                    
CHGVAR     VAR(&MESSAGE) +                                          
           VALUE('JOB: ' *BCAT &JOB *BCAT +                         
             ' is in ' *BCAT &JOBSTATUS *BCAT ' status')    

CHGVAR     VAR(&LEN) VALUE(%LEN(&ERRORTEXT))        
                                                                                                                 
CHGVAR     VAR(&MESSAGE) +                                  
           VALUE('JOB: ' *BCAT &JOB *BCAT +                 
                 '\n' *BCAT +                               
                 'JOB NUMBER: ' *BCAT &JOBNBR *BCAT +       
                 '\n' *BCAT +                               
                 'STATUS: ' *BCAT &JOBSTATUS *BCAT +        
                 '\n' *BCAT +                               
                 'FUNCTION: ' *BCAT &FUNCTION *BCAT +       
                 '\n' *BCAT +                               
                 %SST(&ERRORTEXT 1 &LEN))                               
                                                            
MAILTOOL   TOADDR(bvstone@bvstools.com) +     
             FROMADDR(bvstone@gmail.com) +                
             SUBJECT(&SUBJECT) MESSAGE(&MESSAGE) +        
             CONFIG('/bvstools/bvstone_mailtool.json')    
                                                          
ENDPGM                                                                  

You will notice than I am getting the length of only the &ERRORTEXT variable.  That's because it's the only one larger than 32 bytes.  In some cases parameters larger than 32 bytes will contain "garbage" because the data is passed by reference.  So, we use the CL %LEN Built In Function (BIF) to retrieve the actual length of the string.

6.  Now, sometimes users will want to only send an email when a specific job enters MSGW status.  This can easily be accomplished by putting a conditional statement around the MAILTOOL command:

...

IF         COND(&JOB *EQ 'QZDASOINIT') THEN(DO)               
MAILTOOL   TOADDR(bvstone@bvstools.com) +                     
             FROMADDR(bvstone@gmail.com) +                    
             SUBJECT(&SUBJECT) MESSAGE(&MESSAGE) +            
             CONFIG('/bvstools/bvstone_mailtool.json')        
ENDDO                                                         

...

When all done, the JOBWATCH application will send the email.  

 

Feel free to contact me with any questions.




Latest Posts:

MAILTOOL Updated to Allow Failed Message on Invalid Recipient MAILTOOL Updated to Allow Failed Message on Invalid Recipient
Posted by May 20, 2018
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G) Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G)
Posted by April 15, 2018
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
IBM i Related Survey Available IBM i Related Survey Available
Posted by April 7, 2018
IBM Power Systems >> (QGPL) IBM i
BVSTools Releases Braintree Webhook Open Source Application - Node.js BVSTools Releases Braintree Webhook Open Source Application - Node.js
Posted by April 5, 2018
Programming >> Open Source
BVSTools Now Offering Web Services (BETA) BVSTools Now Offering Web Services (BETA)
Posted by April 3, 2018
BVSTools >> BVSTools Announcements
Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2 Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2
Posted by March 29, 2018
Programming >> Web Programming
Still on V7R1 or Earlier?  Here's Why You Should Upgrade NOW! Still on V7R1 or Earlier? Here's Why You Should Upgrade NOW!
Posted by February 21, 2018
IBM Power Systems >> (QGPL) IBM i
Converting a MMDDYY date format to YYMMDD for Sorting Using SQL Converting a MMDDYY date format to YYMMDD for Sorting Using SQL
Posted by February 16, 2018
Programming >> RPG Programming
Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G) Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G)
Posted by February 3, 2018
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion
Removing Unwanted Characters from a String with RPG Removing Unwanted Characters from a String with RPG
Posted by February 2, 2018
Programming >> RPG Programming
GETURI Version 8.10 Released GETURI Version 8.10 Released
Posted by January 23, 2018
BVSTools >> BVSTools Announcements >> Get URI (GETURI) Specific Announcements
BVSTools is Now a Sponsor of ALLAS400S.com BVSTools is Now a Sponsor of ALLAS400S.com
Posted by January 17, 2018
BVSTools >> BVSTools Announcements
Service Pack SP171219 Released for G4PP v3.10 Service Pack SP171219 Released for G4PP v3.10
Posted by December 20, 2017
BVSTools >> BVSTools Announcements >> GreenTools for PayPal (G4PP) Specific Announcements
GETURI Now Requires Minimum OS of V7R1 or Higher GETURI Now Requires Minimum OS of V7R1 or Higher
Posted by December 12, 2017
BVSTools >> BVSTools Software Discussion >> Get URI (GETURI) Specific Discussion
Need Help Updating Your Software Versions?  We Can Help. Need Help Updating Your Software Versions? We Can Help.
Posted by December 8, 2017
BVSTools >> BVSTools Announcements

Reply




Copyright 1983-2018 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).