Cobol - Error 53 - Ayuda

Buenas gente tengo el siguiente codigo el cual al compilar me tira "Error 53 no se encuentra el archivo", pienso que el error puede estar en la environment division...

El programa debe listar mediciones dentro de una tolerancia especificada

Les dejo el codigo completo por las dudas:

Desde ya muchas gracias!

IDENTIFICATION DIVISION.
PROGRAM-ID NUEVO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL
SELECT TABLAS ASSIGN TO RANDOM "C:\TABLAS.DAT" ORGANIZATION INDEXED
SELECT MEDICIONES ASSIGN TO RANDOM "C:\MEDICIONES.DAT" ORGANIZATION INDEXED
SELECT IMPRE ASSIGN TO PRINT "PRINTER".
CONFIGURATION DIVISION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
DATA DIVISION.
FD TABLAS RECORDING F BLOCK 50 RECORDS
RECORD 80 LABEL RECORD STANDARD
01 TABLAS_REG
02 CODTA PIC 9(3)
02 F PIC X(2)
02 ACERO PIC 9(4) COMP_3
02 F PIC X
02 LIMIN PIC 9(7) V 99 COMP_3
02 F PIC X(5)
02 LIMAX PIC 9(7) V 99 COMP_3
02 F PIC X(54)
FD MEDICIONES RECORDING F BLOCK 200 RECORDS
RECORD 80 LABEL RECORD STANDARD
01 MEDIC_REG
02 ACERO PIC 9(9)
02 MEDIC PIC 9(7) V 99 COMP_3
02 F PIC X(6)
FD IMPRE RECORDING F RECORD 133
LABEL RECORD STANDARD
01 IMPRE PIC X(133)
WORKING-STORAGE SECTION.
01 I PIC 9(4) VALUE 0
01 J PIC 9(4) VALUE 0
01 ACERO(I) PIC 9(4) OCURRS 1000
01 LIMIN(I) PIC 9(7) V 99 COMP_3 OCURRS 1000
01 LIMAX(I) PIC 9(7) V 99 COMP_3 OCURRS 1000
01 ENCA1
02 F PIC X(40) VALUE ' '
02 F PIC X(60) VALUE 'MEDICIONES DENTRO DE TOLERANCIA'
02 FECHADIA PIC X(8)
02 F PIC X(12) VALUE ' '
02 NROHOJA PIC 9(8) VALUE O
01 ENCA2
02 F PIC X(50) VALUE ' '
02 F PIC X(20) VALUE 'ACERO'
02 F PIC X(10) VALUE 'MEDICIONES'
01 ENCA3
02 F PIC X(133) VALUE ALL '-'
01 DATOS_REG
02 F PIC X(50) VALUE ' '
02 ACERO PIC 9(9) VALUE 0
02 F PIC X(11) VALUE ' '
02 MEDICION PIC 9(7) V 99 COMP_3 VALUE 0
01 SALTO PIC X
01 CONTLINEA PIC 99 VALUE 0
PROCEDURE DIVISION.
MOVE CURRENT_DATE TO FECHADIA
EN. ADD 1 TO NROHOJA
OPEN INPUT TABLAS MEDICIONES OUTPUT IMPRE
LE. READ TABLA AT END GO TO XX
IF CODTA=16 NEXT SENTENCE ELSE GO TO LE.
ADD 1 TO I
IF I > 1000 DISPLAY "ERROR" UPON CONSOLE STOP RUN
MOVE ACERO TO ACERO(I)
MOVE LIMIN TO LIMIN(I)
MOVE LIMAX TO LIMAX(I)
GO TO LE.
XX. MOVE 0 TO J
RT. READ MEDICIONES AT END GO TO FIN
ADD 1 TO J
IF J > I DISPLAY "ERROR" UPON CONSOLE STOP RUN
IF ACERO = ACERO(I) NEXT SENTENCE ELSE GO TO J1
IF MEDICION > LIMIN AND < LIMAX NEXT SENTENCE ELSE GO TO XX
WRITE IMPRE FROM DATOS AFTER POSITIONING SALTO
ADD 1 TO CONTLINEA
PERFORM EN.
GO TO RT.
FIN MOVE '-' TO SALTO
MOVE 'Fin de listado' TO IMPRE
WRITE IMPRE AFTER POSITIONING SALTO
CLOSE IMPRE
STOP RUN

El error "Error 53 no se encuentra el archivo" generalmente indica que el programa no puede encontrar uno o varios de los archivos que intenta abrir. En tu código, estás tratando de abrir tres archivos: "TABLAS.DAT", "MEDICIONES.DAT" y "PRINTER". Aquí hay algunas cosas que debes verificar:

1. Ubicación de los archivos: Asegúrate de que los archivos "TABLAS.DAT" y "MEDICIONES.DAT" existan en la ubicación especificada en tus instrucciones SELECT. Verifica que las rutas de archivo sean correctas y que los archivos estén en el lugar adecuado.

2. Permisos de acceso: Verifica que tengas permisos de lectura y escritura en la ubicación donde se encuentran los archivos. Los permisos incorrectos pueden impedir que el programa los abra.

3. Nombre del archivo: Asegúrate de que el nombre del archivo y la extensión sean correctos y coincidan con los nombres que utilizas en tus instrucciones SELECT. Verifica mayúsculas y minúsculas.

4. Archivo de impresión ("PRINTER"): En tu código, estás utilizando "PRINTER" como un archivo de salida. Verifica que esta configuración sea válida en tu entorno. Puedes intentar utilizar un archivo de salida con una ruta de archivo específica en lugar de "PRINTER" para evitar posibles problemas.

5. Rutas de acceso en UNIX: Si estás ejecutando el programa en un entorno UNIX, asegúrate de que las rutas de acceso estén en el formato correcto para UNIX (por ejemplo, "/home/usuario/archivos/TABLAS.DAT" en lugar de "C:\TABLAS.DAT" que es el formato de Windows).

Después de verificar estos puntos, intenta ejecutar nuevamente el programa. Si el error persiste, es posible que haya un problema específico en la configuración o el entorno en el que estás ejecutando el programa COBOL. Asegúrate de que todas las rutas de archivo sean correctas y de que los archivos estén disponibles en la ubicación especificada.