Abap eliminar caracteres de una cadena

Es para cuando no se puede usar el REPLACE ALL OCCURRENCES OF debido a que no lo tiene la version de sap, si se quiere insertar otro simbolo en vez de ese usar
translate donde elim nos dice que caracter sustituir por cual ej @ por ' '.


report zelcar.
data texto(5000) type c
value '@123"@=,<,>,~,/,”,,+,*,|,:,·$%&/()9876*1@)'.
data elim(4) value '@ * '.
write texto.
perform f_elimina_caracteres using texto.
*translate texto using elim.
write / texto.



**------------------------------------------------
** f_elimina_caracteres.
**------------------------------------------------
form f_elimina_caracteres changing texto.
data: len type i, caracter, va type i,texto2(5000) type c.
*creamos tabla interna con los caracteres a eliminar de el archivo
data: begin of i_careli occurs 0,
car,
end of i_careli.
*cuales caracteres queremos quitar =,<,>,~,/,”,’,+,*,|,:,
i_careli-car = '='.append i_careli.
i_careli-car = '<'.append i_careli.
i_careli-car = '>'.append i_careli.
i_careli-car = '~'.append i_careli.
i_careli-car = '/'.append i_careli.
i_careli-car = '+'.append i_careli.
i_careli-car = '*'.append i_careli.
i_careli-car = '|'.append i_careli.
i_careli-car = ':'.append i_careli.


write texto.
len = strlen( texto ).
while va <= len.

caracter = texto+va(+1).
loop at i_careli.
if i_careli-car = caracter.
caracter = ''.
endif.
endloop.
concatenate caracter texto2 into texto2.
va = va + 1.
endwhile.
texto = texto2.
endform.