O comando SET INDCIVIL TO 1.

deveria ser substituído por MOVE 1 TO INDCIVIL.

faz a pesquisa ser realizada a partir do primeiro elemento da tabela.

faz o programa entrar em loop, pois faz a pesquisa ser realizada sempre no primeiro elemento da tabela.

deveria ser substituído por COMPUTE INDCIVIL = 1.

é desnecessário, pois a pesquisa realizada pelo SEARCH é binária