Re: truncating a decimal value in /Free

[Peter Dow <petercdow@xxxxxxxxx>]

I would've thought a simple

FieldB = %int(FieldA);

would do it.  Or if it you want it rounded,

FieldB = %inth(FieldA);

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>/

On 1/10/2013 3:45 PM, sjl wrote:
> FieldA is defined as 29.4 and FieldB is defined as 9.0.  The following
> calculation bombs on "Receiver value too small to hold the result."
>
> Eval FieldB = FieldA;
>
> I know that I can switch back into fixed format and use:
> Z-ADD   FIeldA         FieldB
>
> and the value of FieldB will contain a truncated value if FieldA is too
> large to fit in FieldB.  However, is there a way to accomplish this in
> free-form RPG?
>
> I know that this sounds stupid, and please do NOT ask me why I need to do
> this.
>
> I was told that if the value won't fit, truncate it, and I just don't want
> to junk up my pretty free-form program with fixed-form code.
>
> - sjl