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
