Re: Highlighting in Rexx
As I disliked some parts in the sample below (like playing with SPOOL
CONSOLE simply to avoid CP command output on the screen)
When playing with CP SCREEN VMOUT, proceed as follows. Sample subroutine:
SayRed:
'CONWAIT' /* Tell CMS to send out any buffered screen output */
'PIPE CP Q SCREEN!SPEC 40-* 1!Var OldColor'
call diag 8,'SCREEN VMOUT RED' /* Change settings, silently */
say arg(1)
'CONWAIT' /* Tell CMS to send out any buffered screen output */
call diag 8,'SCREEN' oldcolor /* Restore, silently */
return
2010/10/12 Brian Nielsen bniel...@sco.idaho.gov
Here's another old REXX exec a prior co-worker wrote, named RAINBOW EXEC,
dated 5/6/1985!
Brian Nielsen
/* builds a rainbow across the screen*/
clrscrn
colors='red yellow green blue'
spacing='65 60 56 52 48 45 42 39 37 35 34 33'
clrscrn
j=words(spacing)
k=words(colors)
DO i=1 to j
color=word(colors,i//k+1)
sp console start noterm
CP SCREEN VMO color
sp console stop
SAY copies(' ',word(spacing,i))'XXX'
END
sp console start noterm
CP SCREEN VMO TUR
sp console stop
SAY ' __ '
SAY ' ( ) '
SAY ' () '
SAY '(__)'
pull answer
sp console start noterm
cp screen all none
sp console purge stop
sp console close
clrscrn
On Tue, 12 Oct 2010 13:25:52 -0500, Mike Walter mike.wal...@hewitt.com
wrote:
We run IBM's PComm and are testing Bluezone. Both display underscore and
even blinking underscore.
Mike Walter
Aon Hewitt
The opinions expressed herein are mine alone, not my employer's.
Here's an old exec to display colors, named COLORS EXEC and dated:
10/17/90 15:45:39
* SHOW ALL OF THE COLORS - STEVE MCLAUGHLIN
B2 = LEFT OF BLANK 2
B3 = LEFT OF BLANK 3
B33 = LEFT OF BLANK 33
B34 = LEFT OF BLANK 34
EXECIO * CP (ST Q SCR
READ ARGS
CPO1 = LEFT OF 2 3
CPO2 = LEFT OF 3 3
VMO1 = LEFT OF 5 3
VMO2 = LEFT OF 6 3
C = CONCAT OF B2 CPO == CPO1 - CPO2 amp;B3 VMO == VMO1 - VMO2
B3
READ ARGS
INR1 = LEFT OF 2 3
INR2 = LEFT OF 3 3
INA1 = LEFT OF 5 3
INA2 = LEFT OF 6 3
C = CONCAT OF C INR == INR1 - INR2 amp;B3 INA == INA1 - INA2
B3
READ ARGS
STA1 = LEFT OF 2 3
STA2 = LEFT OF 3 3
C = CONCAT OF C STA == STA1 - STA2
CLRSCRN
NEXT-COLOR = 0
LOOP 10 7
NEXT-COLOR = NEXT-COLOR + 1
COLOR = WORD OF BLU RED GRE YEL TUR PIN WHI NEXT-COLOR
EXECIO 0 CP (ST SCRE VMO COLOR NON
TYPE COLOR B33 NON B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR UND
TYPE COLOR B33 UND B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR BLI
TYPE COLOR B33 BLI B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR REV
TYPE COLOR B33 REV B34 COLOR
EXECIO 0 CP (ST SCRE VMO VMO1 VMO2
TYPE C
Les Koehler vmr...@tampabay.rr.com
Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
10/12/2010 01:16 PM
Please respond to
The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
To
IBMVM@LISTSERV.UARK.EDU
cc
Subject
Re: Highlighting in Rexx
There are some attributes that a pc simply can't do, like underscore and
blink.
I certainly wouldn't be surprised if my recently acquired WC3270 emulator
misbehaved in colorizing for VM.
Les
zMan wrote:
On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote:
I haven't seen a real 3278/9 in years, so I've discovered that there is
a
great variance in the ability of TN3270 emulators to properly
respect/interpret those attribute characters, especially color.
Huh? If it don't do 3270 datastreams, how is it a 3270 emulator
The information contained in this e-mail and any accompanying documents
may contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if
this message has been addressed to you in error, please immediately alert
the sender by reply e-mail and then delete this message, including any
attachments. Any dissemination, distribution or other use of the contents
of this message by anyone other than the intended recipient is strictly
prohibited. All messages sent to and from this e-mail address may be
monitored as permitted by applicable law and regulations to ensure
compliance with our internal policies and to protect our business. E-mails
are not secure and cannot be guaranteed to be error free as they can be
intercepted, amended, lost or destroyed, or contain viruses. You are
deemed to have accepted these risks if you communicate with us by e-mail.
=
--
Kris Buelens,
IBM Belgium, VM customer support
Re: Highlighting in Rexx
There's several things not to like about the exec, but this was written b
y
a novice co-worker on a pre-pipeline system. While presented as written
may not be optimal, it preserved the date of authorship.
Brian Nielsen
On Mon, 18 Oct 2010 10:59:18 +0200, Kris Buelens kris.buel...@gmail.com
wrote:
As I disliked some parts in the sample below (like playing with SPOOL
CONSOLE simply to avoid CP command output on the screen)
When playing with CP SCREEN VMOUT, proceed as follows. Sample subroutin
e:
SayRed:
'CONWAIT' /* Tell CMS to send out any buffered screen output */
'PIPE CP Q SCREEN!SPEC 40-* 1!Var OldColor'
call diag 8,'SCREEN VMOUT RED' /* Change settings, silently */
say arg(1)
'CONWAIT' /* Tell CMS to send out any buffered screen output */
call diag 8,'SCREEN' oldcolor /* Restore, silently */
return
2010/10/12 Brian Nielsen bniel...@sco.idaho.gov
Here's another old REXX exec a prior co-worker wrote, named RAINBOW
EXEC,
dated 5/6/1985!
Brian Nielsen
/* builds a rainbow across the screen*/
clrscrn
colors='red yellow green blue'
spacing='65 60 56 52 48 45 42 39 37 35 34 33'
clrscrn
j=words(spacing)
k=words(colors)
DO i=1 to j
color=word(colors,i//k+1)
sp console start noterm
CP SCREEN VMO color
sp console stop
SAY copies(' ',word(spacing,i))'XXX'
END
sp console start noterm
CP SCREEN VMO TUR
sp console stop
SAY ' __ '
SAY ' ( ) '
SAY ' () '
SAY '(__)'
pull answer
sp console start noterm
cp screen all none
sp console purge stop
sp console close
clrscrn
On Tue, 12 Oct 2010 13:25:52 -0500, Mike Walter mike.wal...@hewitt.co
m
wrote:
We run IBM's PComm and are testing Bluezone. Both display underscore
and
even blinking underscore.
Mike Walter
Aon Hewitt
The opinions expressed herein are mine alone, not my employer's.
Here's an old exec to display colors, named COLORS EXEC and dated:
10/17/90 15:45:39
* SHOW ALL OF THE COLORS - STEVE MCLAUGHLIN
B2 = LEFT OF BLANK 2
B3 = LEFT OF BLANK 3
B33 = LEFT OF BLANK 33
B34 = LEFT OF BLANK 34
EXECIO * CP (ST Q SCR
READ ARGS
CPO1 = LEFT OF 2 3
CPO2 = LEFT OF 3 3
VMO1 = LEFT OF 5 3
VMO2 = LEFT OF 6 3
C = CONCAT OF B2 CPO == CPO1 - CPO2
amp;B3 VMO == VMO1 -
VMO2
B3
READ ARGS
INR1 = LEFT OF 2 3
INR2 = LEFT OF 3 3
INA1 = LEFT OF 5 3
INA2 = LEFT OF 6 3
C = CONCAT OF C INR == INR1 - INR2
amp;B3 INA == INA1 -
INA2
B3
READ ARGS
STA1 = LEFT OF 2 3
STA2 = LEFT OF 3 3
C = CONCAT OF C STA == STA1 - STA2
CLRSCRN
NEXT-COLOR = 0
LOOP 10 7
NEXT-COLOR = NEXT-COLOR + 1
COLOR = WORD OF BLU RED GRE YEL TUR PIN WHI NE
XT-COLOR
EXECIO 0 CP (ST SCRE VMO COLOR NON
TYPE COLOR B33 NON B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR UND
TYPE COLOR B33 UND B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR BLI
TYPE COLOR B33 BLI B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR REV
TYPE COLOR B33 REV B34 COLOR
EXECIO 0 CP (ST SCRE VMO VMO1 VMO2
TYPE C
Les Koehler vmr...@tampabay.rr.com
Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
10/12/2010 01:16 PM
Please respond to
The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
To
IBMVM@LISTSERV.UARK.EDU
cc
Subject
Re: Highlighting in Rexx
There are some attributes that a pc simply can't do, like underscore
and
blink.
I certainly wouldn't be surprised if my recently acquired WC3270
emulator
misbehaved in colorizing for VM.
Les
zMan wrote:
On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote
:
I haven't seen a real 3278/9 in years, so I've discovered that
there is
a
great variance in the ability of TN3270 emulators to properly
respect/interpret those attribute characters, especially color.
Huh? If it don't do 3270 datastreams, how is it a 3270 emulator
The information contained in this e-mail and any accompanying documen
ts
may contain information that is confidential or otherwise protected fr
om
disclosure. If you are not the intended recipient of this message, or
if
this message has been addressed to you in error, please immediately
alert
the sender by reply e-mail and then delete this message, including any
attachments. Any dissemination, distribution or other use of the
contents
of this message by anyone other than the intended recipient is strictl
y
prohibited. All messages sent to and from this e-mail address may be
monitored as permitted by applicable law and regulations to ensure
compliance with our internal policies and to protect our business. E-
mails
are not secure and cannot be guaranteed to be error free as they can b
e
intercepted, amended, lost or destroyed, or contain viruses. You are
deemed to have accepted these risks if you communicate with us
Highlighting in Rexx
Does anybody have any tricks on how to do highlighting in a rexx SAY statement?What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks
Re: Highlighting in Rexx
I usually have to resort to XEDIT or PIPEs. Frank M. Ramaekers Jr. From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Karl Kingston Sent: Tuesday, October 12, 2010 11:15 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Highlighting in Rexx Does anybody have any tricks on how to do highlighting in a rexx SAY statement?What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks _ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@ailife.com.
Re: Highlighting in Rexx
Here's an an example that might help:
/* */
address command
cm = 'DIAGRC'('8','CP Q SCREEN')
If 'WORD'(cm,1) = 0
Then Do
Parse Var cm With 'VMOUT' color hilite 'INREDISP' rest
If color¬='DEFAULT'
Then newscr = 'DIAG'('8','CP SCRE VMOUT DEFAULT NONE')
End
hi = '1de8'x /* HILITE variable */
lo = '1d60'x /* UNHILITE variable */
Say hi'This is hilighted' lo'and this is not'
Note you should usually always end with 'lo' so that the next line you
output isn't also hilighted. (unless you want that)
What this does is see if you are set to the DEFAULT colors - and if not -
issue the SCREEN VMOUT DEFAULT ...
HELP CP SCREEN will help you understand how to set specific colors in
different areas, etc. (like make the input line red underlined, or the
status area yellow, etc).
Hope this helps -
Scott Rohling
On Tue, Oct 12, 2010 at 10:14 AM, Karl Kingston karlkings...@ongov.netwrote:
Does anybody have any tricks on how to do highlighting in a rexx SAY
statement?What about setting colors for an extended attributes?
I'm working on writing an Rexx exec to let our operators know which of our
z/Linux machines are up, are supposed to be up, and are down. So if I can
do colors, that would be nice. But at the very least, I need hilighting.
Thanks
Re: Highlighting in Rexx
It's pretty primitive, but the 3270 highlight characters and 3270 default characters are: hi='1DE6'x./* 3270 hilite chars */ lo='1D60'x. /* 3270 default chars */ Used as: say 'This is default'hi'this is hilight'lo'and back to normal.' Mike Walter Aon Hewitt (Sent from the wee keyboard of a Blackberry.) - Original Message - From: Karl Kingston [karlkings...@ongov.net] Sent: 10/12/2010 12:14 PM AST To: IBMVM@LISTSERV.UARK.EDU Subject: Highlighting in Rexx Does anybody have any tricks on how to do highlighting in a rexx SAY statement?What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited. All messages sent to and from this e-mail address may be monitored as permitted by applicable law and regulations to ensure compliance with our internal policies and to protect our business. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by e-mail.
Re: Highlighting in Rexx
There are a few options. The easy one is to turn highlighting on and off, which will make that part white: 'CP SET VMOUT DEFAULT'/* Must be default for this to work */ hi = '1DC8'x lo = '1D40'x Say 'There has been an 'hi'error'lo The other way that works for entire lines is to set the VMOUT setting. 'CP SET VMOUT RED' say 'This is an error' 'CONWAIT' /* Wait for output to display */ 'CP SET VMOUT DEFAULT' Finally, there is a lot of flexibility in full screen CMS, but the operators woud have to run with fullscreen on. On Tue, Oct 12, 2010 at 12:14 PM, Karl Kingston karlkings...@ongov.net wrote: Does anybody have any tricks on how to do highlighting in a rexx SAY statement? What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY
Re: Highlighting in Rexx
There is a SUPERSAY package on vm downloads page (http://www.vm.ibm.com/download ) Marcy This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose, or take any action based on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation. - On Tue, Oct 12, 2010 at 10:14 AM, Karl Kingston karlkings...@ongov.net wrote: Does anybody have any tricks on how to do highlighting in a rexx SAY statement? What about setting colors for an extended attributes?
Re: Highlighting in Rexx
And by CP SET VMOUT you meant CP SCREEN VMOUT of course... On Tue, Oct 12, 2010 at 10:35 AM, Bruce Hayden bjhay...@gmail.com wrote: There are a few options. The easy one is to turn highlighting on and off, which will make that part white: 'CP SET VMOUT DEFAULT' /* Must be default for this to work */ hi = '1DC8'x lo = '1D40'x Say 'There has been an 'hi'error'lo The other way that works for entire lines is to set the VMOUT setting. 'CP SET VMOUT RED' say 'This is an error' 'CONWAIT' /* Wait for output to display */ 'CP SET VMOUT DEFAULT' Finally, there is a lot of flexibility in full screen CMS, but the operators woud have to run with fullscreen on. On Tue, Oct 12, 2010 at 12:14 PM, Karl Kingston karlkings...@ongov.net wrote: Does anybody have any tricks on how to do highlighting in a rexx SAY statement? What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY
Re: Highlighting in Rexx
Yep! Can't read my own execs... :) Thanks. On Tue, Oct 12, 2010 at 1:29 PM, Ron Schmiedge ron.schmie...@gmail.com wrote: And by CP SET VMOUT you meant CP SCREEN VMOUT of course... On Tue, Oct 12, 2010 at 10:35 AM, Bruce Hayden bjhay...@gmail.com wrote: There are a few options. The easy one is to turn highlighting on and off, which will make that part white: 'CP SET VMOUT DEFAULT' /* Must be default for this to work */ hi = '1DC8'x lo = '1D40'x Say 'There has been an 'hi'error'lo The other way that works for entire lines is to set the VMOUT setting. 'CP SET VMOUT RED' say 'This is an error' 'CONWAIT' /* Wait for output to display */ 'CP SET VMOUT DEFAULT' Finally, there is a lot of flexibility in full screen CMS, but the operators woud have to run with fullscreen on. On Tue, Oct 12, 2010 at 12:14 PM, Karl Kingston karlkings...@ongov.net wrote: Does anybody have any tricks on how to do highlighting in a rexx SAY statement? What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY
Re: Highlighting in Rexx
...and don't forget that the attribute byte (created by the '1Dnn'x) takes up a space on the screen, so the Say statement in this example will have two blanks in front of the word error. You won't be able to change the highlighting between two adjacent characters in a string. I haven't seen a real 3278/9 in years, so I've discovered that there is a great variance in the ability of TN3270 emulators to properly respect/interpret those attribute characters, especially color. -Chip- On 10/12/10 17:29 Ron Schmiedge said: And by CP SET VMOUT you meant CP SCREEN VMOUT of course... On Tue, Oct 12, 2010 at 10:35 AM, Bruce Hayden bjhay...@gmail.com wrote: There are a few options. The easy one is to turn highlighting on and off, which will make that part white: 'CP SET VMOUT DEFAULT'/* Must be default for this to work */ hi = '1DC8'x lo = '1D40'x Say 'There has been an 'hi'error'lo The other way that works for entire lines is to set the VMOUT setting. 'CP SET VMOUT RED' say 'This is an error' 'CONWAIT' /* Wait for output to display */ 'CP SET VMOUT DEFAULT' Finally, there is a lot of flexibility in full screen CMS, but the operators woud have to run with fullscreen on. On Tue, Oct 12, 2010 at 12:14 PM, Karl Kingston karlkings...@ongov.net wrote: Does anybody have any tricks on how to do highlighting in a rexx SAY statement?What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY
Re: Highlighting in Rexx
On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote: I haven't seen a real 3278/9 in years, so I've discovered that there is a great variance in the ability of TN3270 emulators to properly respect/interpret those attribute characters, especially color. Huh? If it don't do 3270 datastreams, how is it a 3270 emulator -- zMan -- I've got a mainframe and I'm not afraid to use it
Re: Highlighting in Rexx
There are some attributes that a pc simply can't do, like underscore and blink. I certainly wouldn't be surprised if my recently acquired WC3270 emulator misbehaved in colorizing for VM. Les zMan wrote: On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote: I haven't seen a real 3278/9 in years, so I've discovered that there is a great variance in the ability of TN3270 emulators to properly respect/interpret those attribute characters, especially color. Huh? If it don't do 3270 datastreams, how is it a 3270 emulator
Re: Highlighting in Rexx
We run IBM's PComm and are testing Bluezone. Both display underscore and even blinking underscore. Mike Walter Aon Hewitt The opinions expressed herein are mine alone, not my employer's. Here's an old exec to display colors, named COLORS EXEC and dated: 10/17/90 15:45:39 * SHOW ALL OF THE COLORS - STEVE MCLAUGHLIN B2 = LEFT OF BLANK 2 B3 = LEFT OF BLANK 3 B33 = LEFT OF BLANK 33 B34 = LEFT OF BLANK 34 EXECIO * CP (ST Q SCR READ ARGS CPO1 = LEFT OF 2 3 CPO2 = LEFT OF 3 3 VMO1 = LEFT OF 5 3 VMO2 = LEFT OF 6 3 C = CONCAT OF B2 CPO == CPO1 - CPO2 B3 VMO == VMO1 - VMO2 B3 READ ARGS INR1 = LEFT OF 2 3 INR2 = LEFT OF 3 3 INA1 = LEFT OF 5 3 INA2 = LEFT OF 6 3 C = CONCAT OF C INR == INR1 - INR2 B3 INA == INA1 - INA2 B3 READ ARGS STA1 = LEFT OF 2 3 STA2 = LEFT OF 3 3 C = CONCAT OF C STA == STA1 - STA2 CLRSCRN NEXT-COLOR = 0 LOOP 10 7 NEXT-COLOR = NEXT-COLOR + 1 COLOR = WORD OF BLU RED GRE YEL TUR PIN WHI NEXT-COLOR EXECIO 0 CP (ST SCRE VMO COLOR NON TYPE COLOR B33 NON B34 COLOR EXECIO 0 CP (ST SCRE VMO COLOR UND TYPE COLOR B33 UND B34 COLOR EXECIO 0 CP (ST SCRE VMO COLOR BLI TYPE COLOR B33 BLI B34 COLOR EXECIO 0 CP (ST SCRE VMO COLOR REV TYPE COLOR B33 REV B34 COLOR EXECIO 0 CP (ST SCRE VMO VMO1 VMO2 TYPE C Les Koehler vmr...@tampabay.rr.com Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 10/12/2010 01:16 PM Please respond to The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU To IBMVM@LISTSERV.UARK.EDU cc Subject Re: Highlighting in Rexx There are some attributes that a pc simply can't do, like underscore and blink. I certainly wouldn't be surprised if my recently acquired WC3270 emulator misbehaved in colorizing for VM. Les zMan wrote: On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote: I haven't seen a real 3278/9 in years, so I've discovered that there is a great variance in the ability of TN3270 emulators to properly respect/interpret those attribute characters, especially color. Huh? If it don't do 3270 datastreams, how is it a 3270 emulator The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited. All messages sent to and from this e-mail address may be monitored as permitted by applicable law and regulations to ensure compliance with our internal policies and to protect our business. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by e-mail.
Re: Highlighting in Rexx
-Original Message- From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Les Koehler Sent: Tuesday, October 12, 2010 1:17 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Highlighting in Rexx There are some attributes that a pc simply can't do, like underscore and blink. I certainly wouldn't be surprised if my recently acquired WC3270 emulator misbehaved in colorizing for VM. Les Why do you say it can underscore and blink? I have blinking text right now on my Hummingbird HostExplorer display going right now, giving me a headache! And I just changed it to be underscored using the CUAATTR attribute of USCORE. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-691-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM
Re: Highlighting in Rexx
Vista TN3270 does both. I'd look at your emulator. On Tue, Oct 12, 2010 at 2:16 PM, Les Koehler vmr...@tampabay.rr.com wrote: There are some attributes that a pc simply can't do, like underscore and blink. I certainly wouldn't be surprised if my recently acquired WC3270 emulator misbehaved in colorizing for VM. Les zMan wrote: On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote: I haven't seen a real 3278/9 in years, so I've discovered that there is a great variance in the ability of TN3270 emulators to properly respect/interpret those attribute characters, especially color. Huh? If it don't do 3270 datastreams, how is it a 3270 emulator -- Mark D Pace Senior Systems Engineer Mainline Information Systems
Re: Highlighting in Rexx
My apologies to all. Guess I was going on old information. Les Mark Pace wrote: Vista TN3270 does both. I'd look at your emulator. On Tue, Oct 12, 2010 at 2:16 PM, Les Koehler vmr...@tampabay.rr.com wrote: There are some attributes that a pc simply can't do, like underscore and blink. I certainly wouldn't be surprised if my recently acquired WC3270 emulator misbehaved in colorizing for VM. Les zMan wrote: On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote: I haven't seen a real 3278/9 in years, so I've discovered that there is a great variance in the ability of TN3270 emulators to properly respect/interpret those attribute characters, especially color. Huh? If it don't do 3270 datastreams, how is it a 3270 emulator
Re: Highlighting in Rexx
Here's another old REXX exec a prior co-worker wrote, named RAINBOW EXEC,
dated 5/6/1985!
Brian Nielsen
/* builds a rainbow across the screen*/
clrscrn
colors='red yellow green blue'
spacing='65 60 56 52 48 45 42 39 37 35 34 33'
clrscrn
j=words(spacing)
k=words(colors)
DO i=1 to j
color=word(colors,i//k+1)
sp console start noterm
CP SCREEN VMO color
sp console stop
SAY copies(' ',word(spacing,i))'XXX'
END
sp console start noterm
CP SCREEN VMO TUR
sp console stop
SAY ' __ '
SAY ' ( ) '
SAY ' () '
SAY '(__)'
pull answer
sp console start noterm
cp screen all none
sp console purge stop
sp console close
clrscrn
On Tue, 12 Oct 2010 13:25:52 -0500, Mike Walter mike.wal...@hewitt.com
wrote:
We run IBM's PComm and are testing Bluezone. Both display underscore an
d
even blinking underscore.
Mike Walter
Aon Hewitt
The opinions expressed herein are mine alone, not my employer's.
Here's an old exec to display colors, named COLORS EXEC and dated:
10/17/90 15:45:39
* SHOW ALL OF THE COLORS - STEVE MCLAUGHLIN
B2 = LEFT OF BLANK 2
B3 = LEFT OF BLANK 3
B33 = LEFT OF BLANK 33
B34 = LEFT OF BLANK 34
EXECIO * CP (ST Q SCR
READ ARGS
CPO1 = LEFT OF 2 3
CPO2 = LEFT OF 3 3
VMO1 = LEFT OF 5 3
VMO2 = LEFT OF 6 3
C = CONCAT OF B2 CPO == CPO1 - CPO2 am
p;B3 VMO == VMO1 - VMO2 B3
READ ARGS
INR1 = LEFT OF 2 3
INR2 = LEFT OF 3 3
INA1 = LEFT OF 5 3
INA2 = LEFT OF 6 3
C = CONCAT OF C INR == INR1 - INR2 am
p;B3 INA == INA1 - INA2 B3
READ ARGS
STA1 = LEFT OF 2 3
STA2 = LEFT OF 3 3
C = CONCAT OF C STA == STA1 - STA2
CLRSCRN
NEXT-COLOR = 0
LOOP 10 7
NEXT-COLOR = NEXT-COLOR + 1
COLOR = WORD OF BLU RED GRE YEL TUR PIN WHI NEXT-
COLOR
EXECIO 0 CP (ST SCRE VMO COLOR NON
TYPE COLOR B33 NON B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR UND
TYPE COLOR B33 UND B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR BLI
TYPE COLOR B33 BLI B34 COLOR
EXECIO 0 CP (ST SCRE VMO COLOR REV
TYPE COLOR B33 REV B34 COLOR
EXECIO 0 CP (ST SCRE VMO VMO1 VMO2
TYPE C
Les Koehler vmr...@tampabay.rr.com
Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
10/12/2010 01:16 PM
Please respond to
The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
To
IBMVM@LISTSERV.UARK.EDU
cc
Subject
Re: Highlighting in Rexx
There are some attributes that a pc simply can't do, like underscore and
blink.
I certainly wouldn't be surprised if my recently acquired WC3270 emulato
r
misbehaved in colorizing for VM.
Les
zMan wrote:
On Tue, Oct 12, 2010 at 2:02 PM, Chip Davis c...@aresti.com wrote:
I haven't seen a real 3278/9 in years, so I've discovered that there
is
a
great variance in the ability of TN3270 emulators to properly
respect/interpret those attribute characters, especially color.
Huh? If it don't do 3270 datastreams, how is it a 3270 emulator
The information contained in this e-mail and any accompanying documents
may contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if
this message has been addressed to you in error, please immediately alert
the sender by reply e-mail and then delete this message, including any
attachments. Any dissemination, distribution or other use of the contents
of this message by anyone other than the intended recipient is strictly
prohibited. All messages sent to and from this e-mail address may be
monitored as permitted by applicable law and regulations to ensure
compliance with our internal policies and to protect our business. E-mail
s
are not secure and cannot be guaranteed to be error free as they can be
intercepted, amended, lost or destroyed, or contain viruses. You are
deemed to have accepted these risks if you communicate with us by e-mail.
=
