Re: Progress bars (WAS: performance loading a subfile)

Put me on the spot, eh? Ok, let's see if I can come up with something:

DDS:
    A          PROGBAR       50A   O   23   1

ILE RPG:
    D pct            3p 0

    C         EVAL    PROGBAR = *blanks  (to get rid of the previous attr
byte)
    C         EVAL    pct = (CurrentRec * %size(PROGBAR)) / TotalRecs
    C         EVAL    %subst(PROGBAR:pct:1) = x'21'

How's that?

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: <booth@martinvt.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, September 13, 2000 7:35 PM
Subject: Re: Progress bars (WAS: performance loading a subfile)


> That makes sense.  With the new %bifs this should be easy, right?  Lets
> say the field PBAR50 is 50 wide and the % value is 23%.   What would the
> line(s) of code look like?  Reverse Image green is  x'21'
>
> _______________________
> Booth Martin
> Booth@MartinVT.com
> http://www.MartinVT.com
> _______________________
>
>
>
>
> "Peter Dow" <pcdow@yahoo.com>
> Sent by: owner-rpg400-l@midrange.com
> 09/13/2000 09:28 PM
> Please respond to RPG400-L
>
>
>         To:     <RPG400-L@midrange.com>
>         cc:
>         Subject:        Re: Progress bars (WAS: performance loading a
subfile)
>
> Just a guess, but how about a output-only field 50 characters wide with
> color red, then just place a green attribute byte at the dividing point
> between complete and incomplete based on your % calculation. When it
> changes, you blank out the entire field, put the attribute byte at the
> appropriate positon, and center the xx% done.  Centering the xx% so that
> it
> misses the green attribute byte might be a little tricky, but not
> impossible.
>
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
>
>
> ----- Original Message -----
> From: <booth@martinvt.com>
> To: <RPG400-L@midrange.com>
> Sent: Wednesday, September 13, 2000 5:43 PM
> Subject: Re: Progress bars (WAS: performance loading a subfile)
>
>
> > (FYI, I used Hummingbird's 5250 client and it worked well.)
> >
> > But how do you make the actual bar with the red/green reverse image
> > display?   I can do the numbers and get the % easily enough but the
> actual
> > color bar with the red-to-green is a mystery.
> >
> > _______________________
> > Booth Martin
> > Booth@MartinVT.com
> > http://www.MartinVT.com
> > _______________________
> >
> >
> >
> >
> > "James W. Kilgore" <qappdsn@attglobal.net>
> > Sent by: owner-rpg400-l@midrange.com
> > 09/13/2000 03:04 PM
> > Please respond to RPG400-L
> >
> >
> >         To:     RPG400-L@midrange.com
> >         cc:
> >         Subject:        Re: Progress bars (WAS: performance loading a
> subfile)
> >
> > Mike,
> >
> > What are you using as a telnet client?
> >
> > Mochasoft and PSI will render the colors properly, but Netwolf does not.
> >
> > BTW, the site is hosted by John Ross.
> >
> > As to how it's done, the progress bar program is a standalone program
> > called by the program doing the processing.
> >
> > At program initialization time, the number of records in the file to be
> > processed is divided by 100 to get the xx% increment and the progress
> > bar program is called to establish start time, within the mainline code
> > each record is counted and compared to the increment value.  Once the
> > increment value is reached, the progress bar program is called again and
> > the xx% completed, current entry number, elapsed time and estimated
> > remaining time is redisplayed.  At LR the progress bar program is called
> > again with a shutdown flag.
> >
> > The estimated completion time does -not- work if you are using OPNQRYF
> > with record selection.  The file feedback data structure will give the
> > total number of records on file, not the records selected.
> >
> > J. Kilgore
> >
> > Mike Silvers wrote:
> >
> > > where is the example of the progress bar?  I tried as described on the
> > > list before, but I was not able to signon..
> > >
> > >      Subject:        RE: Progress bars (WAS: performance loading
> > >      a subfile)
> > >      Martin
> > >      You can view an example of progress bar running.Telnet to
> > >      63.167.147.10
> > >      .It leads to netshare400.com.i think hosted by James
> > >      Kilgore.Signon as
> > >      WYATTERP with the same name as password.You will see a menu
> > >      run the first
> > >      one boom u will see the progress bar running.Well I havent
> > >      checked how
> > >      it's done I am too interested!
> > >
> >
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> > david@midrange.com
> > +---
> >
> >
> >
> >
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> david@midrange.com
> > +---
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>
>
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---