d RemoveMessage pr ExtPgm('QMHRMVPM')
d Rmv_PgmQue 10a
d Rmv_StkCnt 8b 0
d Rmv_MsgKey 4a
d Rmv_Remove 10a
d Error_Code 116a
d Rmv_PgmQue s 10A Inz('*')
d Rmv_StkCnt s 8B 0 Inz(0)
d Rmv_MsgKey s 4A Inz(*Blank)
d Rmv_Remove s 10A Inz('*ALL')
d Error_Code ds Inz
d ErByteProv 9B 0
d ErByteAval 9B 0
d ErExceptId 7A
d ErReserved 1A
d ErExcptDta 100A
d SDS
d qErr *STATUS
d qPgmStatusDS 1 429
d qPgmName 1 10
d qParms 37 39 0
d qExceptT 40 42
d qExceptN 43 46
d qLibName 81 90
d qExceptD 91 170
d qJobName 244 253
d qUsrName 254 263
d qJobNbr 264 269 0
/free
RemoveMessage(
Rmv_PgmQue:
Rmv_StkCnt:
Rmv_MsgKey:
Rmv_Remove:
Error_Code);
/end-free
Hope this helps,
Ken Slaugh | Director of Technical Development
ken.slaugh@xxxxxxxxxx
CMI | Chouinard & Myhre, Inc.
P 707.795.1512 x118 | F 707.795.0350
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kurt Anderson
Sent: Thursday, June 24, 2010 2:10 PM
To: 'RPG programming on the IBM i / System i'
Subject: Removing Job Log Messages
I created a service program called $RemoveProcedureJobLogEntries().
It will attempt to remove all messages generated by the calling procedure using the QMHRMVPM API by using the *ALL remove code. Unfortunately, this isn't capturing the "SENDER COPY." I understand why it's not - in looking at the job log, all of the other messages are TO the Module & Procedure (which I have specified in the API call), but SENDER COPY does not have this information.
So I'm left wondering, how can I remove this message as well? Ultimately, I'm happy with what the API does for me already, but it would be nice to remove this message as well.
Full information about the message I want to remove:
CPF5026 Sender copy 30 06/24/10 10:37:31.651168 QDBSIGEX QSYS 01EA QDBSIGEX QSYS 01EA
Message . . . . : Duplicate key not allowed for member EQNFMTPP.
Cause . . . . . : An output or update operation on member EQNFMTPP failed
because of a duplicate key in member EQNFMTPP file EQNFMTPP in library
KJA9LIB. Recovery . . . : See previously listed message CPF5009 to
identify the record with the duplicate key. Then change the key value so
that each key is unique and try your request again. Possible choices for
replying to message . . . . . . . . . . . . . . . : C -- The request is
canceled. I -- The request is ignored.
And for the record, this error is handled by the program, so I don't want the job log to be potentially bogged down by it (there are other things in the job log we'd rather see w/o having to work our way through this stuff).
Thanks,
Kurt Anderson
Sr. Programmer/Analyst
CustomCall Data Systems
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
