#5
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|