AW: Remove embedded characters in a string

["Birgitta Hauser" <Hauser@xxxxxxxxxxxxxxx>]

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.