Advertisement
eurismarpires

Função Pipelined sem packages

Nov 20th, 2020
2,064
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 0.56 KB | None | 0 0
  1. CREATE OR REPLACE TYPE REG_TESTE AS object
  2. (
  3.    EMP_ID  NUMBER,
  4.     EMP_NOME VARCHAR2(100)
  5. )
  6. CREATE OR REPLACE TYPE TAB_REG_TESTE IS TABLE OF REG_TESTE;
  7.  
  8.  
  9. CREATE OR REPLACE FUNCTION Busca_REG_TESTE RETURN TAB_REG_TESTE
  10.       PIPELINED IS
  11.       V_out_rec REG_TESTE;
  12.  
  13.   BEGIN
  14.     V_out_rec := REG_TESTE(NULL,NULL);
  15.     FOR c IN (
  16.        SELECT * FROM EMPRESA
  17.       )
  18.  
  19.       LOOP
  20.  
  21.         V_out_rec.EMP_ID        := C.EMP_ID;
  22.         V_out_rec.EMP_NOME       := C.EMP_NOME;
  23.         PIPE ROW(V_out_rec);
  24.       END LOOP;
  25.       RETURN;
  26.   END Busca_REG_TESTE;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement