|
>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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.