× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.