沉睡森林@漂在北京

本处文章除注明“转载”外均为原创,转载请注明出处。

  BlogJava :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  152 随笔 :: 4 文章 :: 114 评论 :: 0 Trackbacks
drop package TESTFUNINPROC
/

/*==============================================================*/
/* Database package: TESTFUNINPROC                              */
/*==============================================================*/
create or replace package TESTFUNINPROC as
   type OUTLIST 
is REF CURSOR;
   
function TESTFUN (TYPENUM IN varchar2return outlist;
   
procedure TESTPROC (TYPENUM IN varchar2,RESULT OUT outlist);
end TESTFUNINPROC;
/

create or replace package body TESTFUNINPROC as
   
function TESTFUN (TYPENUM IN varchar2return 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;
/
posted on 2009-05-21 14:37 王总兵 阅读(250) 评论(0)  编辑  收藏 所属分类: DataBase

只有注册用户登录后才能发表评论。


网站导航: