This isn't the answer you're looking for, but what I do is create an
ISPF panel with the screen image and fields and colors that I want, then
I use ISPF 7.2 to display the screen.
Then at least one terminal emulator I know of has a function that reads
the last I/O buffer that arrived from the host (containing all the
screen orders and things) and produces something like this that I can
use in an assembler program:
STRING DS 0F
DC X'01C31100004040C5D5E3C5D9D7D9C9E2'
DC X'C540C4C1E3C140C3C5D5E3C5D9404040'
DC X'40E04040604040613C0033404B7A7A96'
DC X'3C003C7A4B3C005240E2E8E2E3C5D440'
DC X'D7D9D6C7D9C1D4D4C5D93C006D404DE0'
...
So basically I'm getting ISPF to do the hard work. Any kind of I/O
tracing should also show the raw data.
On 10/5/2023 3:50 PM, Mark Regan wrote:
Cross-posted to IBM-MAIN and IBMTCP-L
At one time, I had a CLIST or REXX code that would take the screen layout and
turn it into the necessary USSMSG10 code. If anyone has that, I would
appreciate it.
Example of source:
ENTERPRISE DATA CENTER \ _ / .::o:::::.
SYSTEM PROGRAMMER (\o/) .:::'''':o:.
TEST SYSTEM --- / \ --- :o:_ _:::
HAPPY HOLIDAYS >*< `:}_>()<_{:'
>0<@< @ `'//\\'` @
>>>@<<* @ # // \\ # @
>@>*<0<<< __#_#____/'____'\____#_#_
>*>>@<<<@<< _________________________Y
>@>>0<<<*<<@< |=_- .-/\ /\ /\ /\--. =_-|
>*>>0<<@<<<@<<< |-_= | \ \\ \\ \\ \ |-_=-|
>@>>*<<@<>*<<0<*< |_=-=| / // // // / |_=-_|
\*/ >0>>*<<@<>0><<*<@<< |=_- |`-'`-'`-'`-' |=_=-|
___\\U//___ >*>>@><0<<*>>@><*<0<< | =_-| o o |_==_|
|\\ | | \\| >@>>0<*<<0>>@<<0<<<*<@<|=_- | ! ( ! |=-_=|
| \\| | _(UU)_ >((*))_>0><*<0><@<<<0<*<-,-=| ! ). ! |-_-=|
|\ \| || / //||.*.*.*.|>>@<<*<<@>><0<<<((=_| ! __(:')__ ! |=_==|
|\\_|_|&&_// ||*.*.*.*|_\\db//__ (\_/)-|/5\=5=55=5=/5\| _=_|
""""|'.'.'.|~~|.*.*.*| ____|_ =('Y')=//,------------.
|'.'.'.| 555555|____|>>>>>>| ( ~~~ )/(((((((())))))))
~~~~~~~~ '""""`------' `w---w` `------------'
Please note: For everyone's mutual protection, ALL SYSTEM USE, including
electronic mail, MAY BE MONITORED to protect against unauthorized use.
Enter your application name ===> ????????????????????????????????????????
Regards,
Mark Regan
z/OS Network Systems Programmer (z NetView, z/OS Communications Server)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
