DEF BUFFER, V6FRAME

/******************** STATEMENTS**********************************
**
** DEF BUFFER (>= V6)
** Trata-se de uma copia virtual
** de uma tabela especifica. Produz
** o efeito, como se fosse duas tabelas
** identicas em espacos fisicos difere-
** rentes, mas na verdade e a mesma
** tabela com ponteiros diferentes.
** Assim qualquer alteracao que seja
** feita em uma, repercute imedia-
** tamente na outra.
**
** V6FRAME (WITH) (>= V7)
** E mais uma caracteristica geral da
** frame e determina que o fonte a ser
** usado, deve ser o courier.
**
**********************************************************************/

Código:

DEF BUFFER b-customer FOR customer.

FOR EACH customer WITH TITLE "Cliente analisado": 
  DISPLAY customer.cust-num
          customer.name
          customer.balance.
  FOR EACH b-customer WHERE
           b-customer.balance >= customer.balance AND
           b-customer.cust-num <> customer.cust-num
           WITH TITLE "Clientes com Balancos Superiores":
     DISPLAY b-customer.cust-num
             b-customer.name
             b-customer.balance
             WITH V6FRAME.     
  END.        
END.
PAGE.