Re: truncating a decimal value in /Free

["sjl" <sjl_abc@xxxxxxxxxxx>]

I took a different route and did it the right way, with no truncation.  The 
result is that when I had a very large value I had to write out multiple 
records to the output file so that the value being loaded would not overflow 
the fields being loaded.

I'll post the code used when I get a chance.

- sjl


"Booth Martin"  wrote in message 
news:mailman.9862.1358375059.10847.rpg400-l@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