[joau_fedipe]

Amigo,

se me ocurre que puedes hacer lo siguiente :
REPLACE 'UNO' WITH 'UNA' INTO cad.

o también:

DATA: kdn(200) TYPE c. "puede ser 200, 300 o lo más extensa posible

kdn = cad.
kdn+6(1) = 'A'.
cad = kdn.

Saludos