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.