Ver Mensaje Individual
  #10  
Viejo 15/06/06, 15:16:39
Avatar de tomasm
tomasm tomasm is offline
Member
 
Fecha de Ingreso: jun 2006
Localización: Paraiso natural
Mensajes: 87
Wink otra versión

DATA: g(20),
h(20).

DATA: uno(2),
pos(2) TYPE n.

START-OF-SELECTION.

g = 'a,b,c,d,'.

clear h.

WHILE sy-subrc = 0.

SEARCH g FOR ','.

IF sy-subrc = 0.
pos = sy-fdpos.
pos = pos - 1.

MOVE g+pos(2) TO uno.

REPLACE ',' WITH space INTO g.

CONCATENATE h uno INTO h SEPARATED BY space.

CLEAR uno.

ENDIF.

ENDWHILE.


WRITE:/ h.



Saludos !!!!
__________________
Responder Con Cita