Re: Another Question about DIV and MVR

["David Turnidge" <daveturnidge@xxxxxxxxx>]

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.