一个包：错误文本=pls-00103:出现符号"create"，什么意思呀

 is



  type M_Cursor is ref cursor;



  procedure pagination(

       myCursor out M_Cursor,

       TableName in varchar, -- 表名

       Fields in varchar := '*', -- 需要返回的列

       OrderField in varchar:='', -- 排序的字段名

       PageSize in int , -- 页尺寸

       PageIndex in int, -- 页码

       TotalPage in int , -- 返回记录总数, 非 0 值则返回

       OrderType in int , -- 设置排序类型, 非 0 值则降序

       sqlWhere in varchar:=null -- 查询条件 (注意: 不要加 where)

  );

end datapagination;



CREATE OR REPLACE PACKAGE body datapagination--错误文本=pls-00103:出现符号"create"

is

 procedure pagination

 (

       myCursor out M_Cursor,

       TableName in varchar, -- 表名

       Fields in varchar := '*', -- 需要返回的列

       OrderField in varchar:='', -- 排序的字段名

       PageSize in int , -- 页尺寸

       PageIndex in int, -- 页码

       TotalPage in int , -- 返回记录总数, 非 0 值则返回

       OrderType in int , -- 设置排序类型, 非 0 值则降序

       sqlWhere in varchar:=null -- 查询条件 (注意: 不要加 where)

 );

 is

   v_sql varchar2(1000);--主语句

   v_strTmp varchar2(110) ;-- 临时变量

   v_strOrder varchar2(400);-- 排序类型

 begin

   if TotalPage!=0 then

      if sqlWhere is null then

         v_sql:='select count(*) as Total from '||TableName ;

      else

         v_sql:='select count(*) as Total from '||TableName||' where '+sqlWhere ;

      end if;

   else

      --如果OrderType不是0，就执行降序，这句很重要！

      if OrderType!=0 then

          v_strTmp:='<(select min';

          v_strOrder:=' order by '||OrderField||' desc';

      else

          v_strTmp:='<(select max';

          v_strOrder:=' order by '||OrderField||' asc';

      end if;

      --如果是第一页就执行以下代码，这样会加快执行速度

      if PageIndex=1 then

           if sqlWhere is null then

              v_sql:='select top '||PageSize||' '||Fields||' from '||TableName||' where '||sqlWhere||' '||v_strOrder;

           else

              v_sql:='select top'||PageSize||' '||Fields||' from '||TableName||v_strOrder;

           end if;

      else

       --以下代码赋予了v_sql以真正执行的SQL代码

       v_sql:='select '||Fields||' from '||TableName||' where '||OrderField||v_strTmp||'('||OrderField||') '||

              'from (

                     select '||OrderField||

                     ' from '||TableName||

                     ' where rownum<='||(PageIndex-1)*pagesize||

                     v_strOrder||

                   ' )  tblTmp) and rownum<='||pagesize||v_strOrder;

       if sqlWhere is not null then

                 v_sql:='select '||Fields||' from '||TableName||' where '||OrderField||v_strTmp||'('||OrderField||') '||

              'from (

                     select '||OrderField||

                     ' from '||TableName||

                     ' where '||sqlWhere||' and rownum<='||(PageIndex-1)*pagesize||

                     v_strOrder||

                   ' )  tblTmp) and '||sqlWhere||' and rownum<='||pagesize||v_strOrder;

       end if;



      end if;

   end if;

  open myCursor for v_sql;

  end pagination;

end datapagination;