|
al hacer un replace a secas solo lo hace la primera vez. Prueba con un bucl como el que te paso.
REPORT ZC402REPLACE .
DATA: CAMPO(50) VALUE 'EN UN LUGAR DE LA DECHA DE CUYO DE DE DE SOY'.
DATA: LONGITUD TYPE I.
DATA: CONTADOR TYPE I VALUE 0.
LONGITUD = STRLEN( CAMPO ).
WRITE:/ 'TEXTO INICIAL:' , CAMPO.
WRITE:/.
WRITE:/ 'LONGITUD DEL TEXTO:' , LONGITUD.
WRITE:/.
ULINE.
WHILE CONTADOR <= LONGITUD.
REPLACE 'DE' WITH 'POR' INTO CAMPO.
CONTADOR = CONTADOR + 1.
ENDWHILE.
WRITE:/ 'TEXTO FINAL:' , CAMPO.
|