遇到的问题：

使用Oracle 11g XE 部署一个已有的应用，发现在该应用的建库脚本及应用中的数据库访问中都有使用函数 WMSYS.WM_CONCAT。 经过查资料发现这是一个标准版的内部函数，不推荐使用的。

对策分析

• 首先，最好不用wm_concat, 如下图所说，使用了移植性将无法保证。

  
  wm_concat.png

• 其次， 可以LISTAGG 来代替
  在如下的示例中

with temp as(
select 'China' nation ,'Guangzhou' city from dual union all  
select 'China' nation ,'Shanghai' city from dual union all  
select 'China' nation ,'Beijing' city from dual union all  
select 'USA' nation ,'New York' city from dual union all  
select 'USA' nation ,'Bostom' city from dual union all  
select 'Japan' nation ,'Tokyo' city from dual   
)
select nation,listagg(nation||';'||city,',') within GROUP (order by city)  as Cities
from temp  
group by nation;

输出的结果

可见有完全相同的效果，且该方法中 Oracle 11g XE是可用的。

• 另外，有向XE导入 owmctab.plb owmaggrs.plb owmaggrb.plb 重建内置函数的方法

在一些文章中给出了链接，要先下载这几个文件，再执行这些文件

 sql> @owmcatb.plb  
 sql>@owmaggrs.plb  
 sql>@owmaggrb.plb  

现在在网上几乎下载不到这几个文件了，从其它文章看这几个文件应该是从标准版中取出来的，考虑版权的问题，这样用似乎也不妥，而且这几个文件是经过加密的sql，看不到正文，也不要考虑了。

最终的选择：

在XE中通过自定义机制增加该方法，如果仅限于一个用户的使用，而且可以不带有wmsys，可以直接在本用户下执行创建类型和function, 就可以了，但如果能这样也就直接改为使用LISTAGG了，所面临的问题的情况是不能修改代码，那就只能采用创建用户wmsys, 在该用户下创建TYPE和Function, 然后再授权给所有人使用。

过程是：

1. 创建wmsys用户，并为其授权；
2. 以该用户登录；
3. 创建TYPE,Function;
4. 授权所有人使用

-- 创建用户 
CREATE USER wmsys IDENTIFIED BY wmsys DEFAULT TABLESPACE isc; 

--授权用户
GRANT CONNECT,RESOURCE TO wmsys;

--以新建用户Login 
conn wmsys/wmsys


代码如下： 

-- 创建类型
CREATE OR REPLACE TYPE wm_concat_impl   
  AUTHID CURRENT_USER
AS OBJECT (
   curr_str   VARCHAR2 (32767),
   STATIC FUNCTION odciaggregateinitialize (sctx IN OUT wm_concat_impl)
      RETURN NUMBER,
   MEMBER FUNCTION odciaggregateiterate (
      SELF   IN OUT   wm_concat_impl,
      p1     IN       VARCHAR2
   )
      RETURN NUMBER,
   MEMBER FUNCTION odciaggregateterminate (
      SELF          IN       wm_concat_impl,
      returnvalue   OUT      VARCHAR2,
      flags         IN       NUMBER
   )
      RETURN NUMBER,
   MEMBER FUNCTION odciaggregatemerge (
      SELF    IN OUT   wm_concat_impl,
      sctx2   IN       wm_concat_impl
   )
      RETURN NUMBER
);
/

CREATE OR REPLACE TYPE BODY wm_concat_impl
IS
   STATIC FUNCTION odciaggregateinitialize (sctx IN OUT wm_concat_impl)
      RETURN NUMBER
   IS
   BEGIN
      sctx := wm_concat_impl (NULL);
      RETURN odciconst.success;
   END;
   MEMBER FUNCTION odciaggregateiterate (
      SELF   IN OUT   wm_concat_impl,
      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       wm_concat_impl,
      returnvalue   OUT      VARCHAR2,
      flags         IN       NUMBER
   )
      RETURN NUMBER
   IS
   BEGIN
      returnvalue := curr_str;
      RETURN odciconst.success;
   END;
   MEMBER FUNCTION odciaggregatemerge (
      SELF    IN OUT   wm_concat_impl,
      sctx2   IN       wm_concat_impl
   )
      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;
/

CREATE OR REPLACE FUNCTION wm_concat (p1 VARCHAR2)
   RETURN VARCHAR2
   AGGREGATE USING wm_concat_impl;
/

--将wm_concat授权给所有人用
grant execute on wm_concat to public;

• 代码文件
  Github 下载

• 参考文档：
  oracle连接字符串函数，wmsys.wm_concat和LISTAGG
  Using WMSYS.WM_CONCAT with Oracle XE 10g
  Oracle函数之LISTAGG
  Oracle列转行函数 Listagg() 语法详解及应用实例