I've been used the following since just about forever. The work fine. hi='1DE8'x /* 3270 Hilite Char */ lo='1D60'x /* 3270 Default Char */
Both are different that yours. Mike Walter Aon Corporation The opinions expressed herein are mine alone, not my employer's. From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Feller, Paul Sent: Thursday, August 11, 2011 10: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
