Re: Whole numbers calc -- RPG400-L

Eval(e) Cartons = (Qty / Caseper);
If      %Rem(Qty / Caseper) > *Zero;
Eval    Cartons +=1;
Endif;

Good Luck
Bill


--- Booth Martin <booth@xxxxxxxxxxxx> wrote:

What if there 1/36th remaining?  (If there is 36 to
a carton.)  He still 
wants another whole carton.

Peter Dow (ML) wrote:

Why not just CARTONS = %INTH( (QTY / CASESPER));?

Peter Levy wrote:

steema@xxxxxxxxxxxxx wrote:

HI,
I have to calculate number of cartons based on

Qty and case pack per

model.

So it is a simple divide.

Just suppose there is some occurance where it

would not be a whole

number.

So I would like to round up in that case, and

give me another carton.

What
is the technique for this in RPG ILE?

THanks,
Steve

The round-up technique is the same everywhere:

CARTONS = %INT( (QTY / CASESPER) + 0.9);


-- 
-----------------------------
Booth Martin
www.martinvt.com
-----------------------------
-- 
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.



Good Luck
Bill
(All else fails READ THE INSTRCTIONS)

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com