wmsys.wm_concat 所存在危险 + 函数自定义——代码

本文讲述了，Oracle数据库通过wmsys.wm_concat进行行列转换的危险性。
wmsys工作实景管理的帐户（Oracle Workspace Manager）
在网上流传很多文章，描述了使用wmsys.wm_concat对象实现行列转换的方法，这种方法不被Oracle所推荐，因为WMSYS用户用于Workspace Manager，其函数对象可能因版本而不同，这种变化在11.2.0.3及10.2.0.5中体现出来。原本WM_CONCAT函数返回值为VARCHAR2变更为CLOB。这一变化导致了很多程序的异常。

该函数可以实现行列转换：

SQL> select wmsys.wm_concat(username) from dba_users;

         WMSYS.WM_CONCAT(USERNAME)----------------

         SYS,SYSTEM,YANGTK,TEST,OUTLN,MGMT_VIEW,FLOWS_FILES,MDSYS,ORDSYS,EXFSYS,DBSNMP,WM

在11.2.0.3中，其返回值类型变更为CLOB：

SQL> desc wmsys.wm_concat
FUNCTION wmsys.wm_concat RETURNS CLOB
 Argument Name          Type            In/Out Default?
 ------------------------------ ----------------------- ------ --------
 P1             VARCHAR2        IN

Oracle建议用户使用自定义函数来实现该功能，而不是使用WorkSpace的这个内部函数。
这个函数包含一个Type、Type Body、Function，可以参考Oracle的实现方式来实现这个函数。

请注意，在将数据库从其他版本升级到10.2.0.5和11.2.0.3中时，必须注意到，这个函数的返回值类型变化。

例如如下一个系列的函数，可以帮助用户构建自有的行列转换函数：

SQL> create or replace TYPE en_concat_im
      AUTHID CURRENT_USER AS OBJECT
      (
    CURR_STR VARCHAR2(32767),
    STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT en_concat_im) RETURN NUMBER,
    MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT en_concat_im,
            P1 IN VARCHAR2) RETURN NUMBER,
    MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN en_concat_im,
                      RETURNVALUE OUT VARCHAR2,
                      FLAGS IN NUMBER)
              RETURN NUMBER,
    MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT en_concat_im,
             SCTX2 IN  en_concat_im) RETURN NUMBER
      );
      /

Type created.

    SQL> 
    SQL> create or replace TYPE BODY en_concat_im
      IS
    STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT en_concat_im)
    RETURN NUMBER
    IS
    BEGIN
     SCTX := en_concat_im(NULL) ;
     RETURN ODCICONST.SUCCESS;
    END;
    MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT en_concat_im,
           P1 IN VARCHAR2)
    RETURN NUMBER
    IS
    BEGIN
     IF(CURR_STR IS NOT NULL) THEN
       CURR_STR := CURR_STR || ';' || P1;
     ELSE
       CURR_STR := P1;
     END IF;
     RETURN ODCICONST.SUCCESS;
    END;
    MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN en_concat_im,
                      RETURNVALUE OUT VARCHAR2,
                      FLAGS IN NUMBER)
     RETURN NUMBER
    IS
    BEGIN
     RETURNVALUE := CURR_STR ;
     RETURN ODCICONST.SUCCESS;
    END;
    MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT en_concat_im,
                    SCTX2 IN en_concat_im)
    RETURN NUMBER
    IS
    BEGIN
     IF(SCTX2.CURR_STR IS NOT NULL) THEN
       SELF.CURR_STR := SELF.CURR_STR || ';' || SCTX2.CURR_STR ;
     END IF;
     RETURN ODCICONST.SUCCESS;
    END;
      END;
      /

Type body created.

    SQL> create or replace FUNCTION en_concat(P1 VARCHAR2) RETURN VARCHAR2 AGGREGATE USING en_concat_im ;
      /

    Function created.

    SQL> select en_concat(username) from dba_users;

EN_CONCAT(USERNAME)

SYS;SYSTEM;YANGTK;TEST;OUTLN;MGMT_VIEW;FLOWS_FILES;MDSYS;ORDSYS;EXFSYS;DBSNMP;WM
SYS;APPQOSSYS;APEX_030200;OWBSYS_AUDIT;ORDDATA;CTXSYS;ANONYMOUS;SYSMAN;XDB;ORDPL
UGINS;OWBSYS;SI_INFORMTN_SCHEMA;OLAPSYS;ORACLE_OCM;XS$NULL;MDDATA;DIP;APEX_PUBLI
C_USER;SPATIAL_CSW_ADMIN_USR;SPATIAL_WFS_ADMIN_USR

以上改变还存在一个潜在的性能风险，那就是使用CLOB时会用到临时段，在高压力系统下，临时文件的大量占用会导致临时表空间的迅速增长。使用10046事件跟踪，可以清晰的看到这些变化，以下是使用10046事件跟踪两个查询：

SQL> alter session set events '10046 trace name context forever,level 12';

Session altered.

SQL> select wmsys.wm_concat(username) from dba_users;

WMSYS.WM_CONCAT(USERNAME)

SYS,SYSTEM,YANGTK,TEST,OUTLN,MGMT_VIEW,FLOWS_FILES,MDSYS,ORDSYS,EXFSYS,DBSNMP,WM

SQL> select en_concat(username) from dba_users;

EN_CONCAT(USERNAME)

查询日志输出如下，其中Disk file operations I/O 操作了文件201，即临时文件：

SQL> alter session set events '10046 trace name context forever,level 12';

Session altered.

SQL> select wmsys.wm_concat(username) from dba_users;

WMSYS.WM_CONCAT(USERNAME)

SYS,SYSTEM,YANGTK,TEST,OUTLN,MGMT_VIEW,FLOWS_FILES,MDSYS,ORDSYS,EXFSYS,DBSNMP,WM

SQL> select en_concat(username) from dba_users;

EN_CONCAT(USERNAME)

wmsys.wm_concat 所存在危险 + 函数自定义——代码

EN_CONCAT(USERNAME)

猜你喜欢