Interesting. We have a lot of execs that do this, written back in the
80's (some by me!) that wuse this all the time.
But they all use different hex strings than you for 'hi' and 'lo':
hi='1de8'x;
lo='1d60'x;
They don't seem to have any problem using the 'hi' and 'lo' in SAY commands.
I can only find one exec that simply does a 'say lo' with NO text at
all, but it seems to work - next say is in green.
Ron
On Thu, Aug 11, 2011 at 9:09 AM, Feller, Paul <pfel...@aegonusa.com> wrote:
> I need a little help with a REXX coding issue. I'm trying to do some
> highlighting of messages coming out of REXX. The first test message works
> properly, part of the message is highlighted and part of the message is
> not. The second test message gets highlighted, but after that everything is
> highlighted. If I change the "Say lo' '" on line 19 to a "Say lo'-'" the
> highlighting is turned off. What am I missing?
>
> Original code:
> 0 * * * Top of File * * *
> 1 /*-----------------------------------------------------------------*/
> 2 /* */
> 3 /*-----------------------------------------------------------------*/
> 4 Say Left('TEST: Start --------------' DATE() TIME('N') '',075,'-')
> 5 hi='1DF8'x /* HILITE variable WHITE */
> 6 lo='1D40'x /* UNHILITE variable GREEN */
> 7
> 8 /* First test */
> 9
> 10 Say 'Test the highlite stuff'hi'HILITE ON'lo'HILITE OFF'
> 11
> 12 /* Second test */
> 13
> 14 Say hi' '
> 15 Say Left('FTPPERF: ',75,'=')
> 16 Say Left('FTPPERF: ----------' DATE() TIME('N') '',75,'-')
> 17 Say Left('FTPPERF: No PERFSVM report pulled',75,' ')
> 18 Say Left('FTPPERF: ',75,'=')
> 19 Say lo' '
> 20
> 21 Say Left('TEST: End ----------------' DATE() TIME('N') '',075,'-')
> 22 Exit
> 23 * * * End of File * * *
>
>
> Code that seems to work:
> 0 * * * Top of File * * *
> 1 /*-----------------------------------------------------------------*/
> 2 /* */
> 3 /*-----------------------------------------------------------------*/
> 4 Say Left('TEST: Start --------------' DATE() TIME('N') '',075,'-')
> 5 hi='1DF8'x /* HILITE variable WHITE */
> 6 lo='1D40'x /* UNHILITE variable GREEN */
> 7
> 8 /* First test */
> 9
> 10 Say 'Test the highlite stuff'hi'HILITE ON'lo'HILITE OFF'
> 11
> 12 /* Second test */
> 13
> 14 Say hi' '
> 15 Say Left('FTPPERF: ',75,'=')
> 16 Say Left('FTPPERF: ----------' DATE() TIME('N') '',75,'-')
> 17 Say Left('FTPPERF: No PERFSVM report pulled',75,' ')
> 18 Say Left('FTPPERF: ',75,'=')
> 19 Say lo'-'
> 20
> 21 Say Left('TEST: End ----------------' DATE() TIME('N') '',075,'-')
> 22 Exit
> 23 * * * End of File * * *
>
> Thanks..
>
> Paul Feller
> AIT Mainframe Technical Support
>
