Exportando em CSV com uso tabelas ocultas

Olá pessoal,

Este é um jeito prático de exportar dados de uma tabela inteira em csv com uso das tabelas ocultas do BD.
Se alguem souber de algo mais pratico ainda, compartilhe.

Notem que o primeiro bloco FOR serve para qualquer tabela somente mudando a exportação abaixo.

Código:

/*EXPORTAR DADOS COM AJUDA DAS TABELAS OCULTAS*/
OUTPUT TO c:\temp\campo.csv CONVERT TARGET 'iso8859-1'.
FOR FIRST mgcad._file NO-LOCK WHERE mgcad._file._file-Name = 'usuar_mestre',
    EACH  mgcad._field NO-LOCK 
        WHERE mgcad._field._File-recid = RECID(mgcad._File) BY mgcad._field._Order:
    PUT mgcad._field._Label ';'.
END.
PUT SKIP.
FOR EACH mgcad.usuar_mestre NO-LOCK:
    EXPORT DELIMITER ';' mgcad.usuar_mestre.
END.
OUTPUT CLOSE.

Um abraço