Como separar letras de números de una cadena

[Mauricio Hidalgo]

Cambio la especificación entonces:


data letranumero type string.

data letras type string.
data cnumeros type string.

letranumero = '12159CSXD56245'.

write / letranumero.

while strlen( letranumero ) > 0.
if letranumero(1) CO '0123456789'.
concatenate letras letranumero(1) into letras.
else.
concatenate cnumeros letranumero(1) into cnumeros.
endif.
shift letranumero by 1 places left.
endwhile.

write / cnumeros.
write / letras.

Espero te ayude