RE: '03' between '0' and '9'

Wait,

I think you meant
select;
when %len($OptFctr)<>1;  // or %len(%trim(%OptFctr)) if it's not varying 
length
  // skip it
When $OptFctr<'0' or $OptFctr>'9';
  // skip this also
Other;
  // let's party
EndSl;

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





"Eric Graeb" <egraeb@xxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/09/2005 03:15 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: '03' between '0' and '9'






If he compared them as numeric then the condition would still be true. The
original email seems to suggest he wants it to actually be false.  For 
that
to occur he would have to do the numeric comparison and make sure the
substring of the first character was not '0'

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Scott Klement
Sent: Wednesday, March 09, 2005 1:09 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: '03' between '0' and '9'


Hello,

> If        %trim($OptFctr) >= '0' And
>          %trim($OptFctr) <= '9'
>
> When $OptFctr = '03' this condition is true. Why?
> $OptFctr is 2A.

Because you're comparing them as character strings, and x'F0F3' is greater 

than x'F040' and less than x'F940'.

If you want to compare them as numbers, use 
%int() instead of %trim()...  for example:

   if        %int($OptFctr) >= 0 and
             %int($OptFctr) <= 9

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