RE: The target for a numeric operation is too small!!!!!

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

For one thing, the truncate numeric does not apply to values in
expressions(which is what an eval is), overflow within expressions always
generate an error(this is from the help on the parameter).  Secondly, why do
you want your report to have an invalid value versus getting an error?  Your
report field should be large enough to hold any value expected.  If you want
your report field smaller then you should check the value in your program
and print some indication on the report that the value overflowed (like
********* or something).  I have seen too many problems caused by reports
having incorrect numbers due to overflow and truncation.  You should be glad
the program halted and did not complete with incorrect data as if nothing
was wrong.  I recommend changing the program to handle the overflow.

Scott Mildenberger

> -----Original Message-----
> From: keith mcintosh [SMTP:keith_eh@yahoo.ca]
> Sent: Friday, June 23, 2000 8:01 AM
> To:   RPG400-L@midrange.com
> Subject:      The target for a numeric operation is too small!!!!!
> 
> Maybe someone from IBM T.O. could answer this.
> 
> I am creating a report and adding up totals into an 
> array.  When I eval the total into a Report Field I
> get 
> a error. 
> 
> Message . . . . :   The target for a numeric operation
> is too small to hold the result (C G D F).
> 
> Why does it give me a Hard Halt?  and why is there no
> "I"?  
> 
> Why would the system send a Message to qsysopr or have
> a user cancel the program in the middle of a process
> because a REPORT Field is To Small...
> 
> I have "Truncate numeric . . . . . . . .   *YES" 
> on the Create RPG Module.
> 
> The field sizes are P(9,2) being put into a P(7,2)
> report field.
> 
> RPG III is looking better every time I use RPG IV.
> 
> The Statement is 
> 
> C                   Eval      RPITC1 = RptValx(1) 
> On v4r2m0.
> 
> 
> K.
> 
> _______________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.ca address at http://mail.yahoo.ca
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---