oracle包中存储过程返回结果集

ORACEL 包中的存储过程返回结果集需要在包中定义一个游标变量，存储过程中使用该变量返回结果集。
实例如下：

包

create or replace package TEST_PACKAGE is
  
  TYPE MY_CURSOR IS REF CURSOR;
  procedure Account_Check(
                          Comp      varchar,                  --公司号
                          ret out MY_CURSOR
                          );

end TEST_PACKAGE;

包体

create or replace package body TEST_PACKAGE is

 procedure Account_Check(
                         Comp      varchar,                  --公司号
                         ret out MY_CURSOR  
                        )
                       as
  
   open ret for SELECT * FROM XXX;
 end ;
end TEST_PACKAGE;