Problemas con los *.SE/*.FD

[Socavi]

Nunca he tenido problemas con la definición de los File-Control / File, pero ultimamente, al compilar el programa "falla" porque según la compilación los valores declarados los declara como 'undefined' y no se me ocurre como puedo resolver éste problema. por lo que solicito ayuda del foro.

He realizado diferentes pruebas, con el mismo resultado, los ficheros son los siguientes:


FD PTREGIO LABEL RECORD STANDARD.
01 REGPTRE.
02 PTRECOD PIC X(5).
02 PTRENOM PIC X(25).
02 PTREPOB PIC 9(8) OCCURS 3 TIMES.
02 PTRESUP PIC 9(6).


SELECT OPTIONAL PTREGIO
ASSIGN TO ARXIU-REGION
ORGANIZATION INDEXED ACCESS MODE IS DYNAMIC
RECORD KEY PTRECOD
LOCK MODE AUTOMATIC
FILE STATUS STAPTRE.


Trabajo con PW9 en Windows10-64

[Kuk]

@Socavi, hola compañero.

Pásanos el log completo de la compilación a ver

[Socavi]

Buenas tardes Kuk, ahora mísmo

Create C:\Spain\Portugal\Debug\PTNUTS.cob...
STATISTICS: HIGHEST SEVERITY CODE=I

Revise line information into C:\Spain\Portugal\Debug\PTNUTS.cob ...
STATISTICS: HIGHEST SEVERITY CODE=I

Compile C:\Spain\Portugal\Debug\PTNUTS.cob...
** DIAGNOSTIC MESSAGE ** (PTNUTS)
PTNUTS PTNUTS-Opened(15) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS PTNUTS-Opened(15) : JMN2557I-S The format of the OPEN statement is incomplete.
PTNUTS PTNUTS-Opened(16) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS PTNUTS-Opened(16) : JMN2557I-S The format of the CLOSE statement is incomplete.
PTNUTS PTNUTS-Opened(18) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS PTNUTS-Opened(18) : JMN2557I-S The format of the OPEN statement is incomplete.
PTNUTS PTRE-COD-Return(6) : JMN2503I-S User word 'PTRECOD' is undefined.
PTNUTS PTRE-COD-Return(6) : JMN2557I-S The format of the MOVE statement is incomplete.
PTNUTS PTRE-COD-Return(7) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS PTRE-COD-Return(9) : JMN2510I-S 'NOT INVALID KEY' does not correspond. 'NOT INVALID KEY' is ignored.
PTNUTS Bo-Gravar(6) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS Bo-Gravar(6) : JMN2557I-S The format of the CLOSE statement is incomplete.
PTNUTS Bo-Gravar(6) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS Bo-Gravar(6) : JMN2557I-S The format of the OPEN statement is incomplete.
PTNUTS Bo-Gravar(10) : JMN2503I-S User word 'REGPTRE' is undefined.
PTNUTS Bo-Gravar(13) : JMN2510I-S 'END-WRITE' does not correspond. 'END-WRITE' is ignored.
PTNUTS Bo-Gravar(14) : JMN2503I-S User word 'REGPTRE' is undefined.
PTNUTS Bo-Gravar(18) : JMN2510I-S 'END-REWRITE' does not correspond. 'END-REWRITE' is ignored.
PTNUTS Bo-Gravar(19) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS Bo-Gravar(23) : JMN2510I-S 'END-DELETE' does not correspond. 'END-DELETE' is ignored.
PTNUTS Bo-Gravar(27) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS Bo-Gravar(27) : JMN2557I-S The format of the CLOSE statement is incomplete.
PTNUTS Bo-Gravar(28) : JMN2503I-S User word 'PTREGIO' is undefined.
PTNUTS Bo-Gravar(28) : JMN2557I-S The format of the OPEN statement is incomplete.
PTNUTS Bo-Mostrar(6) : JMN2503I-S User word 'PTRECOD' is undefined.
PTNUTS Bo-Mostrar(7) : JMN2503I-S User word 'PTRENOM' is undefined.
PTNUTS Bo-Mostrar(8) : JMN2503I-S User word 'PTREPOB' is undefined.
PTNUTS Bo-Mostrar(9) : JMN2503I-S User word 'PTREPOB' is undefined.
PTNUTS Bo-Mostrar(10) : JMN2503I-S User word 'PTREPOB' is undefined.
PTNUTS Bo-Mostrar(11) : JMN2503I-S User word 'PTRESUP' is undefined.
STATISTICS: HIGHEST SEVERITY CODE=S, PROGRAM UNIT=1

** The build has failed **

[Kuk]

@Socavi, has cambiado los nombres últimamente?

Al hacer build del proyecto, se guarda cosas en una caché.

Te sugiero que hagas un REBUILD ALL y no BUILD, o REBUILD para que recompile todo por completo. Me da que podría ser un fallo en esa caché, de la que hablaba. A veces pasa.

A las malas, si falla lo anterior, suprime la carpeta Debug o Release (según la que tengas definida como directorio de salida) y vuelve a hacer REBUILD ALL

[Josber]

Te está indicando que el fichero PTREGIO, no existe, aunque, parece que está bien definido, ¿No tendrás una variable con ese nombre definida en la WORKING, no?

Por otro lado, puedes probar a añadirle a la sentencia FD, la cláusula GLOBAL, debería de quedarte así


FD PTREGIO
GLOBAL
LABEL RECORD STANDARD.

Un salu2.-

[Fito]

Holaaa:

Estoy de acuerdo con Josber. Te falta la cláusula GLOBAL en la File Description.

Saludos..

Fito...

[Kuk]

No tendrás una variable con ese nombre definida en la WORKING
En este caso diría que hay múltiples con el mismo nombre.


probar a añadirle a la sentencia FD, la cláusula GLOBAL
En esto estoy completamente de acuerdo. Posiblemente @Socavi haya movido el código a otro sitio, o usa la estructura en sitios nuevos. Lo que está claro es que le da errores en diferentes rutinas de eventos.

[Socavi]

Amigos muchas gracias por vuestra ayuda, a veces uno mira y mira, pero no ve, por la costumbre. Efectivamente el problema, la cláusula GLOBAL era la que no permitía la compilación habitual.

Hoy podré dormir tranquilo, serán cosas de la edad, jajaja, sinceramente muchas gracias.

[Kuk]

@Socavi, uno para todos, y todos para uno :dart: ;)