|
Use %xLate.
In the DSPEC define two constants.
D Hi C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
D Lo C 'abcdefghijklmnopqrstuvwxyz'
field = %xlate(lo:hi:field); // convert lower to upper
field = %xlate(hi:lo:field); // conver upper to lower
Michael Schutte
Work 614-492-7419
email michael_schutte@xxxxxxxxxxxx
steema@diskhaven.
com
Sent by: To
rpg400-l-bounces+ "RPG programming on the AS400 /
michael_schutte=b iSeries" <rpg400-l@xxxxxxxxxxxx>
obevans.com@midra cc
nge.com
Subject
orders from web - names
03/29/2006 11:09
AM
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
HI We get some orders from web but through a service. Sometimes the
customer had entered bad data. For example the name will be replicated in
the first address field but will be in lower case, and the name may be
spelled out rather than a nickname (Patrica vs. Pat), but it seems the
last name is always there, altho in lower vs. upper.
How can I convert lower to upper so as to compare this last name, via the
SCAN ?
Thanks,
Steve
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.