MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » June 2008

Re: How to clear the joblog



fixed


On 13/06/2008, at 12:42 AM, beppecosta wrote:

CPI9200 and CPI9153 are sent to the RPG procedure that opens the file and I can remove them with QMHRCVPM directly from the RPG immediately after the file is opened.

Yes, it's easy when the messages are sent to the caller.


However CPI9150 is sent to QTSMGAFT pgm and CPI9151 to QCNSRDDM pgm that are resent by these IBM modules when they complete.

So they are associated with call stack entries that are no longer active. That's harder to deal with.


I've tried with different stack counter values, message type, etc. but these two messages still remain in the job log.

The only way to get at these messages is via the 4-byte Message Key of the message.


Any other suggestion ?

You could use either the List Job Log Messages (QMHLJOBL) API or the Open List of Job Log Messages (QGYOLJBL) API. Iterate over the list from the end removing any unnecessary messages. You'd need to send a marker message so you could determine when to stop.

You could use the Receive Program Message (QMHRCVPM) API or Remove Program Message (QMHRMVPM) API (or the corresponding CL commands) to remove messages by message key. You'd need to know the key and since you don't have that information available you'd have to guess. Simplest is probably to send a marker message and save the key before starting the application process, send another marker message and save the key at the end of the process, then generate message markers between those two saved values and attempt to remove a message with that key. Monitor and handle CPF2410 because not all message keys will have an associated message.

The message marker is simply a 4-byte hexadecimal value so by mapping it to a 4-byte integer you can easily increment between the low mark and high mark.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------








Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact