Re: Problem with A4GL_DEFDECPREC=255

Mike Aubury <[email protected]>
Newsgroups gmane.comp.lang.4gl.aubit.general
Message-ID <CAGAq4WE6P+t4yu9rt3zZyLhjemG_MqLj12n=3jRbgQ-KBkv9Fg@mail.gmail.com>
Try it now ?


On 17 February 2014 16:33, Alain Siverly <[email protected]> wrote:

>  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
>
>

------------------------------------------------------------------------------
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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.