Facebook
From Subtle Owl, 5 Days ago, written in Oracle 9.2 PL/SQL.
Embed
Download Paste or View Raw
Hits: 37
  1. -- EXEMPLO DE UTILIZAƇƃO DE CURSOR EXPLICITO
  2. CREATE OR REPLACE PROCEDURE listagemSimples(pCodI t_instituicao.id%TYPE) IS
  3.  
  4. -- SEƇƃO DECLARATIVA
  5.  
  6. -- DECLARAƇƃO DO CURSOR
  7. CURSOR cursor_listagem IS
  8.         SELECT nome, genero, nif
  9.         FROM   t_pessoa
  10.         WHERE  idInst=pCodI;
  11.         -- CICLO
  12.         -- VARIƁVEL DE CICLO: linha
  13.         FOR linha IN cursor_listagem LOOP
  14.                 DBMS_OUTPUT.PUT_LINE('Nome: '|| linha.nome || ' Genero:'||linha.genero|| ' NIF;' ||linha.nif);
  15.         END LOOP;
  16.                
  17.         WHEN OTHERS THEN
  18.                 RAISE_APPLICATION_ERROR(-20001,'ERRO'||SQLERRM);
  19. /
  20. -- executar o procedimento
  21. EXECUTE listagemSimples(2);