Exportação TXT em blocos

Preciso criar um arquivo de exportação txt com posição e blocos deninidos,
onde devo listas no bloco 01 a nota e logo abaixo no bloco 02 os itens.

For each nota-fiscal no-lock where
nota-fiscal.nr-nota-fis <= 10388 and
nota-fiscal.nr-nota-fis >= 10390,
each it-nota-fisc no-lock where
it-nota-fisc.cod-estabel = nota-fiscal.cod-estabel and
it-nota-fisc.nr-nota-fis = nota-fiscal.nr-nota-fis and
it-nota-fisc.serie = nota-fiscal.serie and
it-nota-fisc.nome-abrev = nota-fiscal.nome-abrev.


exemplo do modelo do arquivo txt:
01 10388
02 <nr-seq-fat>
02 <nr-seq-fat>
02 <nr-seq-fat>
01 10389
02 <nr-seq-fat>
02 <nr-seq-fat>
02 <nr-seq-fat>
02 <nr-seq-fat>
01 10390
02 <nr-seq-fat>
02 <nr-seq-fat>

Não sei fui clara no exemplo, mas necessito gerar um arquivo com varios blocos.
Como monto este output?

Para setar a posição dos campos em vez do disp coloca:

Código:

put unformatted skip
campo   at 01
campo2 at 10.

Beleza ! Funcionou! Obrigada.

Abaixo segue o código utilizado:
output to "c:\temp\teste-bloco.txt" NO-CONVERT.

For each nota-fiscal no-lock where
int(nota-fiscal.nr-nota-fis) >= 10388 and
int(nota-fiscal.nr-nota-fis) <= 10390.
put unformatted SKIP
nota-fiscal.nr-nota-fis at 01.

For each it-nota-fisc no-lock where
it-nota-fisc.cod-estabel = nota-fiscal.cod-estabel and
it-nota-fisc.nr-nota-fis = nota-fiscal.nr-nota-fis and
it-nota-fisc.serie = nota-fiscal.serie.

put unformatted skip
it-nota-fisc.nr-seq-fat at 01
it-nota-fisc.it-codigo at 20.
end.
end.

Ola, nao conheço muito Progress e preciso fazer exatamente o que vc fez, porém exibindo uma tela antes pedindo ao usuário a entrada de alguns parametros para que eu possa filtrar as notas fiscais a serem exportadas......

Como eu faria isso??

grato