RE: Remove embedded characters in a string

Mike,

This isn't tested, but here's something that may work.

I'm converting the value to all caps. If you want to retain caps, don't
xlate and simply perform a lookup in upperAry and lowerAry (a character
array of lower)

// upper = alphabet in uppercase
// upperAry = character array of upper.
// lower = alphabet in lowercase
Clear newfield;
wrkfield = %xlate(lower: upper: wrkfield);
for idx = 1 to %len( wrkfield );
char = %subst( wrkfield: idx: 1 );
if %lookup( char: upperAry ) <> 0;
newField += char;
endif;
endfor;

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKay
Sent: Thursday, November 20, 2008 9:59 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Remove embedded characters in a string

This is from the think400 site

http://www.think400.dk/adhoc_3.htm#eks0003


Regards,
John McKay
www.mckaysoftware.ie
www.rpglanguage.com

----- Original Message -----
From: "Mike Cunningham" <mcunning@xxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, November 20, 2008 3:18 PM
Subject: Remove embedded characters in a string

Is there an easy way to remove special characters embedded in a

string? I

know that %trim will remove them from before/after a string but not

inside

the string. I need to be able to take a string like 'XC0-4566.999 X'

and

turn it into 'XC04566999X'. Removing "-", ".", blanks and anything

else

not a number or letter.
--
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.