Problem with A4GL_DEFDECPREC=255

we are getting problems with substractions like in this example:

DEFINE l_vkpos_abruf_be DECIMAL(16)

DEFINE referenz_wert DECIMAL(16)

DEFINE l_d16_1 DECIMAL(16)

DEFINE l_d16_2 DECIMAL(16)

LET referenz_wert = "1,23456"

LET l_d16_1 = 3.14

LET l_d16_2 = 4.45

LET l_vkpos_abruf_be = l_d16_1 - l_d16_2 # 3,14 - 4,45

DISPLAY "as-test: l_vkpos_abruf_be LIKE DECIMAL(16) l_d16_1 -
l_d16_2 ", l_vkpos_abruf_be USING "-#####&.######"

LET l_d16_1 = 1

LET l_d16_2 = referenz_wert # 1,23456

LET l_vkpos_abruf_be = l_d16_1 - l_d16_2 # 1 - 1,23456

DISPLAY "as-test: l_vkpos_abruf_be LIKE DECIMAL(16) l_d16_1 -
l_d16_2 ", l_vkpos_abruf_be USING "-#####&.######"

LET l_d16_1 = referenz_wert # 1,23456

LET l_d16_2 = 1

LET l_vkpos_abruf_be = l_d16_1 - l_d16_2 # 1,23456 - 1

DISPLAY "as-test: l_vkpos_abruf_be LIKE DECIMAL(16) l_d16_1 -
l_d16_2 ", l_vkpos_abruf_be USING "-#####&.######"

Thank you in advance!

Alain

VENTAS AG

------------------------------------------------------------------------------
Managing the Performance of Cloud-Based Applications
Take advantage of what the Cloud has to offer - Avoid Common Pitfalls.
Read the Whitepaper.
http://pubads.g.doubleclick.net/gampad/clk?id=121054471&iu=/4140/ostg.clktrk

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss