[Sintaxis] Organización Fichero FD

[jmeza]

Hola Amigos,
Consulta, como puedo hacer para migrar los datos de un fichero con una organización FD, a una nueva organización FD cuando se agrega un campo en el registro, o se modifica el tamaño de un PIC.
Favor si alguien me puede ayudar con esta rutina
Estoy trabajando con powercobolv9 y Rmcobol85 V11
Saludos

[JCantero]

Traspaso fichero sef04x a sef04 con diferentes claves y datos.

           select sef04x assign to random, nombre-sef04x
                  organization indexed
                  access mode dynamic
                  record key is sef04x-clave
                  alternate record key is sef04x-documento
                                          with duplicates
                  alternate record key is sef04x-usuario with duplicates
                  alternate record key is sef04x-fecha with duplicates
                  file status is fs-sef04x.
 
           select sef04 assign to random, nombre-sef04
                  organization indexed
                  access mode dynamic
                  record key is sef04-clave
                  alternate record key is sef04-documento
                                          with duplicates
                  alternate record key is sef04-usuario with duplicates
                  alternate record key is sef04-fecha with duplicates
                  alternate record key is sef04-exp  with duplicates
                  alternate record key is sef04-futuro  with duplicates
                  file status is fs-sef04.

 
      traspasa-fichero.
          open input sef04x
          if fs-sef04x not = '00'
                move 'sef04x' to f-nombre
                move fs-sef04 to f-error
                move 'abrir ' to f-que
                perform sacar-error
                go acabamos
          end-if.
          perform open-o-sef04
          perform close-sef04
          perform open-io-sef04
          if fs-sef04 not = '00'
                move 'sef04' to f-nombre
                move fs-sef04 to f-error
                move 'abrir ' to f-que
                perform sacar-error
                go acabamos
          end-if
          initialize reg-sef04x
          start sef04x key >= sef04x-clave end-start
           read sef04x next record end-read
           perform until fin-sef04x
            move reg-sef04x to reg-sef04
     **** mover todos los campos de la fd 
            initialize sef04-exp sef04-futuro
            write reg-sef04 end-write
            read sef04x next record end-read
           end-perform.
           close sef04x.
           close sef04.
 

[jmeza]

Gracias JCantero, por la información
Saludos