Progress Bar while running a program under ISPF



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

Progress Bar while running a program under ISPF

Postby Gilles » Sat Dec 13, 2008 12:41 am

Is it possible, while running a program under ISPF to display a panel that would appear as a progress bar like we see in so many windows applications ?
Gilles
 
Posts: 16
Joined: Mon Sep 29, 2008 6:10 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Progress Bar

Postby MrSpock » Sat Dec 13, 2008 1:08 am

Sure, why not. I've seen that done with some third-party products.
User avatar
MrSpock
Global moderator
 
Posts: 807
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 4 times

Re: Progress Bar while running a program under ISPF

Postby Gilles » Sat Dec 13, 2008 2:08 am

I'd be interested to know how it's done at the panel level to see if I can code one. Would anybody have such an example by any chance ?
Gilles
 
Posts: 16
Joined: Mon Sep 29, 2008 6:10 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Progress Bar while running a program under ISPF

Postby Bill Dennis » Mon Dec 15, 2008 8:24 pm

I don't have an example but I believe it's done by updating a variable and redisplaying the panel in "input locked" mode so the user can't enter new commands. Perhaps the ISPF Dialog Developers Guide has some examples.
Regards,

Bill Dennis

Disclaimer: My comments on this forum are my own and do not represent the opinions or suggestions of any other person or business entity.
Bill Dennis
 
Posts: 278
Joined: Thu May 15, 2008 9:45 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Progress Bar while running a program under ISPF

Postby MrSpock » Tue Dec 16, 2008 12:13 am

Maybe this ISPF animation example will help?
User avatar
MrSpock
Global moderator
 
Posts: 807
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 4 times

Re: Progress Bar while running a program under ISPF

Postby Gilles » Tue Dec 16, 2008 1:26 am

Thanks for your input. I've managed to make a very crude progress bar with a dynamic area inside a panel. It obviously could use some improvement but I can live with that for my small project. I just put it out here in case it can help somebody or if a better way can be found starting from what I've done.

The Panel DYNAREA

)ATTR
# AREA(DYNAMIC)
/ TYPE(CHAR) INTENS(HIGH) COLOR(GREEN) HILITE(REVERSE)
)BODY WINDOW(50,1)
#SAREA,SHADOW -----------------------------------#
)END

The REXX DYNAREA

/* REXX */

SAREA = ' '
SHADOW = ''

ADDRESS 'ISPEXEC'
"ADDPOP ROW(05) COLUMN(10)"

DO K=1 TO 50
SHADOW = SHADOW || '/'
"CONTROL DISPLAY LOCK"
"DISPLAY PANEL(DYNAREA)"
DO L=1 TO 20000
END
END

"REMPOP"

EXIT
Gilles
 
Posts: 16
Joined: Mon Sep 29, 2008 6:10 pm
Has thanked: 0 time
Been thanked: 0 time


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post