He utilizado algo parecido para algunas cosas.
A ver si te cuadra esto......
Suponiendo que lo leido de la tabla está en campo-tabla, para cada copy debes de hacer lo siguiente:
Código COBOL:
evaluate w-aux
when 'CAMPO1-COPY-TABLA'
move campo-tabla to CAMPO1-COPY-TABLA
when 'CAMPO2-COPY-TABLA'
move campo-tabla to CAMPO2-COPY-TABLA
when 'CAMPO3-COPY-TABLA'
move campo-tabla to CAMPO3-COPY-TABLA
end-evaluate