DEFINE FRAME

/******************** STATEMENTS**************************************
**
** DOWN WITH FRAME... (DEFINE FRAME...)
** O DEFINE FRAME nao se incorpora ao
** bloco onde foi referenciado,
** entretanto, se incorpora ao bloco
** que primeiro o utilizar. Dai surgir
** o efeito flasch nos proximos blocos
** que o outilizarem.
**
**********************************************************************/

Código:

DEFINE FRAME frame-unica
       customer.cust-num
       customer.name
       WITH CENTERED 
       COLOR WHITE/BLUE DOWN. 
                
FOR EACH customer:
    DISPLAY customer.cust-num
            customer.name 
            WITH TITLE "For Each"
            WITH FRAME frame-unica.
    FOR EACH order WHERE
             order.cust-num = customer.cust-num:
        DISPLAY order.order-num
                order.order-date
                 WITH FRAME frame-unica.
        DOWN WITH FRAME frame-unica.         
    END.                 
END.