Considere abaixo o conteúdo de um arquivo sequencial e o trecho de programa que lê este arquivo:
ITEM QTDE
| 003 | 00125 |
| 001 | 00052 |
| 002 | 00134 |
| 001 | 00048 |
| 003 | 00175 |
| 002 | 00066 |
0010 DEFINE DATA LOCAL
0020 1 #REG001 (A08) /* WORK FILE 1
0030 1 REDEFINE #REG001
0040 2 #R1-ITEM(N03)
0050 2 #R1-QTDE(N05)
0060 END-DEFINE
0070 *
0080 READ WORK FILE 1 #REG001
0090 SORT #R1-ITEM USING #R1-QTDE
0100 AT BREAK #R1-ITEM
0110 WRITE OLD(#R1-ITEM) SUM(#R1-QTDE)
0120 LOOP(0090)
0130 END
A sequência de valores da função Natural SUM(#R1-QTDE), mostrados pelo comando WRITE da linha 0110, é, respectivamente:
