Comando PUT

/******************** STATEMENTS**********************************
**
** PUT
** O PUT e um comando com funcao identica
** ao DISPLAY, entretanto nao ativa ne-
** nhuma propriedade da frame. Imprime
** com colunas de larguras fixas, sem
** espaco entre colunas e com tamanho
** ilimitado para a linha do arquivo
** texto de exportacao de dados.
**
** PUT SKIP
** Imprime o caracter especial line
** feed (lf).
**
**********************************************************************/

Código:

OUTPUT TO C:\CURSOPRO\dados.txt.

FOR EACH customer WITH NO-BOX:
    PUT CHR(34) FORMAT "X(1)".
    PUT customer.cust-num.
    PUT CHR(34) FORMAT "X(1)".
    PUT CHR(34) FORMAT "X(1)".
    PUT customer.name.
    PUT CHR(34) FORMAT "X(1)".
    PUT CHR(34) FORMAT "X(1)".
    PUT customer.phone.
    PUT CHR(34) FORMAT "X(1)".
    PUT SKIP.
END.