Re: Half Adjust in RPG Free

You could always go back to the old days. The half adjust solution in
assembly language.

If your field is defined as 7,2 you can add .005 i.e.

my72fld = (25 / 9); // result will be 2.777777777, field will be 2.77

my72fld = (25 / 9) + .005 // result will be 2.782777777, field will be 2.78
half adjusted.





On Wed, Jun 13, 2012 at 4:00 PM, Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

On 2012-06-13, at 3:29 PM, rpg400-l-request@xxxxxxxxxxxx wrote:

I've not found any solution in the manual and I'm wondering if you can
half-adjust a quotient or product result in Rpg Free. The free form

syntax

in the manual doesn't show any method of doing it that I can find.

Well my manual shows the following:

Free-Form Syntax {EVAL{(HMR)}} result = expression
{EVAL{(HMR)}} result += expression
{EVAL{(HMR)}} result -= expression
{EVAL{(HMR)}} result *= expression
{EVAL{(HMR)}} result /= expression
{EVAL{(HMR)}} result **= expression

EVAL is an optional op-code. If you want to use any of the op-code
extenders (the name's a giveaway) then you have to have an op-code to
extend! i.e. EVAL.

So H, M and R extenders all require the use of the op-code.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com




--
This is the RPG programming on the IBM i / System i (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.