Re: Paging Brad Stone-SCNMSGF help

[Jeff Crosby <jlcrosby@xxxxxxx>]

Hi Ken,

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

Ahhh, but you're hardcoding that the message text begins in position
25.  I'm trying to do it via strictly the information returned from the
API call.  I'm trying to be just like Brad. <g>

-- 
-Jeff
The opinions expressed are my own and not necessarily 
the opinion of my company.  Unless I say so.