RE: Paging Brad Stone-SCNMSGF help

["Sims, Ken" <KSIMS@xxxxxxxxxxxxxxxx>]

Hi Jeff -

>If I change this statement:
>
>     Eval      RtnText = %Subst(MsgText:1:LMsgR)
>
>to this:
>
>     Eval      RtnText = %Subst(MsgText:2:LMsgR)
> 
>it works.  But that's 'cheating'. <g>  What exactly did you change?

I'm not Brad <G> and I'm not familiar with his utility; but since I haven't
seen a response yet (I'm on digest mode and may not have seen a response
that he has made), I thought I'd throw in this CL code written for V4R4.
I'm retrieving a message to use the message text on a SNDBRKMSG command.

DCL &RTVM0100   *CHAR 128
DCL &WARNLEN    *DEC (3 0)
DCL &WARNMSG    *CHAR  80

CHGVAR &RTVM0100 ' '
CALL QMHRTVM (&RTVM0100 X'00000080' 'RTVM0100' 'EOP1004' +
              'NVDISCMSG *LIBL     ' '' X'00000000' +
              '*NO' '*NO' X'00000000')
CHGVAR &WARNLEN %BIN(&RTVM0100 9 4)
IF (&WARNLEN *GT 80) CHGVAR &WARNLEN 80
CHGVAR &WARNMSG %SST(&RTVM0100 25 &WARNLEN)

Ken
Southern Wine and Spirits of Nevada, Inc.
Opinions expressed are my own and do not necessarily represent the views of
my employer or anyone in their right mind.