Oracle分页存储过程UP_Sys_CommQuery_GetPageList详解

CREATE OR REPLACE PACKAGE PKG_Sys_CommQuery_GetPageList AS
 TYPE CUR_Sys_CommQuery_GetPageList IS REF CURSOR;
 END PKG_Sys_CommQuery_GetPageList;
-------------------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE UP_Sys_CommQuery_GetPageList
(
      p_Fields        IN  VARCHAR2,      --对象列
      p_ObjName       IN  VARCHAR2,      --表名（这里可以为视图）
      p_Where         IN  VARCHAR2,      --查询条件
      p_FieldOrder    IN  VARCHAR2,      --排序的列，方式
      p_CurPage       IN OUT NUMBER,     --当前页
      p_PageSize      IN OUT NUMBER,     --每页显示记录条数
      p_TotalRecords  OUT NUMBER,        --总记录数
      p_TotalPages    OUT NUMBER,        --总页数
      p_TotalColumn   VARCHAR2,  --需要汇总的列（多列用逗号分隔）
      p_TotalValue   OUT VARCHAR2,      --汇总列汇总后的结果（多列的汇总结果用逗号分隔，与@pTotalColumn一致）
    p_IsPage       NUMBER,            --是否需要分页
      v_Cur           OUT PKG_Sys_CommQuery_GetPageList.CUR_Sys_CommQuery_GetPageList   --返回的结果集
)
IS
      v_SubSQL VARCHAR2(3000) := '';        --根据传入参数构建出的查询语句
      v_SQL VARCHAR2(4000) := '';           --sql分页语句
      v_StartRecord Number(4);              --开始显示的记录条数
      v_EndRecord Number(4);                --结束显示的记录条数
      -----------------------------------------------------------
      v_SumSQL VARCHAR2(3000) := '';        --合计的sql
      v_TmpStr VARCHAR2(4000):='';         --存放临时的字符串
      v_ResultStr VARCHAR2(4000):='';       --结果
      v_StartPos NUMBER(4):=1;              --遍历开始点
      v_CutLen NUMBER(4):=0;                --截取长度