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

Keith wrote:
>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.

If you like getting buggy answers printed on your
reports, then by all means, keep using RPG III.

What RPG III does is fail to tell you when a numeric
value gets chopped when assigned to a variable that's
too small to hold the value.  RPG IV, for compatibility
with the older language, maintains that "feature" for
the older opcodes and datatypes.  But, when you're
writing new code that uses expressions, or when you're
using a newer datatype such as integer, unsigned, or
float, RPG IV will always point out the bug in your
code.  And almost always, it IS a bug in your code.

If you really do have a valid need to chop off the most
significant digits from a numeric value, one way to do
it is to convert the numeric value to character form
using %EDITC, %EDITW, or %CHAR, and then extract a
substring of the right-most characters of that character
string.

(Or you could always use bigger variables and show all
significant digits on your reports.)

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.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
+---