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

Is there any built in functions in RPGIV that would take a decimal number
& round it up to the nearest 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;