Output cursor manipulation in rexx

[acheait]

I'm trying to be fancy with my rexx script and give feedback to the users when processing a large number of input.

Here's how the script output look now:
USER.NODE.SRCLIB .............................. CREATED
USER.NODE.LOADLIB.............................. CREATED
USER.NODE.PROCLIB.............................. CREATED

What I want to do is to print the dataset name first and hold off showing the 'CREATED' part until the dataset is actually created. The only thing holding me back is that I don't know how to move the output cursor back to the previous line so that 'Say CREATED' would appear on the same line as the dataset name.
I googled about this, but all I got is cursor manipulation when reading data in from a file...

Does anyone know of a way to manipulate the output cursor?

Thanks

 

[rexxhead]

Not in REXX. You may want to consider CLIST (horrors!) for your output routine.

The only other alternative I can think of is a pop-up ISPF panel which you would CONTROL DISPLAY LOCK and then write your text in a scrollable area.


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[acheait]

Thanks for the suggestion. I'll try the ISPF panel approach. I really prefer not to get involved with CLIST.

 

[RxUsr]

This might do what you're looking for.
You may need to replace the "clear" statement with a clear screen function you use at your location.


/* REXX */
DSname. = ''
Created. = ''
maxi = 0
/* 'Enter a list of dataset names' */
DSname.1 = 'USER.NODE.SRCLIB'
DSname.2 = 'USER.NODE.LOADLIB'
DSname.3 = 'USER.NODE.PROCLIB'
maxi = 3
do i = 1 to maxi
call DisplayMsg
call CreateDataset
Created.i = 'Created'
call DisplayMsg
end
Exit 0
DisplayMsg:
"clear"
"ISPEXEC CONTROL DISPLAY LINE START(1)"
do j = 1 to i
say Left(DSname.j,45,'.') Created.j
end
Return
CreateDataset:
/* wait 5 seconds to simulate time creating a dataset */
Wait = Time('E')
Do until Wait > 5
Wait = Time('E')
end
Return