Cobol - Error 53 - Ayuda

   
Vista:

Error 53 - Ayuda

Publicado por Nano (1 intervención) el 30/11/2009 01:29:43
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder