RE: Preventing Writes to Log file

[rob@xxxxxxxxx]

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