Re: CL progress bar

Timothy,

I haven't worked with 5250 screens for a long time now but, off the top of
my balding head, I would suggest:

Long and complicated route:

1) Create a small RPG program that writes a small overlay window with your
progress bar. It could receive as a parameter your program or CL name. You
could use a predefined table that matches program and its value according
to, say, relative execution time,

2) Work with CL's exit point program (IIRC, it was something like
QIBM_QCA_CHG_COMMAND ), check out the command to be processed and everytime
it gets called executes the RPG defined in step 1.

Shorter and simpler route:
1) Define your RPG prgram.
2) After every step you want to be reflected in your progress bar, just call
your RPG program.


HTH,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Mon, Aug 29, 2011 at 4:34 PM, Timothy Adair <tadair@xxxxxxxxxxxxxxxx>wrote:

Has anyone found a way to do a simple progress bar in CL? I have a
long-running interactive CL (please don't ask why) and I want to keep the
user informed of the progress. It could be a bar, or just a simple percent
count-up. I've searched the archives and the only thing I found was Booth
Martin's RPG progress bar. A neat piece of work but it doesn't fit my
needs. I'm currently using ten SNDPGMMSG commands (10%, 20%, etc.)
sprinkled throughout the code. Clunky, but somewhat functional.

Maybe I'm dreaming but...
If CL issues (or receives) a return code for every command executed, is
there a way to trigger something after each command, regardless of the
return code? Pretty vague, I know. Sorry about that.

As always, any and all responses are appreciated.

~TA~

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.