RE: Preventing Writes to Log file

["Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx>]

Great.  Thanks for all your helpful suggestions, Rob.

Brian.

-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] 
Sent: Thursday, December 01, 2005 12:52 PM
To: Midrange Systems Technical Discussion
Subject: RE: Preventing Writes to Log file

I have had long running joblogs that were tough to wade through the 
clutter.  Even if I looked at the spool version and searched for
"Escape". 
 I ended up modifying much of the CL.  Basically if I don't want to see 
the escape message I remove it from the joblog.
Like instead of a simple MONMSG to ignore the message I'll DO the 
following:
 MONMSG CPF9801 EXEC(DO) /* Object does not exist */
   /* Remove message from cluttering joblog */
   RCVMSG MSGTYPE(*NEXT) MSGKEY(*TOP) RMV(*YES) KEYVAR(&KEYVAR) +
          MSGDTA(&DATA) MSGID(&MSGID)
 EndDo

If you want the DCL's here they are:
 DCL  &DATA        *CHAR  30  /* Message data from RCVMSG */
 DCL  &KEYVAR      *CHAR   4  /* Message key from RCVMSG */
 DCL  &MSGID       *CHAR   7  /* Message id from RCVMSG */
Not used in this program but useful if you did actually want the details

from the message.

Rob Berendt