|
View previous topic :: View next topic
|
| Author |
Message |
Harold Barnes
New User
Joined: 27 Oct 2015
Posts: 33
Location: United States
|
|
|
|
Years ago on a platform far far away.
On VM I used to code something like:
| Code: |
/* REXX */
say '1dc8'x || "Blah Blah" || '1dc4'x |
That would turn highlighting on ('1dc8'x) and off ('1dc4'x).
I tried to do the same on z/OS but it doesn't highlight.
On VM I was using a real 3278. Now it's an emulated 3279 on windows.
Maybe my memory is shot?
Is there a way to highlight text? |
|
| Back to top |
|
 |
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
I do not know how TSO Rexx sends the string to the terminal. As an experiment I wrote and ran this little program.
| Code: |
TESTTPUT CSECT
USING *,12
SAVE (14,12)
LR 12,15
LA 0,L'STRING
LA 1,STRING
TPUT (1),(0),R
RETURN (14,12),RC=0
MSG DC C'NOT HIGH LIGHTED '
DC X'1DC8',C'HIGH LIGHTED',X'1DC4',C' NOT HIGH LIGHTED'
STRING EQU MSG,*-MSG
END TESTTPUT |
The TPUT macro is the basic macro used by TSO to send a message to the terminal.
The result was unexpected. The first NOT HIGHLIGHTED and HIGH LIGHTED text strings seemed to be the same, and the NOT HIGHLIGHTED string at the end was (presumably) not highlighted. I'm not sure what my emulator does with this, but I've fiddled with the standard setup to produce more pleasing results - pleasing, to my eyes, anyway. It does suggest regular TSO TPUT sends highlighted text, so highligting it again is not - I think - going to change things, but the 1dc4 took, well it did something. I installed this emulator 6 years ago; what I did then, and I did something, I cannot recall.
The other issue is, did the codes in your SAY string get put through or did SAY remove them? |
|
| Back to top |
|
|
Harold Barnes
New User
Joined: 27 Oct 2015
Posts: 33
Location: United States
|
|
|
|
I copied and ran your elegantly simple program.
Nu surprises here.
The x'1DC8' produced :H
The x;1DC4' produced :D
No highlighted text.
Thanks Steve for the validation. I'm going to blame it on the emulator. |
|
| Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
| Harold Barnes wrote: |
| ...Thanks Steve for the validation. I'm going to blame it on the emulator. |
No, I suspect Rexx SAY may have fiddled with the data. Don't forget, too, that the zVM/CMS and TSO Rexx stacks are not identical. Finally, TSO TPUT could have fiddled with the data. About the only way to fully check this out is to learn enough 3270 data streams and use TPUT FULSCRN to really figure it out.
I have my emulator installed on a Windoze 10 machine which I rarely use. I discarded my little TESTTPUT program and I'm not about to recreate it. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
I am retired and do not have access anymore...
but I recall that you had to use the 'ASIS' parameter of the TPUT macro. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
I have done something similar in the past, and hopefully still have the code.
If I do, I will try and remember to post it. |
|
| Back to top |
|
|
|
|
