Cobol Foro - [Sintaxis] Identificacion de numeros en una cadena

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Identificacion de numeros en una cadena (https://www.cobolforo.es/showthread.php?t=909)

Identificacion de numeros en una cadena

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

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

Código COBOL:

01 linea-fichero pix x(200).

Puedes hacer un bucle con cada linea leida tal como :

Código COBOL:

 
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)

jope

Funciona perfecto :ps::ps::ps: