自定义oracle字符串聚合函数

自定义oracle字符串聚合函数 STRCAT 三步骤。

（1）定义  STRCAT_TYPE：

create or replace type strcat_type as object (
    cat_string varchar2(5000), 
    max_len    number ,
    too_long   number , 
    static function ODCIAggregateInitialize(cs_ctx In Out strcat_type) return number, 
    member function ODCIAggregateIterate(self In Out strcat_type,value in varchar2) return number, 
    member function ODCIAggregateMerge(self In Out strcat_type,ctx2 In Out strcat_type) return number, 
    member function ODCIAggregateTerminate(self In Out strcat_type,returnValue Out varchar2,flags in number) return number 
) 

（2） STRCAT_TYPE Body：

create or replace type body strcat_type is
  static function ODCIAggregateInitialize(cs_ctx IN OUT strcat_type) return number 
  is 
  begin 
      cs_ctx := strcat_type( cat_string => null, max_len => 4000, too_long => 0 ); 
      return ODCIConst.Success; 
  end; 

  member function ODCIAggregateIterate(self IN OUT strcat_type, 
                                       value IN varchar2 ) 
  return number 
  is 
  begin 
      if ( self.cat_string is null ) or 
         ( self.too_long < 1 and
           instr(self.cat_string||',' , ','||value||',') < 1 )  then         
         if length(self.cat_string) + length(value) > self.max_len then
            self.too_long := 1;
            return ODCIConst.Success; 
         end if;                     
         self.cat_string := self.cat_string || ','|| value;
      end if;    
      
      return ODCIConst.Success; 
  end; 

  member function ODCIAggregateTerminate(self IN Out strcat_type, 
                                         returnValue OUT varchar2, 
                                         flags IN number) 
  return number 
  is 
  begin 
      returnValue := substr(self.cat_string,2); 
      if self.too_long > 0 then 
         returnValue := substr(returnValue,1,self.max_len-3)||'...';
      end if;
      
      return ODCIConst.Success; 
  end; 

  member function ODCIAggregateMerge(self IN OUT strcat_type, 
                                     ctx2 IN Out strcat_type) 
  return number 
  is 
  begin 
      self.cat_string := self.cat_string || ',' || ctx2.cat_string; 
      return ODCIConst.Success; 
  end; 
end; 

（3）定义 STRCAT 函数：

CREATE OR REPLACE FUNCTION strcat(input varchar2 )
RETURN varchar2 
AGGREGATE USING strcat_type;