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

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

On Tue, 21 Dec 2004 taccardo@xxxxxxxxxxxxxxx wrote:
> Is there any built in functions in RPGIV that would take a decimal number
> & round it up to the nearest whole number?

%inth() or %dech() will "half-adjust" (round fractions of .5 or greater up 
to the next whole number)

Therefore, you can do the following:

     D test1           s              9P 2
     D test2           s              9P 2
     D wait            s              1A

      /free
           //  typically, rounding only rounds .5 or higher up to
           //  the next number.

            test2 = 14.78;
            test1 = %inth(test2);
            dsply (%char(test2) + ' rounds up to ' + %char(test1));


           //  In contrast, decimals below .5 get rounded down.

            test2 = 16.1;
            test1 = %inth(test2);
            dsply (%char(test2) + ' rounds down to ' + %char(test1));


           //  The regular %int() drops the fraction.  You can use
           //  this to round up "manually" if you want to always
           //  round upward:

            test2 = 16.1;
            test1 = %int(test2);

            if (test2 > test1 );
                test1 = test1 + 1;
            endif;

            dsply (%char(test2) + ' rounds up to ' + %char(test1));

            dsply ('Press ENTER to quit') ' ' wait;

            *inlr = *on;

      /end-free