Re: /Free testing a numeric value and by mistake use a comma in thetest

I guess that explains my last post.  Thanks.


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Paul Tuohy" <tuohyp@xxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/24/2005 12:51 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: /Free testing a numeric value and by mistake use a comma in thetest






I think you will get the same result regardless of whether you use comma 
or
period and regardless of of the decinal format for the job (or for the 
value
specified for DECEDIT on the H Spec).

IIRC, comma and period are always considered as a decimal point when used 
in
a numeric constant.

HTH

Paul Tuohy

----- Original Message -----
From: "Richard ECUYER" <recuyer@xxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, January 24, 2005 5:17 PM
Subject: Re: /Free testing a numeric value and by mistake use a comma in
thetest


> i think because the , is the decimal separator.
> try it with 10.000
>
> ----- Original Message -----
> From: "Andy Hautamaki" <ahautamaki@xxxxxxxxxxxxxxx>
> To: "RPG400-L@xxxxxxxxxxxx" <RPG400-L@xxxxxxxxxxxx>
> Sent: Monday, January 24, 2005 5:47 PM
> Subject: /Free testing a numeric value and by mistake use a comma in the
> test
>
>
> > This was a bug in my program but I'm curious why I got the results I
did.
> >
> > Here is an example;
> >
> >
> >  D v_Number1       s              7  0
> >  D v_Err                 s              1
> >
> >  v_Number1 = 500;
> >
> > if v_Number1 >= 10,000;
> >   v_Err = 'Y';
> > else;
> >   v_Err = 'N';
> > endif;
> >
> > Why was v_Number1 treated as greater or equal to 10,000? I'm at V5R2.
> >
> > Thanks
> > Andy
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>


-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.