沉睡森林@漂在北京

          本處文章除注明“轉載”外均為原創,轉載請注明出處。

            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 王總兵 閱讀(261) 評論(0)  編輯  收藏 所屬分類: DataBase
          主站蜘蛛池模板: 盐源县| 光山县| 潞西市| 石狮市| 金溪县| 容城县| 台州市| 会同县| 资溪县| 夹江县| 贵德县| 旌德县| 镇江市| 开封县| 璧山县| 金秀| 吴江市| 秦皇岛市| 三台县| 沅江市| 青阳县| 化隆| 贵德县| 云龙县| 麟游县| 阜南县| 虎林市| 雅安市| 资源县| 徐州市| 津市市| 酒泉市| 增城市| 顺平县| 汤原县| 即墨市| 尤溪县| 台山市| 西畴县| 安康市| 白水县|