如何将自定义Oracle聚合函数MY_AGGR_FN放入MY_PKG包中？

Oracle的自定义聚合函数依赖于实现ODCIAggregate接口的对象类型，而包内函数无法直接使用AGGREGATE USING子句绑定该类型，这就是你无法直接将原聚合函数定义移入包体的核心原因。以下是可行的解决步骤：

核心思路 #

保留已实现的自定义类型MY_AGGR_TYPE和顶层聚合函数，在包内通过包装调用的方式暴露聚合功能，而非在包体内重新定义聚合逻辑。

具体实现步骤 #

1. 确认自定义类型和顶层聚合函数已正确创建 #

假设你已完成以下代码（若未完成需先实现）：

-- 自定义聚合类型（实现ODCIAggregate接口）
CREATE OR REPLACE TYPE MY_AGGR_TYPE AS OBJECT (
  total NUMBER,
  STATIC FUNCTION ODCIAggregateInitialize(sctx IN OUT MY_AGGR_TYPE) RETURN NUMBER,
  MEMBER FUNCTION ODCIAggregateIterate(self IN OUT MY_AGGR_TYPE, value IN NUMBER) RETURN NUMBER,
  MEMBER FUNCTION ODCIAggregateMerge(self IN OUT MY_AGGR_TYPE, ctx2 IN MY_AGGR_TYPE) RETURN NUMBER,
  MEMBER FUNCTION ODCIAggregateTerminate(self IN MY_AGGR_TYPE, returnValue OUT NUMBER, flags IN NUMBER) RETURN NUMBER
);
/

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

  MEMBER FUNCTION ODCIAggregateIterate(self IN OUT MY_AGGR_TYPE, value IN NUMBER) RETURN NUMBER IS
  BEGIN
    self.total := self.total + value;
    RETURN ODCIConst.Success;
  END;

  MEMBER FUNCTION ODCIAggregateMerge(self IN OUT MY_AGGR_TYPE, ctx2 IN MY_AGGR_TYPE) RETURN NUMBER IS
  BEGIN
    self.total := self.total + ctx2.total;
    RETURN ODCIConst.Success;
  END;

  MEMBER FUNCTION ODCIAggregateTerminate(self IN MY_AGGR_TYPE, returnValue OUT NUMBER, flags IN NUMBER) RETURN NUMBER IS
  BEGIN
    returnValue := self.total;
    RETURN ODCIConst.Success;
  END;
END;
/

-- 顶层聚合函数（绑定到自定义类型）
CREATE OR REPLACE FUNCTION MY_AGGR_FN(input NUMBER) RETURN NUMBER
PARALLEL_ENABLE AGGREGATE USING MY_AGGR_TYPE;
/

2. 编写包声明和包体 #

包声明只需声明函数签名，包体则直接调用顶层聚合函数：

-- 包声明
CREATE OR REPLACE PACKAGE MY_PKG IS
  FUNCTION MY_AGGR_FN(input NUMBER) RETURN NUMBER;
END MY_PKG;
/

-- 包体
CREATE OR REPLACE PACKAGE BODY MY_PKG IS
  FUNCTION MY_AGGR_FN(input NUMBER) RETURN NUMBER IS
  BEGIN
    -- 直接调用顶层的聚合函数
    RETURN MY_AGGR_FN(input);
  END;
END MY_PKG;
/

注意事项 #

• 确保包的所有者拥有调用顶层聚合函数的权限，若不想暴露顶层函数，可将其设置为私有（仅包所有者可访问）。
• 若需要修改聚合逻辑，只需调整MY_AGGR_TYPE的类型体，包内的包装函数无需改动。

内容的提问来源于stack exchange，提问作者sbrbot