wmsys.wm_concat结果长度限制的问题

转：http://blog.csdn.net/xmm_1030/article/details/46724153

使用wmsys.wm_concat多列合成一列遇到问题
ORA-22813: 操作数值超出系统的限制

官方文档解释是总长度超过30k
有办法修改这个长度限制么？

已经写了存储过程作为替代方案了

[sql] view plain copy print ?

1. CREATE OR REPLACE TYPE zh_concat_im  
2. AUTHID CURRENT_USER AS OBJECT  
3. (  
4.   CURR_STR clob,  
5.   STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT zh_concat_im) RETURN NUMBER,  
6.   MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT zh_concat_im,  
7.   P1 IN VARCHAR2) RETURN NUMBER,  
8.   MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN zh_concat_im,  
9.   RETURNVALUE OUT clob,  
10.   FLAGS IN NUMBER)  
11.   RETURN NUMBER,  
12.   MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT zh_concat_im,  
13.   SCTX2 IN zh_concat_im) RETURN NUMBER  
14. );  
15.   
16. CREATE OR REPLACE TYPE BODY zh_concat_im  
17. IS  
18.   STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT zh_concat_im)  
19.   RETURN NUMBER  
20.   IS  
21.   BEGIN  
22.   SCTX := zh_concat_im(NULL) ;  
23.   RETURN ODCICONST.SUCCESS;  
24.   END;  
25.   MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT zh_concat_im,  
26.   
27.   P1 IN VARCHAR2)  
28.   RETURN NUMBER  
29.   IS  
30.   BEGIN  
31.   IF(CURR_STR IS NOT NULL) THEN  
32.   CURR_STR := CURR_STR || ',' || P1;  
33.   ELSE  
34.   CURR_STR := P1;  
35.   END IF;  
36.   RETURN ODCICONST.SUCCESS;  
37.   END;  
38.   MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN zh_concat_im,  
39.   RETURNVALUE OUT clob,  
40.   FLAGS IN NUMBER)  
41.   RETURN NUMBER  
42.   IS  
43.   BEGIN  
44.   RETURNVALUE := CURR_STR ;  
45.   RETURN ODCICONST.SUCCESS;  
46.   END;  
47.   MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT zh_concat_im,  
48.   SCTX2 IN zh_concat_im)  
49.   RETURN NUMBER  
50.   IS  
51.   BEGIN  
52.   IF(SCTX2.CURR_STR IS NOT NULL) THEN  
53.   SELF.CURR_STR := SELF.CURR_STR || ',' || SCTX2.CURR_STR ;  
54.   END IF;  
55.   RETURN ODCICONST.SUCCESS;  
56.   END;  
57. END;  
58.   
59. create or replace FUNCTION zh_concat(P1 VARCHAR2)  
60. RETURN clob AGGREGATE USING zh_concat_im ;  

CREATE OR REPLACE TYPE zh_concat_im
AUTHID CURRENT_USER AS OBJECT
(
  CURR_STR clob,
  STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT zh_concat_im) RETURN NUMBER,
  MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT zh_concat_im,
  P1 IN VARCHAR2) RETURN NUMBER,
  MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN zh_concat_im,
  RETURNVALUE OUT clob,
  FLAGS IN NUMBER)
  RETURN NUMBER,
  MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT zh_concat_im,
  SCTX2 IN zh_concat_im) RETURN NUMBER
);

CREATE OR REPLACE TYPE BODY zh_concat_im
IS
  STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT zh_concat_im)
  RETURN NUMBER
  IS
  BEGIN
  SCTX := zh_concat_im(NULL) ;
  RETURN ODCICONST.SUCCESS;
  END;
  MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT zh_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 zh_concat_im,
  RETURNVALUE OUT clob,
  FLAGS IN NUMBER)
  RETURN NUMBER
  IS
  BEGIN
  RETURNVALUE := CURR_STR ;
  RETURN ODCICONST.SUCCESS;
  END;
  MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT zh_concat_im,
  SCTX2 IN zh_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;

create or replace FUNCTION zh_concat(P1 VARCHAR2)
RETURN clob AGGREGATE USING zh_concat_im ;