CLEAR FRAME

/******************** STATEMENTS**************************************
**
** CLEAR FRAME nome-frame-1 ALL.
** Tem como objetivo limpar (eliminar
** dados no screen) uma frame
** para um novo DISPLAY.
**
**********************************************************************/

Código:

FOR EACH order:
    DISPLAY order.order-num
            order.order-date 
            WITH FRAME a DOWN 
            TITLE "Pedidos".
    FOR EACH order-line OF order,
        EACH item OF order-line:        
       DISPLAY order-line.item-num
               item.item-name 
               WITH FRAME b
               COLUMN 40 DOWN 
               TITLE "Itens do Pedido".
    END.
    CLEAR FRAME a ALL. 
END.