ACCUMULATE, ACCUM TOTAL

/******************** STATEMENTS**********************************
**
** ACCUMULATE
** Tambem e uma funcao aggregate e
** forca que alguma outra funcao tambem
** aggregate seja acumulada linha a
** linha.
**
** ACCUM TOTAL
** E uma order de impressao de uma
** determinada coluna do relatorio.
**
**********************************************************************/

Código:

FOR EACH customer: 
    ACCUMULATE customer.credit-limit(TOTAL).
    DISPLAY customer.cust-num
            customer.name               
            customer.credit-limit
            ACCUM TOTAL customer.credit-limit 
            COLUMN-LABEL "Total Acumulado"
            FORMAT ">>>,>>>,>>9.99".
END.