Re: truncating a decimal value in /Free

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")))