Rather than sending out individual copies, here's the before mentioned
macro to Ctrl-Tab through the various logical screens provided,
obviously,that you've activated the swapbar. I picked it up many, many
years ago, possibly from the now defunct mvshelp.com site, or maybe from
one of the still active MVS forums (search didn't show it up). It can
handle 10 screens, but if you use really wide screen, I use 160x66, you can
obviously add a few more if statements, and I'm sure that people more
comfortable writing scripts for Vista can make something that doesn't rely
on the simple hardcoded current version, if you do, please share your code:
* Macro to switch screens using Ctrl + Tab Keys
************************************************************************
* SWAPBAR should have been active already in the TSO session of the
* user. If not active issue command 'SWAPBAR' in the Command line
*
* Author - Satheesh Kamal S
*
* All rights are not reserved. :-) You are free to change as you wish
************************************************************************
text1 = Screen(ScreenHeight,1,ScreenWidth)
t1 = Mid(text1, 4,1)
t2 = Mid(text1,13,1)
t3 = Mid(text1,22,1)
t4 = Mid(text1,31,1)
t5 = Mid(text1,40,1)
t6 = Mid(text1,49,1)
t7 = Mid(text1,58,1)
t8 = Mid(text1,67,1)
t9 = Mid(text1,76,1)
t10 = Mid(text1,85,1)
if t1 = "*"
if t2 != " "
Key("MoveCursor",ScreenHeight,13)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t2 = "*"
if t3 != " "
Key("MoveCursor",ScreenHeight,22)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t3 = "*"
if t4 != " "
Key("MoveCursor",ScreenHeight,31)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t4 = "*"
if t5 != " "
Key("MoveCursor",ScreenHeight,40)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t5 = "*"
if t6 != " "
Key("MoveCursor",ScreenHeight,49)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t6 = "*"
if t7 != " "
Key("MoveCursor",ScreenHeight,58)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t7 = "*"
if t8 != " "
Key("MoveCursor",ScreenHeight,67)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t8 = "*"
if t9 != " "
Key("MoveCursor",ScreenHeight,76)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t9 = "*"
if t10 != " "
Key("MoveCursor",ScreenHeight,85)
Key("Enter")
exit
else
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
exit
endif
endif
if t10 = "*"
Key("MoveCursor",ScreenHeight,4)
Key("Enter")
endif
Enjoy,
Robert
--
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather <https://prino.neocities.org/index.html>
Some REXX code for use on z/OS
<https://prino.neocities.org/zOS/zOS-Tools.html>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
