--游标为输出参数CREATE OR REPLACE PROCEDURE pro_emp_select(empsal OUT sys_refcursor)ASBEGIN OPEN empsal FOR SELECT empno,sal FROM emp ;  END pro_emp_select;--调用DECLAREv_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)ASv_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;DECLAREemp_sal SYS_REFCURSOR;BEGIN  OPEN emp_sal FOR SELECT empno,sal FROM emp;  pro_emp_in(emp_sal);  CLOSE emp_sal;END;