|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.