Observação: O file ADABAS 99 possui carregados apenas 15 registros ( ISNs ).
| Descritor CARGO | Ocorrências | Lista de ISNs | ||||
| ANALISTA | 3 | 2 | 10 | 11 | ||
| CONSULTOR | 1 | 6 | ||||
| DBA | 2 | 1 | 13 | |||
| OPERADOR | 4 | 5 | 7 | 9 | 12 | |
| PROGRAMADOR | 5 | 3 | 4 | 8 | 14 | 15 |
Considere o trecho de programa abaixo:
0060 READ FTC-CARGO BY CARGO
0070 ADD 1 TO #CNT /* #CNT (N02)
0080 IF BREAK CARGO
0090 DO WRITE #CNT
0100 RESET #CNT
0110 DOEND
0100 LOOP(0060)
0110 END
Os valores da variável #CNT, quando executado o comando WRITE, são, respectivamente:
