Okay, this is interesting. I change the EXEC to use the hex codes that Mike is using and the stuff seems to work with the blank space in the say command. I'm using IBM PCOMM and it failed with my original code on a mod4 screen and a 3290 size screen. I always run with extended attribute support turned on. For now I'll continue my work using the different hex codes. Thanks for the help.
hi='1DE8'x /* 3270 Hilite Char */ lo='1D60'x /* 3270 Default Char */ Paul Feller AIT Mainframe Technical Support From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Mike Walter Sent: Thursday, August 11, 2011 11:03 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: A little help with a REXX coding issue 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
