Re: Another Question about DIV and MVR

When "Remainder" = 0, output a *STATUS message showing the percentage of the
process that is complete. So, when I load my subfile, or print the subfile,
the user can see how close they are to being done.
Thanks to ALL who responded. Math and me don't get along too well... :-)
On Wed, Apr 9, 2008 at 10:21 AM, Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>
wrote:

David Turnidge wrote:

This code is from Martin Rowe's Progress Meter. How can I change the

code to

FREE?


/END-FREE

C RcdsRead DIV OnePercent P_Percent

C MVR Remainder

/FREE

Given Charles' reasonable assumption that there is something called
TotalRecords, I'd just do this:

P_Percent = RcdsRead * 100 / TotalRecords;

Next, I'd like to see what Remainder is being used for. I can't figure
out an easy way to get it because it will be using the remainder rules
for divisors with decimal positions, which hurts my brain a little bit.
But I also can't see a good use for it, except possibly rounding. And
if you want a rounded value, just do this:

eval(h) P_Percent = RcdsRead * 100 / TotalRecords;

Joe
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.