OK, re-reading your post, I copied/pasted the first exec into an EXEC (z/VM 5.4.0, CMS Level 24, Service Level 001). It ran just fine, displaying: TEST: Start -------------- 11 Aug 2011 10:57:54 --------------------------- Test the highlite stuff HILITE ON HILITE OFF
FTPPERF: ================================================================== FTPPERF: ---------- 11 Aug 2011 10:57:54 ---------------------------------- FTPPERF: No PERFSVM report pulled FTPPERF: ================================================================== TEST: End ---------------- 11 Aug 2011 10:57:54 --------------------------- Where the only highlighted text was "HILITE ON", and all the lines beginning with "FTPPERF:". Those were bold-faced and underscored in this reply. Could the problem be in your 3270 terminal emulator? We're using IBM's PComm. BTW, it's considered a rexx "best practice" on CMS to include at the top of your EXEC (unless there's a known reason to do otherwise: address command 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
