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
Úlima edición por Mauricio Hidalgo fecha: 09/07/13 a las 14:46:17.
|