Thanks Steve.

Steve,
Thanks for the valuable info...Infact the dump is of 68 pages..Your
suggestion helped me a lot to find out the culprit..

Thanks once again,
Murugesh.

-----Original Message-----
From: Steve Landess [mailto:sjl_123@xxxxxxxxxxx]
Sent: Tuesday, November 04, 2003 8:13 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Figure out the field-having erraneous data


> Murugesh wrote:
> After the dump operation, the spooled file QPPGMDMP has got a lot of
> variables + their current values.  I just want to figure out the
particular
> field, becoz of which, an error is thrown at the time of exfmt operation.
>
> Is there simple approach to figure out the field or should i scan thru all
> the fields and their values in the spooled file?
> Any idea or suggestion would be appreciated.

Murugesh,

1) In the dump listing, look for the "Statement in Error" and "Last File
Statement" (see example below).  The statement in error is where the
field with an invalid value is being referenced.

2) Look for X'4040404040' in a numeric field in the display file format .

Steve Landess
Austin, Texas
(512) 423-0935

*****************************
Example dump listing:

RPG/400 FORMATTED DUMP
Program Status Area:
Program Name . . . . . . . . . . . . . :   LIBRARY/PROGRAM
Program Status . . . . . . . . . . . . :   00907
                decimal-data error in field (C G S D F).
Previous Status  . . . . . . . . . . . :   00000
Statement in Error . . . . . . . . . . :   40900
RPG Routine  . . . . . . . . . . . . . :   *DETC
Number of Parameters . . . . . . . . . :   002
Message Type . . . . . . . . . . . . . :   MCH1202
              Decimal data error.
MI Statement Number  . . . . . . . . . :   009D
Additional Message Info  . . . . . . . :
Message Data . . . . . . . . . . . . . :
Last File Used . . . . . . . . . . . . :   F4009
Last File Status . . . . . . . . . . . :   00000
Last File Operation  . . . . . . . . . :   CHAINR
Last File Routine  . . . . . . . . . . :   S999
Last File Statement  . . . . . . . . . :   183700
.
.
.
 $1ITM    11F449  ZONED(8,0)    '4040404040404040'X
 $1MCU    11F43D  CHAR(12)      '            '
 $1PART   11E869  CHAR(1)       ' '
 $1PKY    11F43D  CHAR(22)      '                      '
 $1REQD   11E89E  CHAR(1)       ' '
 $1RUM    11F453  CHAR(2)       '  '

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.