存储过程练习

--游标为输出参数
CREATE OR REPLACE PROCEDURE pro_emp_select(empsal OUT sys_refcursor)AS

BEGIN
 OPEN empsal FOR SELECT empno,sal FROM emp ;
END pro_emp_select;
--调用
DECLARE
v_no emp.empno%TYPE;
v_sal emp.sal%TYPE;
emp_sal SYS_REFCURSOR;
BEGIN
  pro_emp_select(emp_sal);
  LOOP
  FETCH emp_sal INTO v_no,v_sal;
  EXIT WHEN emp_sal%NOTFOUND;
  dbms_output.put_line(‘编号‘||v_no||‘薪水‘||v_sal);
  END LOOP;
  CLOSE emp_sal;
END;

--游标为输入参数
CREATE OR REPLACE PROCEDURE pro_emp_in(empsal IN sys_refcursor)AS
v_no emp.empno%TYPE;
v_sal emp.sal%TYPE;
BEGIN
  LOOP
    FETCH empsal INTO v_no,v_sal;
    EXIT WHEN empsal%NOTFOUND;
    dbms_output.put_line(‘编号‘||v_no||‘薪水‘||v_sal);
  END LOOP;
END pro_emp_in;

DECLARE
emp_sal SYS_REFCURSOR;
BEGIN
  OPEN emp_sal FOR SELECT empno,sal FROM emp;
  pro_emp_in(emp_sal);
  CLOSE emp_sal;
END;