RE: Round up a number to 4 decimal positions

Boy, really putting myself out there... we have had the same requirement and this is what I came up with:
http://code.midrange.com/7346c2b847.html

Note how it'd be nice to have %dech allow for a variable in the 3rd parm.

-Kurt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Therrien
Sent: Tuesday, March 19, 2013 3:33 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Round up a number to 4 decimal positions

Correction : add .00005 not .0005

Paul


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Therrien
Sent: Tuesday, March 19, 2013 3:19 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Round up a number to 4 decimal positions

If decimal value is not 0 (.0000), add .0005 to value before rounding.

Paul Therrien
Orion South, Inc.
504-374-9551
800-487-7173; Ext. 551
ptherrien@xxxxxxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gary Thompson
Sent: Tuesday, March 19, 2013 3:09 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Round up a number to 4 decimal positions

Appears to be a "one of a kind" rounding requirement, I don't see RPGLE or SQL getting you there with out some "nudging" on your part.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Tuesday, March 19, 2013 2:04 PM
To: RPG programming on the IBM i / System i
Subject: Round up a number to 4 decimal positions

All,
I have a calculation that results in the value of .0141326 that I need to have rounded up to the fourth decimal position .0142.
What is the best way to do this?
RPGLE Eval(H) results in .0141.
SQL ROUND results in .0141.

Thanks,

--
Jeff Young
Sr. Programmer Analyst
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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.