RE: Decimal Data Error

["Bob Cozzi" <cozzi@xxxxxxxxx>]

This isn't causing the DDE because you are basically assigning a value to
the target field and its current content is being replaced.
Think about it? Before we had the INZ keyword (that is back in the RPGIII
before the "I" in column 18, and RPGII days) you had to assign a value to
numeric subfield some how. Z-ADD was it, typically. So why wouldn't this
code work without a DDE?
-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mackie, Roger L. (Precision Press)
Sent: Monday, April 12, 2004 9:11 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Decimal Data Error

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