COPIAR UN FICHERO SECUENCIAL EN OTRO

[moraber]

gracias, algun programado que por favor me pueda ayudar como leer un archivo secuencial e ir grabandolo en otro..

[Josber]

Hola @moraber,

A ver, es de lo más sencillo, vamos a suponer que el fichero de origen se llama FICHERO1 y su estructura a NIVEL 01 se llama 01 REG-FIC1 y que el fichero destino, se llama FICHERO2 y su estructura a NIVEL 01 se llama 01 REG-FIC2


.
.
.
WORKING-STORAGE SECTION.
01 FLAG PIC 9 VALUE 0.
PROCEDURE DIVISION.
ABRIR-FICHEROS.
OPEN INPUT FICHERO1
OUTPUT FICEHRO2.
CONTINUO.
MOVE 0 TO FLAG.
PERFORM LEER
UNTIL FLAG = 1
END-PERFORM.
CLOSE FICHERO1 FICHERO2.
STOP RUN.
LEER.
READ FICHERO
NEXT RECORD AT END
MOVE 1 TO FLAG
NOT AT END
MOVE REG-FIC1 TO REG-FIC2
WRITE FICHERO2 FROM REG-FIC2
END-READ.

Con eso debería de funcionarte

Un salu2.-