[Compilador] IBM COBOL for Linux - Error al compilar

[dariodr]

Buenas coboleros tengo este codigo simple de archivos, lo he compilado con: GNUCOBOL y funciona bien, lo he compilado con RMCOBOL y funciona bien, pero a la hora de compilar con IBM COBOL me aparece este error no se que significa:

 IBM COBOL for Linux 1.1.0 compile started
cob3: ../../../../wscobolpp/wds/cblle/mrm/qlnslkup.c:489: Semantic_lookupLocalByType: La declaración `isNamedEntryAndDataNameOrSpecialRegisterOrTypeOrScreen(tempDictHdl) == 1' no se cumple.

cob2: cob3 terminated with signal 6 (Abortado).

Les pego el codigo

       IDENTIFICATION DIVISION.
       PROGRAM-ID. AGENDA.
      *
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT AGENDA ASSIGN TO "agenda.dat"
               ORGANIZATION IS SEQUENTIAL 
               ACCESS MODE IS SEQUENTIAL.
      *
       DATA DIVISION.
       FILE SECTION.
       FD  AGENDA.
       01  PERSONA.
           03 NOMBRE      PIC X(39).
           03 EDAD        PIC 99.
           03 DIRECCION   PIC X(40).
           03 TELEFONO    PIC 9(7).
      *
       WORKING-STORAGE SECTION.
       01  I    PIC 999.
      *
       PROCEDURE DIVISION.
       PROCESO.
           OPEN OUTPUT AGENDA.
 
           DISPLAY "NOMBRE:" NO ADVANCING.
           ACCEPT NOMBRE.
           DISPLAY "EDAD: " NO ADVANCING.
           ACCEPT EDAD.
           DISPLAY "DIRECCION: "NO ADVANCING.
           ACCEPT DIRECCION.
           DISPLAY "TELEFONO: " NO ADVANCING.
           ACCEPT TELEFONO.
 
           WRITE PERSONA.
 
           CLOSE AGENDA.
 
           GOBACK.
 

[Kuk]

@dariodr, en esta parte de código:

     SELECT AGENDA ASSIGN TO "agenda.dat"

Cámbialo por

     SELECT AGENDA ASSIGN TO AGENDA

Y a ver si compila.

[dariodr]

Nada, aun aparece ese error. Alguien sabe de que se trata.
Salu2.

[JCantero]

Eso tiene pinta de algun problema del compilador. Debe de faltar algo.

Has probado a ejecutar el compilador solo ? ( sin poner programa para compilar)

Y ver que mensaje da.......

[JCantero]

Echale tambien un vistazo a ese link.

Opciones de enlace y compilación de la aplicación IBM COBOL for AIX

Como siempre, IBM poniendo las cosas faciles los jodios.

[dariodr]

Resuelto, solo era colocar RECORD MODE IS F, despues del FD.
Siempre los de IBM complicando las cosas.

IDENTIFICATION DIVISION.
       PROGRAM-ID. AGENDA.
      *
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT AGENDA ASSIGN TO "agenda.dat"
               ORGANIZATION IS SEQUENTIAL 
               ACCESS MODE IS SEQUENTIAL.
      *
       DATA DIVISION.
       FILE SECTION.
       FD  AGENDA
              RECORDING MODE IS F.  (Faltaba esta clausula)
       01  PERSONA.
           03 NOMBRE      PIC X(39).
           03 EDAD        PIC 99.
           03 DIRECCION   PIC X(40).
           03 TELEFONO    PIC 9(7).
      *
       WORKING-STORAGE SECTION.
       01  I    PIC 999.
      *
       PROCEDURE DIVISION.
       PROCESO.
           OPEN OUTPUT AGENDA.
 
           DISPLAY "NOMBRE:" NO ADVANCING.
           ACCEPT NOMBRE.
           DISPLAY "EDAD: " NO ADVANCING.
           ACCEPT EDAD.
           DISPLAY "DIRECCION: "NO ADVANCING.
           ACCEPT DIRECCION.
           DISPLAY "TELEFONO: " NO ADVANCING.
           ACCEPT TELEFONO.
 
           WRITE PERSONA.
 
           CLOSE AGENDA.
 
           GOBACK.