Re: RTVMSG - 'Text not available for message'

David, maybe I was miss understood. It works fine my question is why does
it work? (How does MSG(&TXT) get populated.

For example, if I have message ROB0001 in WFMMSG but not in TFMMSG when the
program issues the RTVMSG MSGID(&MSGID) MSGF(TFMMSG) MSG(&TXT) how is it
populating &TXT?

As I said it works but I'm curious as to why?

Thanks,

Rob

On Thu, May 6, 2010 at 10:40 AM, David Gibbs <david@xxxxxxxxxxxx> wrote:

I think the problem is because the message file isn't in a library on the
library list.

Try fully qualifying the message file with a library "MSGF(library/msgf)"
so the message you send can be found.

david

On 5/6/2010 10:24 AM, Robert Rogerson wrote:

A base package program program (CLLE) uses the RTVMSG command to decide
which message file to use.

RTVMSG MSGID(&MSGID) MSGF(TFMMSG) MSG(&TXT)

IF COND(&TXT *EQ 'Text not available for message') THEN(DO)
SNDPGMMSG MSGID(&MSGID) MSGF(WFMMSG) +
MSGDTA(&MSGDTA) TOPGMQ(*SAME +
&SFPGMQ) KEYVAR(&MSGNO)
ENDDO
ELSE CMD(DO)
SNDPGMMSG MSGID(&MSGID) MSGF(TFMMSG) +
MSGDTA(&MSGDTA) TOPGMQ(*SAME +
&SFPGMQ) KEYVAR(&MSGNO)
ENDDO

It works fine but I'm curious where &TXT is being populated with 'Text

not

available for message' after the RTVMSG, if not found in message file
TFMMSG.

I checked and RTVMSG doesn't mention this text is returned if the message

is

not found. It does mention CPF2419 is returned so I checked the WRKRPYLE
(Work with System Reply List Entries) but this message was not found.

Is it just undocumented or did I miss something where RTVMSG does

populate

the MSG parameter if the message is not found?

Thanks,

Rob

--
IBM i on Power -- For when you can't afford to be out of business.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.