drop package TESTFUNINPROC
/
/*==============================================================*/
/* Database package: TESTFUNINPROC */
/*==============================================================*/
create or replace package TESTFUNINPROC as
type OUTLIST is REF CURSOR;
function TESTFUN (TYPENUM IN varchar2) return outlist;
procedure TESTPROC (TYPENUM IN varchar2,RESULT OUT outlist);
end TESTFUNINPROC;
/
create or replace package body TESTFUNINPROC as
function TESTFUN (TYPENUM IN varchar2) return outlist as
rc outlist;
Begin
open rc for
select *
from GG_BOOK book
where book.BOOK_ZBLX = typeNum ;
return rc;
End;
procedure TESTPROC (TYPENUM IN varchar2,RESULT OUT outlist) as
Begin
result := hblz_new.TestFunInProc.testFun(typeNum);
End;
end TESTFUNINPROC;
/