RETAIN, OF

/******************** STATEMENTS**************************************
**
** RETAIN n (WITH...) (>= V6)
** Retem n numero de linha da pagina ante-
** rior.
**
** OF (>= V6)
** Busca relacionamentos entre registros
** da tabela a com um registro da tabela
** b (N-1), desde que, entre as duas ta-
** belas hajam pelo menos um campo homo-
** nimo, que possuam o mesmo data-type e
** que faca parte do indice unico de pelo
** menos uma das duas tabelas.
**
**********************************************************************/

Código:

DEFINE FRAME frame-a
    customer.cust-num
    order.order-num
    order-line.item-num 
    item.item-name
    WITH CENTERED DOWN
    RETAIN 2.       

FOR EACH customer:
    DISPLAY customer.cust-num
            WITH FRAME frame-a.
    FOR EACH order OF customer:
      FOR EACH order-line OF order:
          FIND FIRST item OF order-line.                                   
          DISPLAY order.order-num
                  order-line.item-num
                  item.item-name
                  WITH FRAME frame-a.                
          DOWN WITH FRAME frame-a.        
      END.                                         
    END.                                              
END.