declare
err_num NUMBER;
err_msg VARCHAR2(100);
Type Search_Result Is Ref Cursor;
m_cur Search_Result;
begin
dbms_output.put_line('begin procedure...');
dbms_output.put_line('-------------------------------------------');
package.procedure(NULL,'1','G313',NULL,'2017-03-01','2017-03-05',NULL,m_cur);
dbms_output.put_line('-------------------------------------------');
dbms_output.put_line('end procedure...');
EXCEPTION
WHEN OTHERS THEN
err_num := SQLCODE;
err_msg := SUBSTR(SQLERRM, 1, 100);
dbms_output.put_line(err_num || '---' || err_msg);
end;
转载于:https://my.oschina.net/u/3702584/blog/1547195