Re: RTVMSG - 'Text not available for message'

You are correct -- it's not documented and that is (somewhat) what is
returned for the MSG parameter. Which really, really surprises me.

Is your &TXT variable defined as *Char 30? The reason I ask is that the
actual text returned is 'Text not available for message XXXXXXX file
YYYYYYYY.' which would not compare as *EQ if &TXT is defined as longer than
30 characters.

The CPF2419 should really be signaled as an *ESCAPE, rather than *STATUS,
which makes me wonder if "someone" in the deep, dark past was too scared to
add an escape to this command (years after it became available).

Would anyone with a non-English NLV installed care to try this? I suspect
(hope) it's picking up the text from a message file, in which case this
code
would not work properly outside of an English environment. If, on the other
hand, it still comes back as English then "someone" has hardcoded English
text in their code. A very nasty thing to do.

In any case, this should be reported to IBM.

Bruce

On Thu, May 6, 2010 at 9:24 AM, Robert Rogerson <rogersonra@xxxxxxxxx

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

--
Regards,
Bruce
www.brucevining.com
www.powercl.com
--
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.