RE: Remove embedded characters in a string

Try this:

RemoveCharsSource = 'XC0-4566.999 X';
RemoveChars(RemoveCharsSource:'-., '); // modified string in RemoveCharsSource


d RemoveChars pr
d SourceString 32767 varying options(*varsize)
d CharsToRemove 256 varying value
d RemoveCharsSource...
d s 32767 varying


p RemoveChars b
d pi
d SourceString 32767 varying options(*varsize)
d CharsToRemove 256 varying value

d wRmvChrCounter s 10i 0
d wRmvChrChar s 1
d wRmvChrScanPos s 10i 0
d wRmvChrNotFnd s 1n
/free
for wRmvChrCounter = 1 to %len(CharsToRemove);

wRmvChrChar = %subst(CharsToRemove:wRmvChrCounter:1);
reset wRmvChrNotFnd;
dou wRmvChrNotFnd;
wRmvChrScanPos = %scan(wRmvChrChar:SourceString);
if wRmvChrScanPos = *zero;
wRmvChrNotFnd = *on;
iter;
endif;
SourceString = %replace('':SourceString:wRmvChrScanPos:1);
enddo;

endfor;
return;
/end-free
p e


Brgds
Helge Bichel

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Cunningham
Sent: Thursday, November 20, 2008 4:19 PM
To: 'RPG programming on the AS400 / iSeries'
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.