Ver Mensaje Individual
  #2
Antiguo 10 de diciembre de 2024, 18:13
Kuk
Administrador
Última Actividad 21.09.2026 18:24
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

@Sergio, lo primero, el código es mejor publicarlo directamente en tu post para que sea visible sin necesidad de descargar archivos.

Declara los ficheros de la siguiente manera (aquí lo importante es la palabra clave "LINE"):
Código COBOL:
  1.        INPUT-OUTPUT SECTION.
  2.        FILE-CONTROL.
  3.            SELECT STUDENT ASSIGN TO "STUDENTS.txt"
  4.            ORGANIZATION LINE SEQUENTIAL.
  5.            SELECT REPORTE ASSIGN TO "REPORTE1.txt"
  6.            ORGANIZATION LINE SEQUENTIAL.
  7.  
  8.        DATA DIVISION.
  9.        FILE SECTION.
  10.        FD  STUDENT.
  11.        01  REG-STUDENT     PIC X(60).
  12.        FD  REPORTE.
  13.        01  REG-REPORTE     PIC X(400).

Si quieres ver lo que está leyendo, la parte del READ la puedes modificar así:
Código COBOL:
  1.        040-LEE.
  2.            READ STUDENT INTO STUDENT-DETALLE
  3.                AT  END
  4.                    MOVE "FIN" TO SW-FIN
  5.                
  6.                NOT AT END
  7.                    DISPLAY STUDENT-DETALLE
  8.            END-READ
  9.            .



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita