Re: Another Question about DIV and MVR

["David Turnidge" <daveturnidge@xxxxxxxxx>]

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.