orcale 函数wm_concat不存咋lob值使用zh_concat 替换

1. create or replace TYPE zh_concat_im
2. AUTHID CURRENT_USER AS OBJECT
3. (
4. CURR_STR VARCHAR2(32767),
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 VARCHAR2,
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. P1 IN VARCHAR2)
27. RETURN NUMBER
28. IS
29. BEGIN
30. IF(CURR_STR IS NOT NULL) THEN
31. CURR_STR := CURR_STR || <span style="color:#ff0000;">','</span> || P1;
32. ELSE
33. CURR_STR := P1;
34. END IF;
35. RETURN ODCICONST.SUCCESS;
36. END;
37. MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN zh_concat_im,
38. RETURNVALUE OUT VARCHAR2,
39. FLAGS IN NUMBER)
40. RETURN NUMBER
41. IS
42. BEGIN
43. RETURNVALUE := CURR_STR ;
44. RETURN ODCICONST.SUCCESS;
45. END;
46. MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT zh_concat_im,
47. SCTX2 IN zh_concat_im)
48. RETURN NUMBER
49. IS
50. BEGIN
51. IF(SCTX2.CURR_STR IS NOT NULL) THEN
52. SELF.CURR_STR := SELF.CURR_STR || <span style="color:#ff0000;">','</span> || SCTX2.CURR_STR ;
53. END IF;
54. RETURN ODCICONST.SUCCESS;
55. END;
56. END;
57. /
58. create or replace FUNCTION zh_concat(P1 VARCHAR2)
59. RETURN VARCHAR2 AGGREGATE USING zh_concat_im ;