Re: truncating a decimal value in /Free

[Booth Martin <booth@xxxxxxxxxxxx>]

I like this %rem solution.  Lets see if I am understanding it correctly. 
 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")))






On 1/16/2013 3:54 PM, Jack Callahan wrote:
> Should work. %rem function requires value to have zero decimal places:
>
> D valuelimit      S             10s 0  inz(1000000000)
> D valueA          S             29s 4
> D valueA0         S             25s 0  inz(0)
> D valueB          S              9s 0  inz(0)
>
>   /free
>
>     if ( valuea<valuelimit );
>        valueb =  valuea;
>     else;
>        valueA0 = valueA;
>        valueb = %rem( valueA0 : ValueLimit );
>     endif;
>
> /end-free