convertir .DAT a .TXT o .DBF o .MDB
Hola, amigos:
Si a alguien le puede servir de ayuda,:a continuación adjunto un pequeño programa en COBOL que convierte fichero DAT a TXT.
IDENTIFICATION DIVISION.
PROGRAM-ID. COPIA.
* convierte fichero en formato .DAT a .TXT.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ENTRADA
ASSIGN TO RANDOM, "ENTRADA.DAT"
ORGANIZATION IS SEQUENTIAL.
SELECT SALIDA
ASSIGN TO RANDOM, "SALIDA.TXT"
ORGANIZATION IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD ENTRADA.
01 REG-ENTRADA PIC X(16).
FD SALIDA.
01 REG-SALIDA.
02 REG-SAL PIC X(16).
02 CONTROL-SAL PIC X.
WORKING-STORAGE SECTION.
01 W-CONTROL PIC X VALUE X"0D".
* este campo con formato hexadecimal sirve para delimitar el
* registro.
01 W-LEIDOS PIC 9(4) VALUE 0.
01 W-GRABADOS PIC 9(4) VALUE 0.
PROCEDURE DIVISION.
ABRIR-FICHEROS.
OPEN INPUT ENTRADA.
OPEN OUTPUT SALIDA.
LEE-ENTRADA.
READ ENTRADA
AT END
GO TO CERRAR-FICHEROS.
ADD 1 TO W-LEIDOS.
GRABA-SALIDA.
MOVE REG-ENTRADA TO REG-SAL.
MOVE W-CONTROL TO CONTROL-SAL.
WRITE REG-SALIDA.
ADD 1 TO W-GRABADOS.
GO TO LEE-ENTRADA.
CERRAR-FICHEROS.
DISPLAY "REGISTROS LEIDOS " W-LEIDOS.
DISPLAY "REGISTROS GRABADOS " W-GRABADOS.
CLOSE ENTRADA.
CLOSE SALIDA.
STOP RUN.