Re: truncating a decimal value in /Free

[Booth Martin <booth@xxxxxxxxxxxx>]

Will that also handle the 29-into-9 digits problem?  That was why I 
added the %char() & %subst(last 9) route.

On 1/10/2013 11:17 PM, Peter Dow wrote:
> 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