Tema: IBM COBOL for Linux - Error al compilar
Ver Mensaje Individual
  #6
Antiguo 29 de enero de 2023, 03:02
dariodr
Forero
Última Actividad 21.09.2026 13:09
Posts Posts: 57
Likes enviados Enviados: 17
Likes recibidos Recibidos: 11
Predeterminado
2
Likes

Josber
Kuk

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

Código COBOL:
  1. IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. AGENDA.
  3.       *
  4.        ENVIRONMENT DIVISION.
  5.        INPUT-OUTPUT SECTION.
  6.        FILE-CONTROL.
  7.            SELECT AGENDA ASSIGN TO "agenda.dat"
  8.                ORGANIZATION IS SEQUENTIAL 
  9.                ACCESS MODE IS SEQUENTIAL.
  10.       *
  11.        DATA DIVISION.
  12.        FILE SECTION.
  13.        FD  AGENDA
  14.               RECORDING MODE IS F.  (Faltaba esta clausula)
  15.        01  PERSONA.
  16.            03 NOMBRE      PIC X(39).
  17.            03 EDAD        PIC 99.
  18.            03 DIRECCION   PIC X(40).
  19.            03 TELEFONO    PIC 9(7).
  20.       *
  21.        WORKING-STORAGE SECTION.
  22.        01  I    PIC 999.
  23.       *
  24.        PROCEDURE DIVISION.
  25.        PROCESO.
  26.            OPEN OUTPUT AGENDA.
  27.  
  28.            DISPLAY "NOMBRE:" NO ADVANCING.
  29.            ACCEPT NOMBRE.
  30.            DISPLAY "EDAD: " NO ADVANCING.
  31.            ACCEPT EDAD.
  32.            DISPLAY "DIRECCION: "NO ADVANCING.
  33.            ACCEPT DIRECCION.
  34.            DISPLAY "TELEFONO: " NO ADVANCING.
  35.            ACCEPT TELEFONO.
  36.  
  37.            WRITE PERSONA.
  38.  
  39.            CLOSE AGENDA.
  40.  
  41.            GOBACK.
dariodr is offline   Responder Con Cita