RE: Comparing Uppercase vs. Upper/lower case fields

Remember, a simple XLATE is not CCSID safe. It is only comparing using the
CCSID of the program (or job) running.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of michaelr_41@xxxxxxxxxxxxxx
Sent: Thursday, August 05, 2004 1:05 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Comparing Uppercase vs. Upper/lower case fields

Yeah...looks like this...

D Lower           C                   'abcdefghijklmnopqrstuvwxyz'
D Upper           C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

XMINS1 = %Xlate(Lower:Upper:%SubSt(WCSPCInst:1:75));

On Thu, 5 Aug 2004 10:57:22 -0700, "Eric A. Wolf"
<eric_a_wolf@xxxxxxxxxxx> said:
> Isn't there a %XLATE Bif?  Or is this wishful thinking...if there is,
> what
> are the parms?
> 
> Eric
> 
> ----- Original Message -----
> From: "Bob Cozzi" <cozzi@xxxxxxxxx>
> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
> Sent: Thursday, August 05, 2004 10:48 AM
> Subject: RE: Comparing Uppercase vs. Upper/lower case fields
> 
> 
> > Of course, Upper and lower case do not compare EQUAL so it will fail the
> IF
> > test.  You need to convert to upper case, using a CCSID-safe conversion
> > method. There are two of these:
> >   The RPG xTools  ToUpper() procedure will do a CCSID-save conversion so
> you
> > could do this in your code:
> >
> >   If   ToUpper(TheMixedField) = TheUPPERFIELD
> >
> > The other option is to set up and call the QlgConvertCase API yourself.
> > -Bob Cozzi
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of Eric A. Wolf
> > Sent: Thursday, August 05, 2004 12:33 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: Comparing Uppercase vs. Upper/lower case fields
> >
> > To the list,
> > I am trying to compare two fields one is in Upper Case and the other is
in
> > Upper and Lower case.  The file is coded with SRTSEQ(*LANGIDSHR) and the
> > program is compiled with this parameter as well.  There are the same
> number
> > of characters and field sizes but the fields fall thru the IF statement
as
> > if they are not equal.  The CCSID is set to 37 (do not know how this was
> > set).
> >
> > Do I need to convert one the Upper/Lower case field to all Upper to get
a
> > valid compare -or- am I missing a parameter?
> >
> >
> > TIA...
> > Eric
> > --
> > 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx

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