[Sintaxis] Identificacion de numeros en una cadena

[Breew]

Hola.
Me estoy rompiendo la cabeza y no lo consigo.

Leo sequencialmente un fichero de texto , y necesito identificar numeros consecutivos de 9 cifras, en concreto telefonos.

No logro el algoritmo para conseguirlo.

Alguna ayuda?

Gracias

[JCantero]

Algo sencillo, si el fichero de texto que estas leyendo lo lees enuna variable por ejemplo.....

01 linea-fichero pix x(200).

Puedes hacer un bucle con cada linea leida tal como :

 
Perform varying i from 1 by 1 until i > 200 - 9 
 
if linea-fichero(i:9) is numeric then
    display ' Numero encontrado '    linea-fichero(i:9)
end-if
 
end-perform

---------- Post añadido : 18:08 ---------- Post anterior : 17:57 ----------

la declarcion es

01 linea-fichero pic x(200)

y no

01 linea-fichero pix x(200)

[Breew]

jope

Funciona perfecto