Re: Built In Function: Round Decimal Up to Nearest Whole Number

If number <> %int(number);
number = %int(number) + 1;
endif;

-reeve


On Tue, 21 Dec 2004 14:24:20 -0330, RPower@xxxxxxxxxx <RPower@xxxxxxxxxx> wrote:
> Sorry,
> I meant to designate it as an integer.  :O
> But yes, it is a Bif, so that would be correct.  What I meant to say was
> Eval(h)         Int1 = dec1 + dec2
> 
> Or for always rounding up
> 
> Eval(h)        Int1 = dec1 + dec2 + .4
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. -
> Sir Winston Churchill
> 
> 
> jstevens@xxxxxxxxxxxxxx
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 21/12/2004 02:18 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Re: Built In Function:  Round Decimal Up to Nearest Whole Number
> 
> Ron,
> 
> I'm confused - isn't INT a BIF?
> 
> So wouldn't the line be?
> 
> Eval(h) %INT(Num1) = decimal2 + decimal3;
> 
> Could you elaborate on your answer a little more please?
> 
> thanks!
> 
> Jeff Stevens
> Mize, Houser & Co. P.A.
> 913 451 1882
> JStevens@xxxxxxxxxxxxxx
> 
> RPower@xxxxxxxxxx
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 12/21/2004 08:14 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Re: Built In Function:  Round Decimal Up to Nearest Whole Number
> 
> Eval(h)         Int(num1) =  decimal2 + decimal3
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. -
> Sir Winston Churchill
> 
> taccardo@xxxxxxxxxxxxxxx
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 21/12/2004 02:00 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> rpg400-l@xxxxxxxxxxxx
> cc
> 
> Subject
> Built In Function:  Round Decimal Up to Nearest Whole Number
> 
> Hello,
> 
> Is there any built in functions in RPGIV that would take a decimal number
> & round it up to the nearest whole number?
> 
> Thanks for your help,
> 
> Terri Accardo
> Senior Programmer/Analyst
> Sunstone, Inc./Jezlaine Ltd.
> 847-965-1700   Ext. 335
> 847-965-8525 (Fax)
> taccardo@xxxxxxxxxxxxxxx
> --
> 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.
> 
> --
> 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.
> 
>