Clear screen commands using REXX

[karthick I]

Hi all,
Is there any REXX command using which we can clear the screen ?? I
tried CLRSCR and CLR3270 but both arent workin... any suggestions??
Thank you

Karthick.I
---------------------------------------------

Unless expressly stated to the contrary, the views expressed in this email
are not necessarily the views of National Grid Transco plc or any of its
subsidiaries or affiliates (Group Companies), and the Group Companies,
their directors, officers and employees make no representation and accept
no liability for its accuracy or completeness.

This e-mail, and any attachments are strictly confidential and intended for
the addressee(s) only. The content may also contain legal, professional or
other privileged information. If you are not the intended recipient, please
notify the sender immediately and then delete the e-mail and any
attachments. You should not disclose, copy or take any action in reliance
on this transmission.

You may report the matter by calling us on + 44(0) 1455 230999

Please ensure you have adequate virus protection before you open or detach
any documents from this transmission. The Group Companies do not accept
any liability for viruses. An e-mail reply to this address may be subject
to monitoring for operational reasons or lawful business practices.

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

[Mohan, Jayaraj , Cognizant]

Try 'CLEAR' at the starting.

[UHRIG, PETER]

--- Erhalten von ORGAINFO.UHRIG 4470 12-05-03 13.32

-> tso-...@vm.marist.edu

hi,
try this : ADDRESS TSO TSOCLEAR

[karthick I]

Hi peter,
tried that but this is what it says

COMMAND TSOCLEAR NOT FOUND
2 *-* address tso tsoclear
+++ RC(-3) +++

[Mohan, Jayaraj , Cognizant]

Karthick,
Have you tried like this ?
/* Rexx */
"clear"
Thanks
Jayaraj

-----Original Message-----
From: karthick I [mailto:karthick.i...@UKTRANSCO.COM]
Sent: Monday, May 12, 2003 5:27 PM
To: TSO-...@VM.MARIST.EDU
Subject: Re: Clear screen commands using REXX

[Ken MacKenzie]

There is NO standard command to clear the screen in TSO. Most sites create
their own little assembler routine and give it names like CLRSCRN, CLEAR,
CLS, $$CLEAR, etc.

Take a look at the following thread on Google - which gives an example of
some assembler code you can use.

http://groups.google.com/groups?hl=en&lr
=&ie=UTF-8&oe=UTF-8&threadm=A381F60CA19ED311A6BB00508B5E14780561F620%40REFROWCMPX5&rnum=1&prev=/groups%3Fas_q%3Dclear%26safe%3Dimages%26ie%3DUTF-8%26oe%3DUTF-8%26as_ugroup%3Dbit.listserv.ispf-l%26as_uauthors%3DKen%2520MacKenzie%26lr%3D%26hl%3Den

karthick I
<karthick.i...@UKTRANSCO.COM> To: TSO-...@VM.MARIST.EDU
cc:
Sent by: TSO REXX Discussion List Subject: Re: Clear screen commands using REXX
<TSO-...@VM.MARIST.EDU>

Monday May 12, 2003 12:57
Please respond to TSO REXX
Discussion List

[karthick I]

Hi Jayaraj
I gave the same syntax as u told me ... and
this is what the system says.... am I missing somthin or doin some silly
mistake somwhere????

COMMAND CLEAR NOT FOUND
2 *-* "CLEAR"
+++ RC(-3) +++

and so i tried this (guess its all the same still i tried)

ADDRESS TSO "CLEAR"
and ,

COMMAND CLEAR NOT FOUND
2 *-* ADDRESS TSO "CLEAR"

[UHRIG, PETER]

--- Erhalten von ORGAINFO.UHRIG 4470 12-05-03 14.39

-> tso-...@vm.marist.edu

hi karthick,
it's possible that your system isn't the sam like our.
we have z/OS 01.04.00 HBB7707
and the rexx-statement ADDRESS TSO TSOCLEAR
works correct.

regards peter

From: karthick.i...@UKTRANSCO.COM
To: TSO-...@VM.MARIST.EDU
Date: Mon, 12 May 2003 12:57:00 +0100
Subject: Re: Clear screen commands using REXX

Hi peter,
tried that but this is what it says

COMMAND TSOCLEAR NOT FOUND
2 *-* address tso tsoclear

[Imbriale, Donald , Exchange]

It has NOTHING to do with the level of your operating system. As was stated
previously, there is no built-in TSO command to clear the screen. You have
to write your own.

BTW, you do realize the OS/390 1.3 is way off support by now?

Don Imbriale
dimb...@bear.com <mailto:dimb...@bear.com>

-----Original Message-----
From: karthick I [SMTP:karthick.i...@UKTRANSCO.COM]
Sent: Monday, May 12, 2003 9:04
To: TSO-...@VM.MARIST.EDU
Subject: Re: Clear screen commands using REXX

oh yeah cud be thats the reason .. am using a 'vintage' one.. a OS 390 V
1.3 .. (ever heard of that still being used !!??? ) .. we do.. :-)

****************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************

[karthick I]

oh yeah cud be thats the reason .. am using a 'vintage' one.. a OS 390 V
1.3 .. (ever heard of that still being used !!??? ) .. we do.. :-)

