解决 wm_concat函数 长度不够问题

 1 --创建类型
 2 CREATE OR REPLACE TYPE "T_LINK_LOB" AS OBJECT
 3 (
 4   V_LOB CLOB,
 5   STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT NOCOPY T_LINK_LOB)
 6     RETURN NUMBER,
 7   MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF  IN OUT NOCOPY T_LINK_LOB,
 8                                        VALUE IN VARCHAR2) RETURN NUMBER,
 9   MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF        IN T_LINK_LOB,
10                                          RETURNVALUE OUT NOCOPY CLOB,
11                                          FLAGS       IN NUMBER)
12     RETURN NUMBER,
13   MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT NOCOPY T_LINK_LOB,
14                                      CTX2 IN T_LINK_LOB) RETURN NUMBER
15 );
16
17 --创建类型内容
18 CREATE OR REPLACE TYPE BODY T_LINK_LOB IS
19   STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT NOCOPY T_LINK_LOB)
20     RETURN NUMBER IS
21   BEGIN
22     SCTX := T_LINK_LOB(NULL);
23     DBMS_LOB.CREATETEMPORARY(SCTX.V_LOB, TRUE, DBMS_LOB.SESSION);
24     DBMS_LOB.OPEN(SCTX.V_LOB, DBMS_LOB.LOB_READWRITE);
25     RETURN ODCICONST.SUCCESS;
26   END;
27
28   MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF  IN OUT NOCOPY T_LINK_LOB,
29                                        VALUE IN VARCHAR2) RETURN NUMBER IS
30   BEGIN
31     DBMS_LOB.WRITEAPPEND(SELF.V_LOB, LENGTH(VALUE) + 1, VALUE || ‘,‘);
32     RETURN ODCICONST.SUCCESS;
33   END;
34
35   MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF        IN T_LINK_LOB,
36                                          RETURNVALUE OUT NOCOPY CLOB,
37                                          FLAGS       IN NUMBER) RETURN NUMBER IS
38   BEGIN
39     DBMS_LOB.CREATETEMPORARY(RETURNVALUE, TRUE, DBMS_LOB.CALL);
40     DBMS_LOB.COPY(RETURNVALUE,
41                   SELF.V_LOB,
42                   DBMS_LOB.GETLENGTH(SELF.V_LOB) - 1);
43     RETURN ODCICONST.SUCCESS;
44   END;
45
46   MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT NOCOPY T_LINK_LOB,
47                                      CTX2 IN T_LINK_LOB) RETURN NUMBER IS
48   BEGIN
49     NULL;
50     RETURN ODCICONST.SUCCESS;
51   END;
52 END;
53
54 --创建函数
55 CREATE OR REPLACE FUNCTION F_LINK_LOB(P_STR VARCHAR2) RETURN CLOB AGGREGATE USING T_LINK_LOB;
56
57 --调用方式
58 select F_LINK_LOB(d.sid) from pmp_p_info d;