Leer archivo .DAT
Publicado por Veronica (3 intervenciones) el 05/05/2020 22:19:40
Buen día, tengo que leer un archivo .DAT del cual no se su estructura y no se puede abrir con cualquier editor ya que lo único que muestra son caracteres especiales.
Intente verlo con este código:
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT TABPROD ASSIGN TO "TABPROD.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD TABPROD.
01 LINEA PIC X(100).
WORKING-STORAGE SECTION.
77 FIN-FICHERO PIC 9 VALUE 0.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
OPEN INPUT TABPROD
PERFORM UNTIL FIN-FICHERO=1
READ TABPROD
AT END MOVE 1 TO FIN-FICHERO
NOT AT END PERFORM LEER-REGISTRO
END-READ
END-PERFORM
CLOSE TABPROD.
LEER-REGISTRO.
DISPLAY LINEA.
END PROGRAM YOUR-PROGRAM-NAME.
Pero naturalmente me muestra solo caracteres que nada que ver con la información.
Existe alguna manera de poder leerlo?
Gracias!
Intente verlo con este código:
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT TABPROD ASSIGN TO "TABPROD.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD TABPROD.
01 LINEA PIC X(100).
WORKING-STORAGE SECTION.
77 FIN-FICHERO PIC 9 VALUE 0.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
OPEN INPUT TABPROD
PERFORM UNTIL FIN-FICHERO=1
READ TABPROD
AT END MOVE 1 TO FIN-FICHERO
NOT AT END PERFORM LEER-REGISTRO
END-READ
END-PERFORM
CLOSE TABPROD.
LEER-REGISTRO.
DISPLAY LINEA.
END PROGRAM YOUR-PROGRAM-NAME.
Pero naturalmente me muestra solo caracteres que nada que ver con la información.
Existe alguna manera de poder leerlo?
Gracias!
Valora esta pregunta
0