RE: Eval-corr

So your D1CHGAMT field contains '40404040 4060F1F0 F8F8F4F1' OR '
-108841'
but for valid Zoned data it needs to contain: 'F0F0F0F0 F0F0F1F0
F8F8F4D1' '00000010884J'
And this also appears to work: '40404040 4040F1F0 F8F8F4D1' or '
10884J'

Like Barbara said
"'00000007934R', ending in 'R', x'D9'. The x'D' in the last digit makes
the zoned value negative."

This means you will need to do something else to process the text '
-108841' into a valid numeric value.

Something like this may work for you:
eval-corr ds_detD01 = ds_hresD01;
MONITOR;
D1CHGAMT = %DEC(ds_hresD01.D1CHGAMT:12:0)/100;
ON-ERROR;
D1CHGAMT = 0;
ENDMON;

Chris Hiebert
Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the
author and do not necessarily represent those of the company.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Florin Todor
Sent: Friday, May 10, 2013 12:18 PM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: RE: Eval-corr

Hi Chris,

Here you have the results from the debug session:

EVAL DS_HRESD01.D1CHGAMT
DS_HRESD01.D1CHGAMT = -1088.41

EVAL DS_HRESD01.D1CHGAMT :X
00000 40404040 4060F1F0 F8F8F4F1 ........ - -108841....



EVAL D1CHGAMT
D1CHGAMT = 0000001088.41

EVAL D1CHGAMT :X
00000 00000001 08841F.. ........ ........ - .....d..........


(The value of the fields are different than the previously posted ones
because I tested a different file)



Thank you


Florin Todor