I'm reaching back to my Reality days... would there be any value of a
PRECISION statement in that particular subroutine?  I don't know the
default precision for your implementation but if you forced it to
something higher before your compare, maybe it would work, as written.

HTH.
-Baker 

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Steve Ferries
Sent: Monday, November 06, 2006 1:22 PM
To: [email protected]
Subject: RE: [U2][UV] Why does the IF statement think these values are
different?

HI All,
First, thank you for your responses.
Here is an update:

It is UniVerse.

I removed the 'R2' format but the values come out the same:
 CUSTOMCALC: 451: ERRMSG='ACCT/CALCULATOR MISMATCH:
':(INTREC+PRNREC):'/':(INTPAY+PRNPAY)
:: INTREC/
NUMBER: 24016.35
:: PRNREC/
NUMBER: 978.56
:: INTPAY/
NUMBER: 24016.35
:: PRNPAY/
NUMBER: 978.56
:: ERRMSG/
STRING: T r L=42 `ACCT/CALCULATOR MISMATCH: 24994.91/24994.91'

I then proceed with the suggestions that there are unseen decimals and
changed the values via the debugger, and the THEN clause is skipped:
 CUSTOMCALC: 449:   IF INTREC+PRNREC#INTPAY+PRNPAY THEN
:: INTREC/
NUMBER: 24016.35
:: INTREC!24016.35
INTREC was NUMBER: 24016.35
.  Now is STRING: T r L=8 `24016.35'
:: PRNREC/
NUMBER: 978.56
:: PRNREC!978.56
PRNREC was NUMBER: 978.56
.  Now is STRING: T r L=6 `978.56'
:: INTPAY/
NUMBER: 24016.35
:: INTPAY!24016.35
INTPAY was NUMBER: 24016.35
.  Now is STRING: T r L=8 `24016.35'
:: PRNPAY/
NUMBER: 978.56
:: PRNPAY!978.56
PRNPAY was NUMBER: 978.56
.  Now is STRING: T r L=6 `978.56'
:: S
 CUSTOMCALC: 455: IF PFLAG THEN

So, how does one display the floating point values that are stored but
unseen?

Thanks,
Steve
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to