Hi
Have a look at the expression options on the Control spec, or try changing the calc spec to add the op code extender 'Result decimal positions':
EVAL(r) neto$ = imp$ / ( 1 + porciva /100);
Cheers,
Martin
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Raul A. Jager W.
Sent: 20 January 2010 14:23
To: RPG programming on the IBM i / System i
Subject: Decimals in division
I tryed to calculate a discount using:
neto$ = imp$ / ( 1 + porciva /100);
where neto$ and imp$ are defined as 13, 2 I expected two decimals, but instead I got an integer value in neto$.
I found a "solution" using:
neto$ = %dec(imp$ / ( 1 + porciva /100): 13: 2);
Works fine, but looks more complicated than necesary.
Why the original eval did give me an integer?
TIA
Raúl
--
This is the RPG programming on the IBM i / System i (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 message (including any attachments) is only for the use of the person(s) for whom it is intended. It may contain Mattel confidential and/or trade secret information. If you are not the intended recipient, you should not copy, distribute or use this information for any purpose, and you should delete this message and inform the sender immediately.
Mattel UK Limited is incorporated in England and Wales with its registered office at Mattel House, Vanwall Business Park, Vanwall Road, Maidenhead, Berkshire SL6 4UB. Company Registration Number 1471442.
midrange.com
