|
View previous topic :: View next topic
|
| Author |
Message |
jramuk
New User
Joined: 14 Nov 2007
Posts: 18
Location: US
|
|
|
|
Hi,
Can some one tell me how to clear the screen in Rexx |
|
| Back to top |
|
 |
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
There is no way to clear the screen using REXX only.
You can, however, code a tiny Assembler program, something like this (taken from Google Groups):
| Code: |
CLS CSECT
CLS RMODE ANY
STLINENO LINE=1,CLEAR=YES
BR 14
END
|
O. |
|
| Back to top |
|
|
mpawan
Warnings : 2
New User
Joined: 03 Nov 2008
Posts: 42
Location: Pune
|
|
|
|
| how can i call this assembler program in my rexx code |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
There are many flavours of calling load modules from within REXX. Please refer to the fine manuals.
O. |
|
| Back to top |
|
|
mpawan
Warnings : 2
New User
Joined: 03 Nov 2008
Posts: 42
Location: Pune
|
|
|
|
| is there any other method as i am not able to use the assembler program |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Please clarify what do you mean by "not able to use the assembler program"... As far as I know, Assembler is available in all Z/os versions...
O. |
|
| Back to top |
|
|
manikant pathak
New User
Joined: 09 May 2005
Posts: 37
Location: bangalore
|
|
|
|
Hi,
I am using the code CLRSCRN in my REXX script here. It does clear the screen before displaying any messages from the script. I don't think this code is shop specific also.
Can you please try tthe same and let us know?
Regards,
Manikant |
|
| Back to top |
|
|
mpawan
Warnings : 2
New User
Joined: 03 Nov 2008
Posts: 42
Location: Pune
|
|
|
|
CLRSCRN is working for me.
Thanks |
|
| Back to top |
|
|
Peter Poole
New User
Joined: 07 Jan 2009
Posts: 50
Location: Scotland
|
|
|
|
CLRSCRN used (many, many years ago) to be for REXX under VM only.
If it's now supported under TSO I am one happy camper!
(Makes note to su** it and see next time he gets hold of a TSO session!)
Cheers! |
|
| Back to top |
|
|
smileseenu
New User
Joined: 27 Sep 2006
Posts: 13
Location: India
|
|
|
|
| CLRSCRN is work for me as well, Thanks guys..!! |
|
| Back to top |
|
|
giridaran
New User
Joined: 07 Sep 2006
Posts: 1
Location: Bangalore
|
|
|
|
Try this
"ISPEXEC SELECT PGM(CLRSCRN)"
Thanks,
Giri |
|
| Back to top |
|
|
RazVorox
New User
Joined: 19 Oct 2022
Posts: 32
Location: Israel
|
|
|
|
not working on all/for all.
was wondering - since its a pgm,
any chance to find it in any IBM db or get the member or ..
source code or something?
legally of-course,
where would one look for this magic of a pgm? |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany
|
|
|
|
| See CBTTAPE.org for example. It has a bunch of good tools for everyone. |
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania
|
|
|
|
Doug Nadel wrote this one, which is ISPF aware:
| Code: |
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 |
Rename it to whatever you fancy, or create a bunch of ALIAS'es |
|
| Back to top |
|
|
RazVorox
New User
Joined: 19 Oct 2022
Posts: 32
Location: Israel
|
|
|
|
Thanks a bunch!!
Gopnna go play with the asm for a while :-) |
|
| Back to top |
|
|
Vadzim
New User
Joined: 12 Jul 2023
Posts: 1
Location: PL
|
|
|
|
| When ISPF aware clear screen module invoked via REXX from ISPF it show '***' and waiting for <Enter> before cleanup the screen... Is it possible just to cleanup without extra actions? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
CONTROL DISPLAY REFRESH
Specifies that the entire screen image is to be rewritten when the next ISPF-generated full-screen write is issued to the terminal. This facility should be used before or after invoking any program that uses non-ISPF services for generating full-screen output. |
|
| Back to top |
|
|
|
|
