Hey Brian,
Did you have a chance to look at my code to see what am I doing wrong here?
I forgot to add the DDS Description for the field, though; here it is:
D1CHGAMT 12P 2 COLHDG(' ' ' ' 'Charge')
Thank you
Florin Todor
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Florin Todor
Sent: Wednesday, May 08, 2013 4:13 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Eval-corr
Here is the relevant part of the code:
H option(*nodebugio)
Fin210txt if e disk extfile('LTL400V331/IN210TXT')
F rename(in210txt:inrec)
F prefix(f_)
Fed210d01 o e k disk extfile('EDILIB/ED210D01')
D ds_detD01 e ds extname(ED210D01:*output)
---------------------------------------------------------------------------
D ds_hresD01 ds qualified inz
D D1CHGAMT 12 2
============================================================================
read IN210TXT;
dow not %eof(IN210TXT);
ds_hresD01 = f_in210txt;
// DS_HRESD01.D1CHGAMT = -793.49
eval-corr ds_detD01 = ds_hresD01;
// D1CHGAMT OF DS_DETD01 = 0000000793.49
==========================================================
Thank you
Florin Todor
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian May
Sent: Wednesday, May 08, 2013 3:52 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Eval-corr
Florin,
That should not happen. Could you provide your code so that we can take a look. My first guess is that there is some difference in your definitions causing the problem, but without the code, it is impossible to say.
Brian May
IBM i Modernization Specialist
Profound Logic Software
http://www.profoundlogic.com
937-439-7925 Phone
877-224-7768 Toll Free
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Florin Todor
Sent: Wednesday, May 08, 2013 2:42 PM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: Eval-corr
I have two data structures: DS1 is described as extname(FileName:*output) and DS2 is described internally using the keyword "qualified" and having the fields identically described as DS1 In the program I have a command eval-corr DS1 = DS2; right before this command is executed, in DS2 there is a field having a negative value. After execution, the corresponding field in DS1 has the right value, but the negative sign is lost.
Both fields are described as 12 2 (one in DS1 in the external file, the other described in the program).
Please advise.
Thank you
Florin Todor
--
This is the RPG programming on the IBM i (AS/400 and 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.
midrange.com
