CREATE OR REPLACE PACKAGE pkg_test
AS
   TYPE myrctype IS REF CURSOR;
END pkg_test;
/CREATE PROCEDURE Reserve (isbn varchar2,ydrq1 date,ydrq2 date,p_rc pkg_test.myrctype) 
AS
misbn varchar2(20);
str varchar2(100);
begin
misbn:='%'||trim(isbn)||'%';
str:='SELECT a.*
from lib_cb a
where a.isbn like decode('||isbn||',null,a.isbn,'||misbn||')
      and ydrq>='||ydrq1||' and ydrq<='||ydrq2||' 
      and cgrq is null';
open p_rc for str;
end;
/