Exemplo de Query

/******************** STATEMENTS**************************************
**
** FOR tabela1, tabela2 (DEF QUERY...)
** Uma query pode ser fundamentada sobre
** um JOIN.
**
** DOWN (DEF BROWSE...)
** Quando nao se usa o SIZE para definir
** as dimensoes do BROWSE, entao deve-se
** usar o DOWN para definir a altura, e
** neste caso a largura sera definida
** pelo PROGRESS.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim LABEL "&Ok".  

DEF QUERY q-cust FOR customer, order.
DEF BROWSE q-cust QUERY q-cust
    DISPLAY customer.cust-num
            customer.name
            order.order-num
            order.order-date
            WITH 8 DOWN
            TITLE "Clientes e Pedidos".
OPEN QUERY q-cust
      FOR EACH customer, 
          EACH order OF customer.
          
DEFINE FRAME a
        q-cust SKIP(2)
        bt-fim
        WITH FRAME a CENTERED ROW 3
        TITLE "BROWSE DAS TABELAS CUSTOMER E ORDER".
        
DISPLAY  q-cust bt-fim WITH FRAME a.
ENABLE ALL WITH FRAME a.
WAIT-FOR CHOOSE OF bt-fim.