rexx program

[jonats]

Does anyone know how to do this in rexx?

I want to display a text "ANY TEXT", then I want to move this text as i press the enter key (I already have the routine assigning how many spaces the text will move); just want to know how to make the text move.

Thanks,
Jonathan

 

[rexxhead]

Is this an alignment question? You could use COPIES() to load the front with blanks, for instance, to make it appear to move to the right...

Not much to go on in the original question, however. What platform? What REXX?


Frank Clarke
--Is it time for another Boston Tea Party?

 

[jonats]

no it's not an alignment question....

i'm doing some sort of racing program in rexx....

illustration (i have 3 lines of text for example
line 1: RACE ENTRY NUMBER1
line 2: RACE ENTRY NUMBER2
line 3: RACE ENTRY NUMBER3

i want my rexx to display the 3 lines, then as i press enter key, the 3 lines move to the right (each speed depends on the random assignment routine that i already have)

Platform - OS/390 V2R4.0 TSO/E REXX

thanks frank, hope you can help me....

 

[zostechhelp]

There are three way to do so.
a) use ispf DISPLAY service where you define three variable fields you fill out by rexx
b) if you use it tso native you may use the freeware assembler tool clear to position to top left and the use rexx say to position again
c) use an own written command using tput (assembler)

If you like to make movements on 3270 screen you use ispf DISPLAY service with ENTER and then you may loop as long as you like and paint what you like.

 

[jonats]

thanks....i will try the ispf display service....

would appreciate a lot if you can give a sample rexx program invoking ispf display option....

 

[YoungManRiver]

Jonats,

Please ID which version of REXX you are speaking of. I was going to ask that, but looks like MF if you are considering ISPF.

This would be easy in OO-Rexx, but doesn't run on MF.

On MF you can also look at Virtual Screens, but not all versions of the MF OS have them. They are native to CMS and some TSO versions.

YMR

 

[zostechhelp]

Hi jonats.
Enclosed you find a REXX Sample for TSO/DMS. It move a line man over the screen. It cosist of two parts. First part is a rexx script and the second part is a DMS Panel definition. Look at the runit sub function. It tell DMS to show panel and simulate enduser key stroke.

REXX Meber SAMC990:
/* REXX */

wlk.1.1 = " O ";
wlk.1.2 = "o ! ";
wlk.1.3 = " !-- ";
wlk.1.4 = " ! ";
wlk.1.5 = " / ` ";
wlk.1.6 = "/_ _";

wlk.2.1 = " O ";
wlk.2.2 = "< / ";
wlk.2.3 = " -!-- ";
wlk.2.4 = " ! ";
wlk.2.5 = " / ` ";
wlk.2.6 = " - L ";

wlk.3.1 = " O ";
wlk.3.2 = " ! ";
wlk.3.3 = " -!-- ";
wlk.3.4 = " ! ";
wlk.3.5 = " `` ";
wlk.3.6 = " /_L ";

wlk.4.1 = " O ";
wlk.4.2 = " ! ";
wlk.4.3 = " -!-- ";
wlk.4.4 = " ! ";
wlk.4.5 = " / ";
wlk.4.6 = " / `_";

wlke.1.1 = " ? O";
wlke.1.2 = "BOING !";
wlke.1.3 = " !";
wlke.1.4 = " !";
wlke.1.5 = " !";
wlke.1.6 = " /__!";

wlke.2.1 = "AUTSCH*";
wlke.2.2 = " * ";
wlke.2.3 = " * O";
wlke.2.4 = " !";
wlke.2.5 = " !";
wlke.2.6 = " /__J";

wlke.3.1 = "FLUSH ";
wlke.3.2 = " ";
wlke.3.3 = " ";
wlke.3.4 = " O";
wlke.3.5 = " -!";
wlke.3.6 = " ___J";

wlke.4.1 = "KO ";
wlke.4.2 = " UFF ";
wlke.4.3 = " ";
wlke.4.4 = " ";
wlke.4.5 = " O";
wlke.4.6 = "______J";

maximum = 30;

address ISPEXEC;
'ADDPOP ROW(10) COLUMN(6)';

do i=1 to maximum;
spc = substr('',1,i,' ');
do ib = 1 to 4;
do iz = 1 to 6;
x = spc''wlk.ib.iz;
interpret 'lwlk'iz' = substr(x,1,maximum+7)"!"';
end;
x = runit();
end;
end;

do ib=1 to 4;
do iz = 1 to 6;
interpret 'lwlk'iz' = spc""wlke.ib.iz"!"';
end;
x = runit();
end;

'DISPLAY PANEL(SAMP990)';
'REMPOP'

exit(0);

runit:
'CONTROL DISPLAY LOCK'
'DISPLAY PANEL(SAMP990)'
return 0;


Panel definition SAMP990 for rexx above.

)attr
$ type(output) intens(high) just(asis) caps(on)
)body window(42,12) expand(//)
%/-/ L„ufer /-/
%Kommando ==>_ZCMD / /+
%
+ / / Die L„ufer PackMan Story / /
+
+ $LWLK1 +
+ $LWLK2 +
+ $LWLK3 +
+ $LWLK4 +
+ $LWLK5 +
+ $LWLK6 +
+ --------------------------------------
)end

 

[jonats]

thanks a lot! this is what i am looking for.