c#java

CREATE OR REPLACE PACKAGE BODY "ZQPACKAGE" Is
  Procedure pagepro(ipagesize    Number, --每页记录数
                    icurrentpage Number, --当前页码
                    strsql       Varchar2, --最终语句
                    irecordcount Out Number, --总记录数
                    ipagenum     Out Number, --输出总页码
                    oflag        Out Number, --返回操作标志
                    v_cur        Out refcursor,
                    errdesc      Out Varchar2) As
    tmpsql         Varchar2(8000);
    newsql         Varchar2(8000);
    tmpnum         Number(9, 2);
    tmprowstart    Number;
    tmprowend      Number;
    tmppagesize    Number;
    pos            Number;
    autopagenumber Number;
  Begin
  
    irecordcount := 0;
    ipagenum     := 1;
  
    Execute Immediate 'select count(1) from (' || strsql || ')'
      Into irecordcount;
  
    If irecordcount = 0 Then
      --没有记录
      oflag    := 16;
      ipagenum := 0;
      Open v_cur For strsql;

      Return;
    End If;
  
    If ipagesize = 0 Then
      tmppagesize := 1000;
    Else
      tmppagesize := ipagesize;
    End If;
  
    If irecordcount < tmppagesize Then
      --所有记录只有一页
      oflag    := 17;
      ipagenum := 1;
      Open v_cur For strsql;
      Return;
    End If;
  
    --计算总页数
    tmpnum := irecordcount / tmppagesize;
    If tmpnum > trunc(tmpnum) Then
      ipagenum := trunc(tmpnum) + 1;
    Else
      ipagenum := trunc(tmpnum);
    End If;
    If (icurrentpage > ipagenum Or icurrentpage < 1) Then
      --页码不对
      oflag := 19;
      Open v_cur For 'select 1 from dual';
      Return;
    End If;