Re: Decimal data error ...

[Alan Shore <AlanShore@xxxxxxxx>]

Hi Tomasz
without seeing the coding, here are my guesses to your problem
The file contains invalid data in one or more numeric fields in one or more
records of the file
For "clear all fields with eval statments" use clear instead of eval. You
might be attempting an eval of a numeric field to blanks or ' '

Like I said - just some guesses



Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill


                                                                       
             Tomasz Skorża                                           
             <t.skorza@agriplu                                         
             s.pl>                                                      To
             Sent by:                  midrange-l@xxxxxxxxxxxx         
             midrange-l-bounce                                          cc
             s@xxxxxxxxxxxx                                            
                                                                   Subject
                                       Decimal data error ...          
             03/25/2010 10:26                                          
             AM                                                        
                                                                       
                                                                       
             Please respond to                                         
             Midrange Systems                                          
                 Technical                                             
                Discussion                                             
             <midrange-l@midra                                         
                 nge.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


--
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.