Agrupamento de FOR EACH

/******************** STATEMENTS**************************************
**
** FOR EACH tabela-1, EACH tabela-2 OF tabela-1: (JOIN)
** Trata-se do agrupamento de uma cadeia
** de FOR EACH(s). E possivel agrupar to-
** dos os FOR EACH(s) internos, desde que
** sejam separados com virgulas.
**
** Cuidado! O JOIN nao lista aquelas in-
** formacoes que nao possuirem registros
** relacionados com todas as tabelas en-
** envolvidas.
**
**********************************************************************/

Código:

FOR EACH customer, 
    EACH order OF customer,
    EACH order-line OF order:
    DISPLAY customer.cust-num
            customer.name
            order.order-num
            order-line.item-num .
    FIND FIRST item OF order-line.                                   
    DISPLAY item.item-name.       
END.