Decimal data error ... -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.