Re: Can we override the QRNXMSG message file for a certain job?

Mike,

Just an FYI. What you suggested did not work either. I think it might 
be missing something else or it is working as designed. I will try
reaching out to IBM to see if this is an issue/feature that does not
honor the override to QRNXMSG.

I should mention here that the programs do run in an activation group,
but the OVRMSGF does not have the same override levels that a normal
overrride command does, which might be the issue.

Thanks

Krish

On 1/10/06, krishnithya@xxxxxxxxx <krishnithya@xxxxxxxxx> wrote:
> Mike,
>
> Thanks for the example. This is similar to what we did except that we
> had created the message file in our program library and named it
> something else other than QRNXMSG. I do not think it will matter, but
> i will try to put the message in a message file qrnxmsg in qtemp and
> try the override. I will see if the RPG behaves differently with the
> message file overriden is the same name.
>
> Thanks
>
> Krish
>
> On 1/10/06, Barton, Mike <Mike.Barton@xxxxxxxxxxxxx> wrote:
> > >When a certain job runs, we want to change the RNQ1218 message in
> > >QRNXMSG in QSYS to give the users only the option to C(ancel).  We do
> > >not want to add automatic replies, since we want to let the customer
> > >cancel and be aware that the job was cancelled.
> >
> > Krish
> >
> > the following code should do what you want.
> >
> > DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
> >
> >
> > RTVOBJD    OBJ(QRNXMSG) OBJTYPE(*MSGF) RTNLIB(&MSGFLIB)
> >
> > CRTMSGF    MSGF(QTEMP/QRNXMSG)
> > MRGMSGF    FROMMSGF(&MSGFLIB/QRNXMSG) +
> >             TOMSGF(QTEMP/QRNXMSG) SELECT(RNQ1218)
> > OVRMSGF    MSGF(QRNXMSG) TOMSGF(QTEMP/QRNXMSG)
> >
> > CHGMSGD    MSGID(RNQ1218) MSGF(QTEMP/QRNXMSG) +
> >             MSG('Unable to allocate a record in file +
> >             &7 (C)') VALUES(C)
> >
> > CALL       PGM({your RPG program})
> >
> > DLTOVR     *ALL
> >
> > Mike
> >
> > p.s. pls note that the msgf override is cute in that it will use
> > the original msgf if it doesn't find a matching msgid.
> >
> >
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (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.
> >
> >
>