Re: Decimal data error ...

Tomasz,

The statement number you see is not the source statement number. It
corresponds to the compiled program, and as such it includes /COPY, fields
from externally declared files, even the data pertaining to the SQL data
areas and instructions, among other items.

In order to determine "real" statement number you can do either a SRDBG, as
Bryce suggested, or check the compiler listing.

HTH,
Luis Rodriguez
IBM Certified Systems Expert â eServer i5 iSeries


2010/3/25 Tomasz SkorÅa <t.skorza@xxxxxxxxxxx>

Hi guys

I have some SQLRPGLE program which input some data into file.

When I call this program I get mesage:
RNQ0907

When I look at debug spool file I can see :

ILE RPG/400 FORMATTED DUMP
Program Status Area:
Procedure Name . . . . . . . . . . . . : P78P03C
Program Name . . . . . . . . . . . . . : P78P03C
Library . . . . . . . . . . . . . . : PRIMAOBJ
Module Name. . . . . . . . . . . . . . : P78P03C
Program Status . . . . . . . . . . . . : 00907
Decimal-data error occurred (C G D F).
Previous Status . . . . . . . . . . . : 00000
Statement in Error . . . . . . . . . . : 00000342
RPG Routine . . . . . . . . . . . . . : *DETC
Number of Parameters . . . . . . . . . :
Message Type . . . . . . . . . . . . . : MCH
Additional Message Info . . . . . . . : 1202
Message Data . . . . . . . . . . . . . :
Decimal data error.
Status that caused RNX9001 . . . . . . :

But my program has only 143 lines so where exactly I have error? Which
field is wrong?

In file I has 6 numeric fields and 13 character fields.

In rpg program I has:
- declaring cursor
- open cursor
- fetch next
- rpg code
- clear all fields with eval statments
- fill all fields with eval statements
- fetch next


--
Regards

Tomek

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.