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: 773
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: 773
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
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2143
Location: Silicon Valley

PostPosted: Wed Nov 06, 2019 10:37 am    Post subject: Reply to: REXX and 3270 highlighting
Reply with quote

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

Global Moderator


Joined: 14 Mar 2007
Posts: 8787
Location: Welsh Wales

PostPosted: Tue Nov 12, 2019 3:04 pm    Post subject:
Reply with quote

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
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 Trap a CP command message in Rexx zVM jeffery CLIST & REXX 1 Wed Dec 11, 2019 10:52 pm
No new posts how to show the class of an ims trans... Renato Zangerolami CLIST & REXX 6 Fri Dec 06, 2019 6:50 pm
No new posts Rexx to create VSAM define statements Dinesh Mani CLIST & REXX 9 Fri Nov 29, 2019 9:26 pm
No new posts Retrieving IMS message processing reg... tneelakandan CLIST & REXX 7 Fri Nov 22, 2019 7:23 pm
No new posts Running rexx on zOS with JCL Rajesh_98 CLIST & REXX 3 Wed Nov 20, 2019 5:19 pm

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