使用sys_refcursor和临时表返回oracle结果集

       sys_refcursor是oracle9i以后系统定义的一个refcursor,主要用在过程中返回结果集。 如果仅仅为了返回值,无需自己在包头中定义游标类型,只需直接使用sys_refcursor即可轻松返回结果。

       但如果返回结果需要中间计算,就需要临时表进行存储,最后返回。

      1)ON COMMIT DELETE ROWS
       它是临时表的默认参数,表示临时表中的数据仅在事物过程(Transaction)中有效,当事物提交(COMMIT)后,临时表的暂时段将被自动截断(TRUNCATE),但是临时表的结构 以及元数据还存储在用户的数据字典中。如果临时表完成它的使命后,最好删除临时表,否则数据库会残留很多临时表的表结构和元数据。

      2)ON COMMIT PRESERVE ROWS
      它表示临时表的内容可以跨事物而存在,不过,当该会话结束时,临时表的暂时段将随着会话的结束而被丢弃,临时表中的数据自然也就随之丢弃。但是临时表的结构以及元数据还存储在用户的数据字典中。如果临时表完成它的使命后,最好删除临时表,否则数据库会残留很多临时表的表结构和元数据。

     会话,指的是客户端连接到服务器的一个上下文环境。它是一个逻辑概念。你比如,创建了一个会话,这个会话记录了客户端的ip,客户端的用户名等信息。以及发布的sql命令的游标等。这些信息都是存储在内存中的。oracle实例赋予一个id(session——id)来逻辑地把这些信息组织在一起。
    事务,指的是你在当前会话中要做的一件事情,而这件事情包括好多步操作。任何一步操作失败,你要做的整个这个事情也会失败。这就是事务的原子性。
    会话和事务其实在概念上没有多大的联系,所以也就没有什么区别之分。给你举个例子来说明会话与事物的一个大概关系。
    比如,你要给你家人拜年(这是一个事物)。前提是你必须先联系上你的家人,假如你打电话给你家人,当接通时你们就产生了一个会话,然后你就可以拜年了(就可以进行事务了)。

    由此可见,事务的运行必须建立在会话的基础上,但是有了会话不一定有事务(可以空闲,比如你接通了电话,什么都不说)。

    下面是一个实例,外面传递参数,查询结果插入临时表,然后再对临时表数据进行处理,最后返回结果集。一些和业务相关的内容,读者可以略过,主要关注sys_refcursor及临时表的用法。

create or replace PROCEDURE P_RPT_TJ_CREDIT (
  V_TYPE       VARCHAR2
, V_FUN_IDS IN OUT CLOB
, V_RESULT  OUT SYS_REFCURSOR --系统游标变量,方便返回记录集
) AS 
V_SQL VARCHAR2(2048);
V_STR VARCHAR2(2048);

TYPE CV_FUNS IS REF CURSOR;  -- 定义动态游标
CV_FUN CV_FUNS;  

V_FUN_NAME      VARCHAR2(128);
V_FUN_KIND      VARCHAR2(64);
V_ROUTE_ID      VARCHAR2(2048);

V_FUN_ID        VARCHAR2(36);
V_INX           NUMBER(4);

V_BIZ_TYPE      VARCHAR2(24);
V_YM_DATE       CHAR(7);
V_NUM           NUMBER(10) DEFAULT 0;
V_SNUM          NUMBER(10) DEFAULT 0;
V_PE            NUMBER(12,2) DEFAULT 0;

CURSOR CV_RESULTS IS
  SELECT BIZ_TYPE,FUNCTION_ID,YM_DATE,NUM
  FROM TMP_TJ_CREDIT
  ORDER BY BIZ_TYPE,FUNCTION_ID,YM_DATE;

