Re: Another Question about DIV and MVR

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

Whenever I have to use %div( ) and/or %rem( ) with decimals, such as 
pricing, I always multiple both the dividend and divisor by an 
appropriate value (such as 100) and use those values.  Just remember 
that both sides of the formula must be multiplied by the same factor.  
For example:

   45.7 / 13.33 = 3.42...

Multiplying by 10 and 100, respectively, before the division results in 
.342, which is incorrect.

Multiplying both sides by 100 (4570 / 1333) still yields 3.42...

	* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
	615.995.7024
fax
	615.995.1201
email
	jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



David Turnidge wrote:
> 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.
> > >
> > >
> > >