CREATE OR REPLACE PACKAGE "TZH"."EMPLOYEES" AS TYPE empcur IS REF CURSOR; PROCEDURE GetEmpRecords(p_cursor OUT empcur); END Employees; / CREATE OR REPLACE PACKAGE BODY "TZH"."EMPLOYEES" AS PROCEDURE GetEmpRecords(p_cursor OUT empcur) IS BEGIN OPEN p_cursor FOR SELECT * FROM person ; END GetEmpRecords; END Employees; /======其实只要如下=====
var c refcursor
execute tzh.employees.getemprecords(:c)
print c