RE: CL progress bar

I worked on a package for Y2K (remember that?). Programs could be repaired
individually or in groups. One of our programmers (Rick Stull, by name; a
real wizard) wrote a progress display for the group function because users
wanted to know how much longer they had to wait. It wasn't precise; I think
it was based on the number of programs, not LOC. But the main process was
driven by a CL that looped RCVFing the list of objects to be repaired.

Basically, as I recall, it was written in RPG (not CL) and, after each
program was repaired, Rick updated the percentage (he knew how many objects
were in the group and how many had been done; simple math at that point) and
refreshed the screen. But, like the RCLSTG graph, it was only a SWAG.

Not much in the way of specifics, but it might give you an idea of how to
roll your own.

Jerry C. Adams
IBM i Programmer/Analyst
I'm not as young as I used to be, but I'm not as old as I'm going to be.
--
A&K Wholesale
Murfreesboro, TN
615-867-5070


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Timothy Adair
Sent: Tuesday, August 30, 2011 11:21 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: CL progress bar

Thank you to all responders, on-list and off-list. These are some good
ideas.

One final question (I hope) -
Is there a way in CL to set up a monitor that would increment a counter
after each line of code (or each command) is executed?

~TA~



"Timothy Adair" <tadair@xxxxxxxxxxxxxxxx> wrote in message
news:mailman.4139.1314651824.2572.midrange-l@xxxxxxxxxxxx...

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.