BEGIN
  DELETE FROM TMP_TJ_CREDIT; -- 清除临时表数据
  
  V_FUN_IDS := '''' || REPLACE(V_FUN_IDS,',',''',''') || '''';
  V_SQL := 'SELECT ID,FUNCTION_NAME,FUNCTION_KIND,ROUTE_ID FROM SYS_FUNCTION WHERE ID IN (' || V_FUN_IDS || ')';
  dbms_output.put_line(V_SQL); 
  OPEN CV_FUN FOR V_SQL;
  
  LOOP
    FETCH CV_FUN INTO V_FUN_ID,V_FUN_NAME,V_FUN_KIND,V_ROUTE_ID;
    EXIT WHEN CV_FUN%NOTFOUND; 
    
    -- 循环插入每个给定菜单的数据统计值(每个菜单及其子菜单在每月的数量)  
    IF V_TYPE = 'CREDIT' THEN
        INSERT INTO TMP_TJ_CREDIT(BIZ_TYPE,FUNCTION_ID,FUNCTION_NAME,YM_DATE,NUM)
          SELECT V_TYPE,V_FUN_ID,V_FUN_NAME,SUBSTR(CREATE_DATE,1,7) YM ,SUM(TJ_NUM) NUM 
            FROM TJ_CREDIT_DETAIL_INFO 
            WHERE (CHECK_FLAG = '1' OR CHECK_FLAG = '2')
                AND ( FUNCTION_ID = V_FUN_ID OR FUNCTION_ID IN (SELECT ID FROM SYS_FUNCTION WHERE ROUTE_ID LIKE '%' || V_ROUTE_ID || '%') )
            GROUP BY V_TYPE,V_FUN_ID,V_FUN_NAME,SUBSTR(CREATE_DATE,1,7) ;        
    ELSE 
        INSERT INTO TMP_TJ_CREDIT(BIZ_TYPE,FUNCTION_ID,FUNCTION_NAME,YM_DATE,NUM)
          SELECT V_TYPE,V_FUN_ID,V_FUN_NAME,SUBSTR(CREATE_DATE,1,7) YM ,SUM(TJ_NUM) NUM 
            FROM LOG_DATA_RESULT 
            WHERE (CHECK_FLAG = '1' OR CHECK_FLAG = '2')
                AND ( FUNCTION_ID = V_FUN_ID OR FUNCTION_ID IN (SELECT ID FROM SYS_FUNCTION WHERE ROUTE_ID LIKE '%' || V_ROUTE_ID || '%') )
            GROUP BY V_TYPE,V_FUN_ID,V_FUN_NAME,SUBSTR(CREATE_DATE,1,7) ;  
    END IF;
    
  END LOOP;
  
  --循环计算上月数据及其增长率(同一菜单,且月份是递增(步长1))
  V_INX := 0;
  V_FUN_ID := NULL;
  FOR CV_RESULT IN CV_RESULTS LOOP
    IF V_FUN_ID = CV_RESULT.FUNCTION_ID AND V_YM_DATE != CV_RESULT.YM_DATE THEN
      IF V_YM_DATE IS NOT NULL AND ( TO_NUMBER(SUBSTR(V_YM_DATE,6,2)) + 1 = TO_NUMBER(SUBSTR(CV_RESULT.YM_DATE,6,2)) ) THEN
        V_SNUM := V_NUM;
        IF V_SNUM != 0 THEN
          V_PE   := ROUND((CV_RESULT.NUM -V_SNUM) / V_SNUM *100,2);
        END IF;
      END IF;
    ELSE
      V_SNUM := 0;
      V_PE   := 0;
    END IF;
    
    UPDATE TMP_TJ_CREDIT SET SNUM = V_SNUM ,PE = V_PE
    WHERE FUNCTION_ID = CV_RESULT.FUNCTION_ID AND YM_DATE = CV_RESULT.YM_DATE;
    
    V_BIZ_TYPE := CV_RESULT.BIZ_TYPE;
    V_FUN_ID   := CV_RESULT.FUNCTION_ID;
    V_YM_DATE  := CV_RESULT.YM_DATE;
    V_NUM      := CV_RESULT.NUM; 
    
    V_SNUM := 0;
    V_PE   := 0;    
  END LOOP;
  
  --最后返回结果,包括序号
  OPEN V_RESULT FOR 
    SELECT ROWNUM,BIZ_TYPE TYPE,FUNCTION_ID,FUNCTION_NAME,YM_DATE YM,NUM,SNUM,PE
    FROM(
      SELECT BIZ_TYPE ,FUNCTION_ID,FUNCTION_NAME,YM_DATE,NUM,SNUM,PE
      FROM TMP_TJ_CREDIT
      ORDER BY BIZ_TYPE,FUNCTION_ID,YM_DATE
    ) A ;
  
END P_RPT_TJ_CREDIT;



你可能感兴趣的:(数据库,oracle,sys_refcursor,临时表,存储过程返回结果集)