oracle的concat字符串太长,自定义聚集函数，仿wm_concat，返回clob

在 Oracle 中，可以使用自定义聚合函数来实现类似于 `wm_concat` 的功能，该函数可以将多行字符串按照指定的分隔符拼接成一个 CLOB 类型的字符串，并返回该字符串。

以下是一个示例代码：

CREATE OR REPLACE TYPE t_string_agg AS OBJECT
(
  g_string CLOB,
  STATIC FUNCTION ODCIAggregateInitialize(sctx IN OUT t_string_agg)
    RETURN NUMBER,
  MEMBER FUNCTION ODCIAggregateIterate(self IN OUT t_string_agg,
                                      value IN VARCHAR2)
    RETURN NUMBER,
  MEMBER FUNCTION ODCIAggregateTerminate(self IN t_string_agg,
                                         returnValue OUT CLOB,
                                         flags IN NUMBER)
    RETURN NUMBER,
  MEMBER FUNCTION ODCIAggregateMerge(self IN OUT t_string_agg,
                                     ctx2 IN t_string_agg)
    RETURN NUMBER
);

CREATE OR REPLACE TYPE BODY t_string_agg IS
  STATIC FUNCTION ODCIAggregateInitialize(sctx IN OUT t_string_agg)
    RETURN NUMBER IS
  BEGIN
    sctx := t_string_agg(CLOB(''));
    RETURN ODCIConst.Success;
  END;

  MEMBER FUNCTION ODCIAggregateIterate(self IN OUT t_string_agg,
                                      value IN VARCHAR2)
    RETURN NUMBER IS
  BEGIN
    IF self.g_string IS NULL THEN
      self.g_string := value;
    ELSE
      self.g_string := self.g_string || ', ' || value;
    END IF;
    RETURN ODCIConst.Success;
  END;

  MEMBER FUNCTION ODCIAggregateTerminate(self IN t_string_agg,
                                         returnValue OUT CLOB,
                                         flags IN NUMBER)
    RETURN NUMBER IS
  BEGIN
    returnValue := self.g_string;
    RETURN ODCIConst.Success;
  END;

  MEMBER FUNCTION ODCIAggregateMerge(self IN OUT t_string_agg,
                                     ctx2 IN t_string_agg)
    RETURN NUMBER IS
  BEGIN
    IF self.g_string IS NULL THEN
      self.g_string := ctx2.g_string;
    ELSE
      self.g_string := self.g_string || ', ' || ctx2.g_string;
    END IF;
    RETURN ODCIConst.Success;
  END;
END;

CREATE OR REPLACE FUNCTION string_agg(input VARCHAR2)
  RETURN CLOB
  AGGREGATE USING t_string_agg;

在上述代码中，我们定义了一个 `t_string_agg` 类型，它包含一个 CLOB 类型的字符串和四个成员函数，分别是 `ODCIAggregateInitialize`、`ODCIAggregateIterate`、`ODCIAggregateTerminate` 和 `ODCIAggregateMerge`。这四个函数的作用分别是初始化聚合函数状态、将输入值聚合到状态中、从状态中获取聚合结果并返回、合并两个状态。

然后，我们使用 `AGGREGATE USING` 子句来定义一个名为 `string_agg` 的聚合函数，该函数使用刚刚定义的 `t_string_agg` 类型实现。最后，我们可以像使用内置聚合函数一样使用 `string_agg` 函数来实现字符串拼接功能：

SELECT string_agg(last_name)
FROM employees;

以上示例代码中，我们将 `employees` 表中的所有 `last_name` 字段的值拼接成一个 CLOB 类型的字符串。