Re: truncating a decimal value in /Free

[Jack Callahan <jjcllhn@xxxxxxxxx>]

If you're shooting for a one line solution, should use %dec rather than
%int. System generated integer to hold intermediate value might truncate
FieldA. Something like this:

FieldB = %rem( %dec( FieldA :25 : 0 ) : 1000000000 ) ;

%dec( FieldA : 25 : 0) casts the original value in a format acceptable for
the %rem function, dropping the decimal places which are immaterial to the
solution (FieldB  is 9.0)

The %rem function will always returns the least most significant nine
digits with the given divisor(1,000,000,000). If the number is less than
one trillion , no high order value truncation takes place. No substring
operation is needed.

I prefer the explicit test for clarity.

On Wed, Jan 16, 2013 at 5:19 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

> I  Can we do just these two lines??  Or do we still get the "Receiver too
> small"?
>
>   D valuelimit      S             10s 0  inz(1000000000)
> ...
>    /free
> ....
> FieldB = %rem(%int(FieldA): valueLimit);
> ...
> ??
>
> I would think one would still need a %subst() in there somewhere, to get
> from 25 to 9.
>
> FieldB = %dec(%subst(%char(%rem(%int(
> FieldA)): "last 9 characters")))