Se me ocurre esto.... seguramente hay algo mejor.
DATA : texto TYPE string .
DATA : texto_aux TYPE string .
DATA : i TYPE i.
DATA : offset TYPE i.
texto = 'HJS001l2k493400'.
i = STRLEN( texto ).
DO i TIMES.
offset = sy-index - 1.
CHECK texto+offset(1) CO '123456789' OR ( texto+offset(1) EQ '0' AND STRLEN( texto_aux ) >= 1 ).
CONCATENATE texto_aux texto+offset(1) INTO texto_aux.
ENDDO.
Saludos.
Javier
__________________
Lo importante no es saber sino saber quien es el que sabe
|