Re: Remove DDM informational messages

[Peter Dow <petercdow@xxxxxxxxx>]

Hi Rob,

This

STRWCH SSNID(*GEN)
       WCHPGM(QGPL/MyPgm)
       WCHMSG((CPI9200))
       WCHMSGQ((*JOBLOG))
       WCHJOB((*ALL/*ALL))

works great as far as having one place to monitor for those messages 
being sent.  It gives me the job name, user, and number, and the message 
ID and even the message key, e.g..MsgId:CPI9200 Msgq:*JOBLOG 
Job:225959/PDOW/PDOWS1 MsgKey:1077952576

However, it has a drawback: RMVMSG only works for the current job. Same 
with the QMHRMVPM api.  And the QMHRMVM is only for non-program message 
queues.

I had some small hope the the MSGKEY parameter on the RMVMSG command was 
a global key, but apparently not:

Message . . . . :   CPF2410 received by procedure MYPGM. (C D I R)
Cause . . . . . :   ILE Control language (CL) procedure MYPGM in module
  MYPGM in program MYPGM in library QGPL detected an error at statement
  number 0000005200.  Message text for CPF2410 is: Message key not found in
  message queue QJOBMSGQ.  Use F10 (if available) or the Display Job Log


Do you know of a way to remove a message from another job's joblog? 
Without having to modify any programs in the other job?

Peter Dow

On 9/2/2020 12:59 PM, Rob Berendt wrote:
> I've never done something like this but does this have potential?
> STRWCH SSNID(*GEN)
>         WCHPGM(MYPGM)
>         WCHMSG((CPI9160) (CPI9200)
>         WCHMSGQ((*JOBLOG))
>         WCHJOB((*ALL/*ALL))
>
> And then have MYPGM remove the offending messages from the joblog?
> You could probably roll this out by customizing the WCHJOB
>
> Rob Berendt