>From Doug Nadel, seems to use almost the same hexadecimal bytes:
* Doug Nadel - http://sillysot.com/ftp/ispclear.txt
ISPCLEAR CSECT , ISPF aware clear screen module
ISPCLEAR AMODE 31
ISPCLEAR RMODE 24
STM 14,12,12(13)
LR 12,15
USING ISPCLEAR,12
LA 15,SAVEAREA
ST 15,8(13)
ST 13,4(15)
LR 13,15
STFSMODE INITIAL=YES Initialize full screen mode
TPUT CLR,L'CLR,FULLSCR,,HOLD Clear the screen
STLINENO LINE=1 Clear screen & set cursor to line 1
STFSMODE OFF Go back to line mode
STTMPMD OFF Let session manager play with us
TCLEARQ INPUT Clear input queue
L 15,=V(ISPQRY) Load ISPF environment test address
BALR 14,15 See if ISPF is available
LTR 15,15
BNZ NOISPF If not, go to exit
L 15,=V(ISPLINK) Load ISPLINK interface address
LA 1,ISPPARMS ISPLINK CONTROL DISPLAY REFRESH
BALR 14,15 To force screen refresh on return
NOISPF L 13,4(13)
LM 14,12,12(13)
XR 15,15 Always return a zero return code
BR 14
SAVEAREA DS 9D
ISPPARMS DC A(CONTROL),A(DISPLAY),A(REFRESH+X'80000000')
CONTROL DC CL8'CONTROL '
DISPLAY DC CL8'DISPLAY '
REFRESH DC CL8'REFRESH '
CLR DC X'401140403C40400013'
DS 0F
LTORG
END ISPCLEAR
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>
On Thu, 18 Jun 2026 at 08:25, Martin Packer <[email protected]>
wrote:
> For those of us unfamiliar with 3270 data streams can somebody decode the
> hex before the readable text. Thanks!
>
> From: IBM Mainframe Discussion List <[email protected]> on behalf
> of salva <[email protected]>
> Date: Thursday, 18 June 2026 at 07:43
> To: [email protected] <[email protected]>
> Subject: [EXTERNAL] Re: Two TSO terminal I/O from Rexx questions
>
> 1. You can play with:
> say 'f5c311404040'x||'Hellow clear world!'
> (your result may change based on your Logmode, I can't do an empty say
> 'f5c311404040'x.
>
> 2. If you are also in ISPF you can get ZSCREEND from the shared profile.
>
> El jue, 18 jun 2026 a las 0:16, Charles Mills (<[email protected]>)
> escribió:
>
> > 1. If one were writing a Rexx exec to run in an interactive TSO
> > environment, what would be the best way to clear the screen and make the
> > next SAY write to the first line of the screen? Calling out to a
> > user-written assembler routine that used the STLINENO macro? Or ... ?
> >
> > 2. From a Rexx exec running in interactive TSO, what would be the best
> way
> > to determine the number of lines on the terminal? Basically the number of
> > SAYs that one could do before the user received a *** prompt?
> >
> > Any related considerations?
> >
> > Thanks,
> > Charles
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
