Quiero agregarles el inicio del programa para que vean si he hecho algo que esta mal para lo cual adjunto un archivo txt.
Un saludo.
Gracias.
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. PRUEBA10.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
*Archivo físico en modo dinámico.
FILE-CONTROL.
SELECT EMPLEADOS-ARCHIVO
ASSIGN TO "EMPINX.TXT"
ORGANIZATION IS INDEXED
RECORD KEY IS EMPLEADOS-ID
ACCESS MODE IS DYNAMIC
FILE STATUS IS FS-ST.