WITH FRAME

/******************** STATEMENTS**************************************
**
** WITH FRAME nome-frame (DISPLAY...)
** Assim como, o WITH FRAME nome-frame,
** forca o bloco DO a gerar uma frame,
** da mesma forma, forca o DISPLAY a
** gerar frame tambem.
**
**
**********************************************************************/

Código:

FOR EACH customer:
    DISPLAY customer.cust-num
      WITH FRAME f-cust.
    DISPLAY customer.name.
    FOR EACH order WHERE
             order.cust-num = customer.cust-num:
        DISPLAY order.order-num.
        DISPLAY order.order-date.
    END.          
END.