AS/400 - substr en rpg

Buenas, necesito reemplazar un caracter en una cadena de texto. Existe algo paracedio al substr en RPG o CLP? Si existe, obligadamente tendre que usar un do while para preguntar por el caracter a reemplazar y recien all hacer el substrn. Para este caso me convendria usar SQL'?
Gracias-

Ya esta, solamente tenia que hacer un DS con el mismo largo de la cadena y recorrerla por cada caracter.