Wouldn't it be easier to start with the panel definition?
________________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of Tom
Brennan <[email protected]>
Sent: Friday, October 6, 2023 2:51 AM
To: [email protected]
Subject: Re: Creating USSMSG10 ASM code from Screen text using CLIST or REXX
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
