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

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.
>
>