On 11/06/2008, at 10:56 PM, beppecosta wrote:
I have a CLLE program (say PGMA) that reads a list o items from a
dtaq.
For each item, PGMA calls a RPGLE program (say PGMB) that accesses
another system via a DDM file and returns the requested information.
At end, PGMA writes in the joblog the number of items read and
after a delay time, loops reading again.
However the PGMA joblog has for each group of items - apart from a
count message sent by the PGMA itself - at least 4 other messages:
CPI9150 Remote database job started.
CPI9200 DDM object xxxx in yyyy uses remote object ...
CPI9151 Remote database job ended.
CPI9153 1 DDM conversations ended
How can I remove only these messages and just keep the count
message sent by PGMA ?
RCVMSG MSGTYPE(*LAST) will work if the message was sent to a call
message queue still on the stack. You will need to examine the
messages above to check the from and to programs to determine this.
If the messages are accessible then loop over RCVMSG until either no
more messages are found or the message ID is not one of the above.
I would RCVMSG *LAST RMV(*NO) MSGID(*MSGID) KEYVAR(&KEYVAR) then
check the message ID against the list of message to remove then if
found run RCVMSG again specifying RMV(*YES) MSGKEY(&KEYVAR).
I would expect you'd need to remove the messages from within PGMB
therefore a CL *MODULE bound to the RPG module could be used or the
equivalent Message Handling APIs could be used directly.
Otherwise you could use the List Joblog Messages API but that's
overkill.
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 / \
--------------------------------------------------------------------
