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

Hi,

there is an other way to round up to the next integer value,
using the SQL Scalar Function CEILING or CEIL within embedded SQL:

C/EXEC SQL Set :MyNextInt = Ceiling(:MyNum)
C/END-EXEC

Birgitta


-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces+hauser=sss-software.de@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+hauser=sss-software.de@xxxxxxxxxxxx]Im Auftrag
von Reeve
Gesendet: Mittwoch, 22. Dezember 2004 04:38
An: RPG programming on the AS400 / iSeries
Betreff: 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.
>
>
--
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.