Vamos supor que você precisa dos dados da tabela Customer em dois arquivos diferentes, em um você precisa do código e nome e no outro arquivo o código e endereço, você pode fazer 2 for each e gerar os arquivos ou usar stream. Exemplo: Código: def stream str1. def stream str2. output stream str1 to C:\arquivo1.txt. output stream str2 to C:\arquivo2.txt. for each customer no-lock: put stream str1 customer.custnum customer.name skip. put stream str2 customer.custnum customer.address skip. end. output stream str1 close. output stream str2 close.
