Re: truncating a decimal value in /Free

[Peter Dow <petercdow@xxxxxxxxx>]

I knew I must be missing something - thanks Booth. I was concentrating 
on the decimal places.  %int will only truncate the decimal positions. 
However, if the values in the 29 digit part don't exceed 999,999,999, 
then it would work just fine.

On 1/10/2013 9:16 PM, Booth Martin wrote:
> 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