Re: Strang Issue in EVAL

Add the following code:

C @SOCLN BegSr
C EVAL SOTOT7 += LNBAL
C EVAL $OTOT7 = $OTOT7 + LNBAL
C IF $OTOT7<> SOTOT7
C DUMP(A)
C ENDIF
C EndSr


Be sure to define $OTOT7 the same as SOTOT7, and initialize it the same way. If the symptom you're describing happens, you'll hit the DUMP instruction. If you get a dump, post it here.

Joe

bellow is the code

c KEY_03 SETLL SLN003L8
c KEY_03 READE SLN003L8
C*
C DOW NOT %EOF(SLN003L8)
C*
C EVAL CUX1AP = 50
C EVAL CUXBK = LNBK
C EVAL CUX1AC = LNNOTE
C EVAL CUXREC = '1'
C*
C IF LNNONF = 'X'
C EVAL NTOT12 = NTOT12 + LNBAL
C ENDIF
C*
C If LNBAL> 0
C ExSr @LNYER
C ENDIF
C
c KEY_03 READE SLN003L8
C Enddo

C @LNYER BegSr
C IF @CUPERS = 'N'
C ExSr @SOCLN
C ENDIF
C EndSr


C @SOCLN BegSr
C EVAL SOTOT7 += LNBAL
C EndSr

Chamara



On Tue, Jan 4, 2011 at 11:46 PM, Scott Klement<rpg400-l@xxxxxxxxxxxxxxxx>wrote:

Chamara,

Please post enough information for us to reproduce the problem.

If it works as you dite (Simply doing Field1 += Field2 gives wrong
results) then it should be trivial for you to write a short/simple
program that demonstrates the problem!

I'm fairly good at troubleshooting and/or understanding source code.
But I _do_ have to see it to troubleshoot/understand it!


On 1/4/2011 4:04 AM, Chamara Withanachchi wrote:

Dear All,

I got a strange problem in a claculation line when I did the Calculation

as

Eval Field1 += Field2 in Fixed Format RPG its giving me a invalid total

(Ex

1036.66). And if I use the same in Fixed format as Eval Field1

=

Field1 + Field2 it shows the correct total amount.

And I check the same in /FREE format as Field1 += Field2 and it also

shows

the correct total amount. does any one have an Idea about this case?.

Im on V5R4

--
This is the RPG programming on the IBM i / System i (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.