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:

Microsoft Office 365 Servers and Random Errors Issue Microsoft Office 365 Servers and Random Errors Issue
Posted by November 14, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending/Resending Emails Using a MIME File with MAILTOOL Sending/Resending Emails Using a MIME File with MAILTOOL
Posted by November 8, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending an HTML Email on Your IBM i Using MAILTOOL Sending an HTML Email on Your IBM i Using MAILTOOL
Posted by November 1, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Transferring License Keys from One System to Another Transferring License Keys from One System to Another
Posted by October 31, 2022
BVSTools >> BVSTools Software Discussion
Calculating the Size of a File Before Base64 Encoding Calculating the Size of a File Before Base64 Encoding
Posted by August 13, 2022
Programming >> RPG Programming
GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File
Posted by August 11, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
GreenTools for Google Apps (G4G) v15.20 Now Supports Shortcuts GreenTools for Google Apps (G4G) v15.20 Now Supports Shortcuts
Posted by August 6, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Groups Admin Authority Instructions GreenTools for Microsoft Apps (G4MS) Groups Admin Authority Instructions
Posted by July 26, 2022
BVSTools >> BVSTools Software Discussion >> GreenTools for Microsoft Apps (G4MS) Specific Discussion
GreenTools for Microsoft Apps (G4MS) v9.10 Now Includes OneDrive Functions that Work With Groups/Shared Drives GreenTools for Microsoft Apps (G4MS) v9.10 Now Includes OneDrive Functions that Work With Groups/Shared Drives
Posted by July 19, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
GreenTools for Google Apps (G4G) v15.10 Now Includes Drive Functions that Work With Shared Drives GreenTools for Google Apps (G4G) v15.10 Now Includes Drive Functions that Work With Shared Drives
Posted by July 15, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
GreenTools for Microsoft Apps (G4MS) v9.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page GreenTools for Microsoft Apps (G4MS) v9.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page
Posted by July 4, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
What Objects Should I Omit from Replication to Ensure My License Keys Work on my HA/DR System? What Objects Should I Omit from Replication to Ensure My License Keys Work on my HA/DR System?
Posted by June 27, 2022
BVSTools >> BVSTools Software Discussion
GreenTools for Google Apps (G4G) v15.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page GreenTools for Google Apps (G4G) v15.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page
Posted by May 3, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
How Do I Switch From MAILTOOL Plus to GreenTools for Google (OAuth 2.0) or Microsoft Office 365? How Do I Switch From MAILTOOL Plus to GreenTools for Google (OAuth 2.0) or Microsoft Office 365?
Posted by April 18, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
PTFs Issued for SSL/TLS Issues PTFs Issued for SSL/TLS Issues
Posted by March 12, 2022
IBM Power Systems >> PTF Watch

Reply




Copyright 1983-2020 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).