create or replace package pkg_test
as
type mycursor is ref cursor;
procedure pro5(rt out pkg_test.mycursor);
procedure pro6(fnum in CT_CM_CustomsBill.FNUMBER%type,rt out pkg_test.mycursor);
end pkg_test;
create or replace procedure pro5(rt out pkg_test.mycursor) is
begin
open rt for select FID from CT_CM_CustomsBill;
end pro5;
create or replace procedure pro6(fnum in CT_CM_CustomsBill.FNUMBER%type ,rt out pkg_test.mycursor) is
begin
open rt for select FNUMBER from CT_CM_CustomsBill where FNUMBER=fnum;
end pro6;