---

---

Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

Tratamento de Cursores Caso o resultado de um SELECT tenha múltiplas linhas, o programa deve trabalhar com um CURSOR. Quando o programa executa o comando OPEN cursor, O DB2 executa o SELECT definido no DECLARE CURSOR, e a  tabela resultante fica presa, esperando pelo processamento. O programa deve executar a instrução ´FETCH` para acessar as linhas selecionadas no DECLARE CURSOR. As variáveis HOST conterão os valores das colunas selecionadas da linha acessada. No final do processamento do cursor deve-se realizar o comando CLOSE cursor. Todo cursor deve ter o tratamento de abertura (open), leitura (fetch) e fechamento (close). Ao se processar um cursor utilizar a mesma lógica aplicada em arquivos seqüenciais. Abrir Ler o primeiro Tratar Vazio (SQLCODE = +100) Criar um processamento até fim do db2 ( until sqlcode equal +100 ) Após esse processamento fechar o cursor Não esqueça: caso a tabela esteja vazia, também feche o cursor.