Re: Another Question about DIV and MVR

["David Turnidge" <daveturnidge@xxxxxxxxx>]

Or, better stated - Neither %DIV or %REM work with decimals....

On Wed, Apr 9, 2008 at 11:11 AM, David Turnidge <daveturnidge@xxxxxxxxx>
wrote:

> Tried that - doesn't work. Both %DIV and %REM require integers... :-(
>
>
> On Wed, Apr 9, 2008 at 11:04 AM, Jeff Young <cooljeff913@xxxxxxxxx> wrote:
>
> > Try this:
> > P_Percent =  %Div(RcdsRead  : OnePercent );
> > Remainder = %Rem(RcdsRead  : OnePercent );
> >
> > Jeff Young
> > Sr. Programmer Analyst
> > IBM -e(logo) server Certified Systems Exper - iSeries Technical
> > Solutions V5R2
> > IBM  Certified Specialist- e(logo) server i5Series Technical Solutions
> > Designer V5R3
> > IBM  Certified Specialist- e(logo)server i5Series Technical Solutions
> > Implementer V5R3
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > ----- Original Message ----
> > From: David Turnidge <daveturnidge@xxxxxxxxx>
> > To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > Sent: Wednesday, April 9, 2008 10:47:22 AM
> > Subject: Another Question about DIV and MVR
> >
> > This code is from Martin Rowe's Progress Meter. How can I change the
> > code to
> > FREE?
> >
> >
> >
> >    D OnePercent      S            11p 2
> >
> >    D P_Percent      S              3p 0
> >
> >    D RcdsRead        S              9p 0
> >
> >    D Remainder      S              9p 0
> >
> >
> >
> >
> >
> >      /END-FREE
> >
> >    C    RcdsRead      DIV      OnePercent    P_Percent
> >
> >    C                  MVR                    Remainder
> >
> >      /FREE
> >
> >
> >
> > I have read the postings on %DIV and %REM, and can't get away from the
> > integer requirement. Not sure what to do with OnePercent…
> >
> > Dave
> >  --
> > 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.
> > --
> > 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.