/******************** STATEMENTS********************************** ** ** FIRST-OF(tabela.campo) (BREAK BY) ** E possivel questionar qual e o primeiro ** registro de uma quebra, bem como tam- ** bem e possivel saber se e o ultimo da ** quebra (LAST-OF). Se for o primeiro de ** todas as quebras (FIRST) ou o ultimo ** de todas as quebras (LAST). ** **********************************************************************/ Código: FOR EACH customer BREAK BY customer.state: IF FIRST-OF(customer.state) THEN DISPLAY customer.state. DISPLAY customer.cust-num customer.balance (TOTAL BY customer.state). END.