Re: Problem with FLOAT and DECIMAL(16)

Can you try it now  ?


On 5 February 2014 16:04, Alain Siverly <[email protected]> wrote:

>  Hi,
>
> we are using A4GL_DEFDECPREC=255 for compile and it solved all problems we
> had regarding rounding, with exception of the following:
>
> If we assign a FLOAT variable to a DECIMAL(16), then the value get
> rounded. Also if we return a float value to a decimal(16) variable.
>
> To check the behavior please use this program:
>
> * OUTPUT:*
>
> decimal16:                         5,67890000000000000000000
> float_1 = decimal16:               5,67889999999999960000000  (should be
> 5,6789)
> *decimal16 **after** float_return:*      *5,68000000000000000000000  (**should
> be 5,6789)*
> float_1            :               5,67889999999999960000000  (assigned
> 5.6789)
> *decimal16 = float_1:               5,68000000000000000000000  (**sould
> be 5.6789)*
>
> *PROGRAM**:*
>
> MAIN
>
>  DEFINE float_1   FLOAT
> DEFINE decimal16 DECIMAL(16)
>
> LET decimal16 = 5.6789
> LET float_1   = decimal16
>
> DISPLAY "decimal16:                   ", decimal16 USING
> "######&.#######################"
> DISPLAY "float_1 = decimal16:         ", float_1   USING
> "######&.#######################"
>
> LET decimal16 = float_return()
>
> DISPLAY "decimal16 nach float_return: ", decimal16 USING
> "######&.#######################"
>
> LET float_1   = 5.6789
> LET decimal16 = float_1
> DISPLAY "float_1            :         ", float_1   USING
> "######&.#######################"
> DISPLAY "decimal16 = float_1:         ", decimal16 USING
> "######&.#######################"
>
> END MAIN
>
> #
> ----------------------------------------------------------------------------------------
> # FUNCTION float_return()
> #
> ----------------------------------------------------------------------------------------
>
> FUNCTION float_return()
>
> DEFINE l_float FLOAT
>
> LET l_float = 5.6789
>
> RETURN l_float
>
> END FUNCTION
>
> We would appreciate very much if it can be solved and we thank in advance!
>
> Best regards
> Alain Siverly
> 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=121051231&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=121051231&iu=/4140/ostg.clktrk

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