[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.-