× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. July 2008

Re: Any Combination of Settings to Get one Large Contiguous Job Log in V5R4

One of the main reasons that I started putting code in my programs to
remove messages that I processed. Here's a code sample:
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

So, if your job does a lot of:
DLTF QTEMP/MYFILE
MONMSG CPF0000
Then change it to do:
DLTF QTEMP/MYFILE
MONMSG CPF2105 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

And your joblogs may be a LOT cleaner. This actually removed a thousand
or so pages from one joblog.
Notice that I also dropped the CPF0000 and replaced it with CPF2105. In
theory your DLTF may fail because of some other reason and I hate to
assume it was because the file wasn't there.

Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.