Re: The target for a numeric operation is too small to holdtheresult

[Barbara Morris <bmorris@xxxxxxxxxx>]

Ted Barry wrote:
> 
> The result is -226.565217391304347826086956521739 and eval(r) didn't work.  
> Wouldn't rounding work and prevent an error?

Ted, your result field is a 5,3 (xx.xxx).  Rounding only handles digits
to the right of the decimal point; it doesn't truncate digits to the
left of the decimal point.

eval(r) doesn't usually correct truncation situations - it usually
corrects situations where decimal positions are dropped from the result
(say giving an answer of 12.000 rather 12.263).

There is no H spec keyword or operation extender that will stop your
eval from overflowing.

Do you really want the result of that calculation to be -26.565 instead
of -226.565?  If so, the easiest way to get that is to use the DIV
opcode.  The second easiest way is to use a data structure overlay:

D            DS
D  ltdpct6            6s 3
D  ltdpct             5s 3   overlay(ltdpct6:2)

       eval(h) ltdpct6 = actltd / actbud

If you don't want to change the size of the result field but you don't
really care about the result value when the overflow occurs, try this,
setting it to zero when it overflows:

   monitor
      eval(h) ltdpct = actltd / actbud      
   on-error
      eval    ltdpct = 0
   endmon

> ...
> > -----Original Message-----
> > From: Ted Barry [mailto:TBARRY@xxxxxxxxxxxxxxxxxxxx]
> > Subject: The target for a numeric operation is too small to hold the
> > result
> >
> >
> > I recently converted an rpg/400 program to rpg iv and am
> > having the following problem.
> >
> > d ltdpct          s              5  3
> >