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)