oracle下wm_concat源码（ps:如果有些版本的oracle不支持此函数，只要执行下下面的语句即可）

--创建wm_concat函数
CREATE OR REPLACE TYPE WM_CONCAT_IMPL
AUTHID CURRENT_USER AS OBJECT
(
  CURR_STR CLOB,--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 CLOB,
                                 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 0;
  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 0;
  END;


  MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN WM_CONCAT_IMPL,
                                 RETURNVALUE OUT CLOB,
                                 FLAGS IN NUMBER)
    RETURN NUMBER
  IS
  BEGIN
    RETURNVALUE := CURR_STR ;
    RETURN 0;
  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 0;
  END;


END;




CREATE OR REPLACE FUNCTION WM_CONCAT(P1 VARCHAR2)
RETURN clob AGGREGATE USING  WM_CONCAT_IMPL ;