Rexx display spinner

[iadithot]

I am very new to Rexx programming. But thanks to your forum I am slowly making progress.

While I am looping through the edits I want to display a count of the number of changes so the user can see that the macro is still running. I am using a simple SAY command to display the count. The problem is when there are hundreds of changes. The users get inundated with pages and pages of counts.

Is there a way to make successive SAY commands display on the same line on the users terminal?

Thanks for any help.

Kirby Haley

 

[rexxhead]

There is with ISPF DISPLAY facilities. The method is to CONTROL DISPLAY LOCK the display:

   "ADDPOP ROW(5) COLUMN(5)"
   do clx = 1 to 450
      "CONTROL DISPLAY LOCK"
      "DISPLAY PANEL(COUNTER)"
   end
   "REMPOP"

Panel COUNTER looks like

)ATTR
    +  TYPE(TEXT)
    %  TYPE(OUTPUT)   INTENS(HIGH)
)BODY WINDOW(9,3)
+
%CLX
+
)END

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

 

[iadithot]

Thanks Frank. I'm an application programmer not a system programmer. So I have not programmed the ISPF Panels before. As soon as I read up in them I'll give your suggestion a try.

I'm assuming the place to learn about the ISPF Panels is the ISPF Users Guide. Does anyone know of a better source?

 

[rexxhead]

The 'Dialog Developer's Guide' and 'ISPF Services'.

The first explains all about building panels, skeletons, etc; the second reveals how to crank them.


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