Re: input array of decimal numbers, with A4GL_NUMERIC set to comma, values are multiplied by 100

Forgot to attach a test program

On 2016-01-27 11:34, Øyvind Gjerstad wrote:
> This is a strange one. When I set A4GL_NUMERIC="," (comma as decimal 
> separator), and reading decimal values using input array, the numbers 
> are multiplied by 100. This does not happen when A4GL_NUMERIC is not 
> set (or when it is set to ".").
>
> This is with 1.2.36 on Linux.
>
> Has anyone seen something like that before?
> -- 
>
> *Øyvind Gjerstad *
> Systemkonsulent
>
> M +47 909 41 485
> [email protected] <mailto:[email protected]>
>
> *____________________ _*
>
>
> *PostNord AS *
> T +47 09300
> IT og Forretningsutvikling
> Øran Vest
> Postboks 100
> 6301 Åndalsnes
> www.postnord.no <http://www.postnord.no>
>

------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=267308311&iu=/4140

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

main
  define i integer,
         la_foo array [5] of record
           fld1 decimal(10,2),
           fld2 decimal(10,2)
         end record

  for i = 1 to 5
    let la_foo[i].fld1 = null
  end for

  open form f_test from "foo"
  display form f_test

  input array la_foo from sa_dummy.*
  display array la_foo to sa_dummy.*

end main

database formonly
screen
{
----------------------------- test of decimal iinput --------------------------



     Type in some numbers

       [f000          ] [f001          ]
       [f000          ] [f001          ]
       [f000          ] [f001          ]
       [f000          ] [f001          ]
       [f000          ] [f001          ]



}
END


ATTRIBUTES
  f000=FORMONLY.fld1 TYPE DECIMAL(10,2), required;
  f001=FORMONLY.fld2 TYPE DECIMAL(10,2);

INSTRUCTIONS
  DELIMITERS "[]"

  screen record sa_dummy[5]
    (formonly.fld1, formonly.fld2) 
END