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

["HauserSSS" <Hauser@xxxxxxxxxxxxxxx>]

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.