Buenas tardes
@Kuk,
Muchas gracias por el aporte. Es mi 1er foro
He realizado los cambios en la INPUT-OUTPUT SECTION y DATA DIVSION
Código COBOL:
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STUDENT ASSIGN TO "STUDENTS.txt"
ORGANIZATION LINE SEQUENTIAL.
SELECT REPORTE ASSIGN TO "REPORTE1.txt"
ORGANIZATION LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STUDENT.
01 REG-STUDENT PIC X(60).
FD REPORTE.
01 REG-REPORTE PIC X(400).
Sin embargo sigue sin leer el 2o registro. Lee el primer registro y parece que no llega a leer el 2o, no aparece en el display del AT END ni NOT AT END que he puesto para controlar que registro está leyendo. En el fichero de entrada están ambos registros en la misma línea. El fichero de entrada tenía 32 registros. Lo acorté a 2 para comprobar porque no estaba leyendo el siguiente registro.
No sé que falta para que reconozca el 2º registro.