oracle xe 添加 wm_concat

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;   
/