WHILE (FOR ECAH)

/******************** STATEMENTS**************************************
**
** WHILE (FOR EACH...)
** E uma condicao para controle de
** looping, usado nao so para o
** REPEAT, mas tambem para o FOR EACH.
**
**********************************************************************/

Código:

DEF VAR cont AS INTEGER.

FOR EACH customer WHILE CONT < 3: 
 cont = cont + 1.       
 DISPLAY customer.cust-num
         customer.name
          WITH FRAME frame-unica DOWN.
 FOR EACH order WHERE
   order.cust-num = customer.cust-num:
   DISPLAY order.order-num
           order.order-date
           WITH FRAME frame-unica DOWN.
 END.
END.