Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
REXX and 3270 highlighting

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Harold Barnes

New User


Joined: 27 Oct 2015
Posts: 17
Location: United States

PostPosted: Fri Sep 20, 2019 5:26 am    Post subject: REXX and 3270 highlighting
Reply with quote

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
View user's profile Send private message

steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 753
Location: The Universe

PostPosted: Fri Sep 20, 2019 11:36 am    Post subject:
Reply with quote

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
View user's profile Send private message
Harold Barnes

New User


Joined: 27 Oct 2015
Posts: 17
Location: United States

PostPosted: Sat Sep 21, 2019 3:27 am    Post subject:
Reply with quote

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
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 753
Location: The Universe

PostPosted: Sat Sep 21, 2019 5:57 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Running a REXX exec program using ZOSMF Sakthi344 CLIST & REXX 1 Tue Oct 15, 2019 3:13 pm
No new posts REXX VSAM Harold Barnes CLIST & REXX 2 Sat Oct 05, 2019 2:38 pm
No new posts REXX for Reading SMF type 70-1 AdrielGB Testing & Performance analysis 6 Sat Oct 05, 2019 3:03 am
No new posts Can GLobal variable used under TSOE/REXX Kaliragavendran CLIST & REXX 5 Tue Sep 24, 2019 7:16 am
No new posts REXX EXECIO STEM No newline Harold Barnes CLIST & REXX 3 Tue Sep 17, 2019 6:07 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us