Listando diferenças de Tabelas

OBS.: {1} é o nome do arquivo onde será gerada a lista

DEF VAR c-diferencas AS CHAR.
DEF STREAM s-diferencas.

OUTPUT STREAM s-diferencas TO c:\temp\{1} APPEND.
BUFFER-COMPARE p-table TO p-old-table SAVE c-diferencas.
EXPORT STREAM s-diferencas c-diferencas.
OUTPUT STREAM s-diferencas CLOSE.