AW: Remove embedded characters in a string

Hi,

the easiest way I know is to use the SQL scalar function REPLACE which is
much more powerful than the RPG %REPLACE.
While RPG only replaces the first occurrence and requires an additional loop
to replace all occurrences, the SQL scalar function always replaces all
occurrences:
P RemoveChar B Export

D RemoveChar PI 256A Varying
D ParString 256A Varying Const
D ParRmvChar 1A Const

D RtnString S 256A Varying
*-------------------------------------------------------------------------
/Free
Exec SQL Set :RtnString = Replace(:ParString, :ParRmvChar, '');
Return RtnString;
/End-Free
P E


Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Mike Cunningham
Gesendet: Thursday, 20. November 2008 16:19
An: 'RPG programming on the AS400 / iSeries'
Betreff: 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.