REXX for CA JCLCheck and JCLNeat › Subroutines for CA JCLCheck › Message Processing Subroutine for CA JCLCheck

Message Processing Subroutine for CA JCLCheck

This processing subroutine is invoked when CA JCLCheck displays a message, but only if the REXXMSG option is specified. You can place any message-related logic here you want. You can also change the message severity.

You can use the IF statement to interrogate the message number, message severity, and message text.

    /*****************************************************************/
    /*    Message Processing Logic                                   */
    /*****************************************************************/
A   MSG_PROCESSING:  
    /*                                                                */
B   SEV_CHANGED = 'N    
    /*                                                                */
    /* Suppress the 'SYSIN DD STATEMENT GENERATED' message.           */
C   IF MSG.NUMBER = '073' THEN DO     
       MSG.SEVERITY = '-1'         
       SEV_CHANGED = 'Y'       
       END      
    /*                                                                */
D   IF SEV_CHANGED = 'Y' THEN DO          
       SAY 'Severity of message ' MSG.NUMBER ' set to ' MSG.SEVERITY
       SAY 'The original message: ' MSG.MESSAGE     
       END       
    /*                                                                */
E   Return 

A

Defines the name of this subroutine to the DO WHILE loop.

B

SEV_CHANGED is a local variable for use in this subroutine.

C

When the message number is '073', it should be suppressed (MSG.SEVERITY is set to '-1').

D

If the message severity was changed, display the message number, new message severity, and message text in SYSTSPRT.

E

Causes control to return to the main DO WHILE loop.