RE: %editc an expression

To extend on what Bob has said ... If you ever want to know how big the
compiler thinks something is - ask it!

The first dsply below uses %Len against the %editc to see how long the
compiler reckons it is - 15 in this case.

The second display shows how you could have used %Dec to force the length of
the f1 * f2 calculation.  Since you know that you are only multiplying by 1
it is fine to force the result to 9,2.  The result of the dsply now is 14
which fits the original field.

D  f1             s              9s 2                           
D  f2             s              1s 0                           
 /free                                                          
  dsply ( %char(%len(%editc( f1 * f2 : 'J' : '$'))));           
  dsply ( %char(%len(%editc( %dec(f1 * f2: 9: 2): 'J' : '$'))));
  *inlr = *on;                                                  

Jon Paris
Partner400

www.Partner400.com