SQL> create or replace function F_GetEmpByDept(in_deptNo in emp.deptno%type)
2 return sys_refcursor as
3 out_curemp sys_refcursor;
4 begin
5 open out_curEmp for
6 SELECT ename FROM emp WHERE deptno = in_deptNo;
7 return out_curEmp;
8 EXCEPTION
9 WHEN OTHERS THEN
10 RAISE_APPLICATION_ERROR(-20101, 'Error in F_getEmpByDept' || SQLCODE);
11 end f_getEmpByDept;
12 /
已建立函數.
SQL> exec :rset:=F_GetEmpByDept(10);
PL/SQL 程序順利完成.
SQL> print rset;
ENAME
--------------------
MILLER
CLARK
KING
SQL>
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/29987/viewspace-51738/,如需转载,请注明出处,否则将追究法律责任。