Regards,
Karthick.I
----------------------------------------------
AT-LINK & IBM Ops Support
Transco Support Project
Internal No : 715-32817
---------------------------------------------

"UHRIG, PETER"
<PETER.UHRIG@BHF.
ING.COM> To: TSO-...@VM.MARIST.EDU
Sent by: TSO REXX cc:
Discussion List Subject: Re: Clear screen commands using REXX
<TSO-...@VM.MARI
ST.EDU>

12/05/03 13:39

Please respond to
TSO REXX
Discussion List

--- Erhalten von ORGAINFO.UHRIG 4470 12-05-03 14.39

-> tso-...@vm.marist.edu

hi karthick,
it's possible that your system isn't the sam like our.
we have z/OS 01.04.00 HBB7707
and the rexx-statement ADDRESS TSO TSOCLEAR
works correct.

regards peter

Unless expressly stated to the contrary, the views expressed in this email

are not necessarily the views of National Grid Transco plc or any of its
subsidiaries or affiliates (Group Companies), and the Group Companies,
their directors, officers and employees make no representation and accept
no liability for its accuracy or completeness.

This e-mail, and any attachments are strictly confidential and intended for
the addressee(s) only. The content may also contain legal, professional or
other privileged information. If you are not the intended recipient, please
notify the sender immediately and then delete the e-mail and any
attachments. You should not disclose, copy or take any action in reliance
on this transmission.

You may report the matter by calling us on + 44(0) 1455 230999

Please ensure you have adequate virus protection before you open or detach
any documents from this transmission. The Group Companies do not accept
any liability for viruses. An e-mail reply to this address may be subject
to monitoring for operational reasons or lawful business practices.

----------------------------------------------------------------------

[Oscar Salgado Sanchez]

I?m trying with this code:

ADDRESS TSO
DO i=1 TO 4
SAY i
IF (i // 2)=0 THEN DO
"CLEAR"
END
END

When I run it, this is what I obtain:
1
2
***
And after hiting Enter, the screen is cleared and appears:
3
4
***

If I run it with a previous TRACE I, this is what is displayed:

3 *-* ADDRESS TSO
4 *-* DO i=1 TO 4
>L> "1"
>L> "4"
5 *-* SAY i
>V> "1"
1
6 *-* IF (i // 2)=0
>V> "1"
>L> "2"
>O> "1"
>L> "0"
>O> "0"
9 *-* END
4 *-* DO i=1 TO 4
5 *-* SAY i
>V> "2"
2
6 *-* IF (i // 2)=0
>V> "2"
>L> "2"
>O> "0"
>L> "0"
>O> "1"
*-* THEN
*-* DO
7 *-* "CLEAR"
>L> "CLEAR"
***

I hit ENTER, then the screen is cleared and appears:

+++ RC(238064) +++
8 *-* END
9 *-* END
4 *-* DO i=1 TO 4
5 *-* SAY i
>V> "3"
3
6 *-* IF (i // 2)=0
>V> "3"
>L> "2"
>O> "1"
>L> "0"
>O> "0"
9 *-* END
4 *-* DO i=1 TO 4
5 *-* SAY i
>V> "4"
4
6 *-* IF (i // 2)=0
>V> "4"
>L> "2"
>O> "0"
>L> "0"
>O> "1"
*-* THEN
*-* DO
7 *-* "CLEAR"
>L> "CLEAR"
***

I hit ENTER, then the screen is cleared and appears:

+++ RC(238064) +++
8 *-* END
9 *-* END
4 *-* DO i=1 TO 4
***

It seems that TSO recognizes the command, because it is executed, but it
returns an error (RC=238064???) to REXX. I've searched through all the
concatenated libraries and I didn?t find any member called CLEAR. May
somebody give us some idea about where resides this command if it is not
intrinsic to TSO.

Thanks

Oscar Salgado Sanchez

-----Mensaje original-----
De: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU]En nombre de
Ken MacKenzie
Enviado el: lunes, 12 de mayo de 2003 14:42
Para: TSO-...@VM.MARIST.EDU
Asunto: Re: Clear screen commands using REXX

[Stephen E. Bacher]

>It seems that TSO recognizes the command, because it is executed, but it
>returns an error (RC=238064???) to REXX.

Whoever wrote the program you're using never bothered to set the return
code to zero before exiting (register 15 if it's an assembler language
program). That normally wouldn't matter for a simple program like this,
but will cause problems if run from a REXX exec that has SIGNAL ON ERROR
active, for example.

>I've searched through all the
>concatenated libraries and I didn?t find any member called CLEAR.

Did you search CLIST/REXX libraries or load libraries? It's
probably in one of the the system link list libraries. But that
won't help you locate the source code, which is probably not
accessible to you.

As others have pointed out, there are various programs for clearing
the screen available publicly, several on the CBT tape alone, I think.

- seb

[Schwarz, Barry A]

You are not alone, I have three customers still using it and the highest PUT level is 98xx

-----Original Message-----
From: karthick I [mailto:karthick.i...@UKTRANSCO.COM]
Sent: Monday, May 12, 2003 6:04 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: Clear screen commands using REXX

oh yeah cud be thats the reason .. am using a 'vintage' one.. a OS 390 V
1.3 .. (ever heard of that still being used !!??? ) .. we do.. :-)

----------------------------------------------------------------------