RE: Decimal Data Error

["Mackie, Roger L. (Precision Press)" <RLMackie@xxxxxxxxxxxxx>]

I ordinarily have this issue when the data structure is an externally
described file record. I do not know why there is a problem with one kind of
data structure, but not another. I just know that the INZ keyword on the
data structure or subfield definition initializes the storage to expected
default values for the data type. Perhaps the more enlightened will chime in
to explain why an error does not result in every data structure.

Roger Mackie

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Manoj S.T. , Gurgaon
Sent: Monday, April 12, 2004 1:37
To: RPG programming on the AS400 / iSeries
Subject: RE: Decimal Data Error

Hi All
I tried the same with the following code and checked in Debug mode
D DS1             DS                                                  
D Fld1                           5P 0                                 
C                   Z-add     4             Fld2              5 0     
C                   Z-add     fld2          fld1                      
C                   seton                                        LR   

Though fld1 before move is "40404"(Hex zero). when it move fld2 to fld1 it
is not giving Decimal data error....
Any thought on this

Manoj

<snip>