Facebook
From Soiled Terrapin, 7 Months ago, written in Oracle 9.2 PL/SQL.
Embed
Download Paste or View Raw
Hits: 95
  1. -- BLOCO ANƓNIMO
  2.         v_nome          t_pessoa.nome%TYPE;     -- VARIƁVEL
  3.         v_genero        t_pessoa.genero%TYPE;   -- VARIƁVEL
  4.         v_nif           t_pessoa.nif%TYPE;      -- VARIƁVEL
  5.         -- SELECT INTO
  6.         SELECT  nome, genero, nif       INTO    v_nome, v_genero, v_nif
  7.         FROM    t_pessoa;
  8.  
  9.         DBMS_OUTPUT.PUT_LINE('Nome:' || v_nome || ' Genero:' || v_genero || ' Nif:'|| v_nif);
  10.  
  11.         WHEN NO_DATA_FOUND THEN
  12.                 RAISE_APPLICATION_ERROR(-20001,'ERRO: SEM DADOS>> '||SQLERRM);
  13.         WHEN TOO_MANY_ROWS THEN
  14.                 RAISE_APPLICATION_ERROR(-20002,'ERRO: VƁRIAS LINHAS>> '||SQLERRM);
  15.         WHEN OTHERS THEN
  16.                 RAISE_APPLICATION_ERROR(-200002,'ERRO:'||SQLERRM);
  17. /