Issue a Message Based on Exception Data

Based on the appearance of a particular string in a report, you can issue a message to a user, a group of users, or an MVS Console. You use the DO SHOUT parameter to issue the message.

  ON CLASS      = T         EXTWTR               DEST          FORM           

  PRT COPIES    LVL    USER                      DEST          MAX COPIES     

      PRINT/CDAM PARMS =                                                      

  WHEN LINE 00002 - 00002 COL 00012 - 00038 PRINT   REF NXT   CT     AND/OR

       STRING = GENERAL LEDGER REPORT                                         

    DO USER     = DVAC                  LVL    LINE     COL     -     S   T   

                                        SYNONYM =       CONCAT =              

    DO NAME     = GEN LEDGER REP               LINE     COL                  

    DO                                                                        

  WHEN LINE 00018 - 00020 COL 00040 - 00060 PRINT   REF NXT   CT     AND/OR

       STRING = LEDGER CORRUPTION                                             

    DO SHOUT    TO OPER2            URGENCY R                                 

     = A LEDGER CORRUPTION HAS OCCURRED IN %%JOBNAME %%DATE %%TIME            

    DO                                                                        

In the above example, if any pages of the report contain the string LEDGER CORRUPTION in the specified page location, a Highlighted, unrollable message is displayed on the Master console (that is, the location indicated by the OPER2 specification).