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:
0160 READ FTC-CARGO WITH CARGO = 'CONSULTOR'
0170 IF CARGO = 'OPERADOR'
0180 ESCAPE TOP
0190 LOOP(0160)
0200 DISPLAY *COUNTER(0160)
O valor de *COUNTER, quando executado o comando DISPLAY, é
