O BUFFER-COPY realiza a cópia de valores entre dois BUFFERS de registro, podendo trabalhar inclusive com TEMP-TABLES.

O trecho abaixo cria uma copia da tabela sj para a tabela temporaria tt-sj.

DEF TEMP-TABLE tt-sj NO-UNDO LIKE sj.
FOR EACH sj NO-LOCK:
    CREATE tt-sj.
    BUFFER-COPY sj TO tt-sj.
END.

E tem uma otima performance.😀