DEF STREAM

/******************** STATEMENTS**********************************
**
** DEF STREAM nome-stream
** E possivel definir um fluxo de saida de
** dados alem do default. Assim e possivel
** imprimir no disco e ao mesmo tempo vi-
** sualizar no SCREEN.
**
**
** OUTPUT STREAM nome-stream TO nome-arquivo
** Serve para direcionar o fluxo alterna-
** tivo.
**
**********************************************************************/

Código:

DEF STREAM saida.

OUTPUT STREAM saida TO dados.txt.

FOR EACH customer WITH NO-BOX:
    DISPLAY STREAM saida 
        customer.cust-num 
        customer.name 
        customer.phone.
    DISPLAY  
        customer.cust-num 
        customer.name 
        customer.phone.        
END.