Puedes probar con este código:
REPORT ZTESTPDO.
DATA :
X(32) VALUE 'A,B,C,D,E,F',
V_LENGTH(6) TYPE N.
START-OF-SELECTION.
SY-SUBRC = 0.
V_LENGTH = STRLEN( X ).
WHILE SY-SUBRC EQ 0 AND SY-FDPOS LT V_LENGTH.
IF X+SY-FDPOS(2) NE ', '.
REPLACE ',' WITH ', ' INTO X+SY-FDPOS.
V_LENGTH = V_LENGTH + 1.
ENDIF.
SY-FDPOS = SY-FDPOS + 2.
ENDWHILE.
WRITE : / X.
|