Saída para TXT com cabeçalhos

Alguém sabe como fazer um for each com saída para TXT apresentando os cabeçalhos (nomes das colunas)?

Obrigado.

Bom dia.

faça assim e veja se é isso:

output to value(caminho com o nome do arquivo).
put "o cabeçalho" skip
for each tabela:

put nos campos.
end.
output close.

Geralmente faço desta forma:

Código:

def var varq as char init "L:\temp\lista.txt".

def frame f-mostra
   customer.custnum
   customer.name
   customer.address
   customer.postalcode
   customer.emailaddress
   with down scrollable stream-io.

output to value(varq).

for each customer
   where customer.custnum < 20
   no-lock.
   
   disp 
      customer.custnum
      customer.name
      customer.address
      customer.postalcode
      customer.emailaddress
      with frame f-mostra.
   
end.

output close.

os-command no-wait value(varq).

Valeu pessoal.

Vou testar essas soluções.

Edu_felix valeu pela dica.

LeandroSantos, era justamente isso que eu precisava.
Mto obrigado.

Abraço a todos.

Adicione as cláusulas convert target ao comando output para não ter problemas com caracteres acentuados ao abrir o arquivo gerado em um editor que não reconheça automaticamente a codificação.

output to value(varq) convert target "iso8859-1".
​

Obs: "iso8859-1" é a versão ISO da codificação proprietária "win1252" usado pelo Windows. Quem usa Totvs/Datasul sabe que a codificação usada pelo sistema é a "ibm850" legada ainda do Unix e ao gerar arquivos sem a conversão acaba tendo problemas na visualização/impressão dos arquivos.