Re: RTVMSG - 'Text not available for message'

[David Gibbs <david@xxxxxxxxxxxx>]

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