Hi Paul,
Well, on line 19 - I've never seen a GREEN BLANK before, so I'm guessing that
my TN3270 emulator is ignoring the '1D4040' data.
Try this instead on line 21:
Say lo Left(' TEST: End ----------------' DATE() TIME('N') '',074,'-')
Raymond E. Noal
EMC²
where information lives
Phone: (508) 249-4076
Ext: 44076
From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf
Of Feller, Paul
Sent: Thursday, August 11, 2011 11:09 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: A little help with a REXX coding issue
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
