Procedure no Oracle

[MauroLacerdaParticipante]

CREATE OR REPLACE PROCEDURE Teste (p_par IN NUMBER)
IS
CURSOR tabela is select emp_codigo from tabela where emp_codigo=p_par;
v_codigo number(6);
BEGIN
OPEN tabela;
LOOP
FETCH tabela INTO v_codigo;
EXIT WHEN tabela%NOTFOUND;
BEGIN
DBMS_OUTPUT.PUT_LINE(v_codigo);

    END;
  END LOOP;

END;

exec teste(x);