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

DSPJOB, option 2. Display job definition attributes, page down, Decimal 
format

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





"Richard ECUYER" <recuyer@xxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/24/2005 12:17 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 the test






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.