ORACLE 乘积 聚集

/*-------------------------- 实现 乘积聚合 -------------------*/
CREATE OR REPLACE TYPE typ_multiply_impl AS OBJECT
(
    retstr number,      --临时变量
    STATIC FUNCTION ODCIAGGREGATEINITIALIZE(sctx IN OUT typ_multiply_impl) RETURN NUMBER,
    MEMBER FUNCTION ODCIAGGREGATEITERATE(self IN OUT typ_multiply_impl, value IN number) RETURN NUMBER,
    MEMBER FUNCTION ODCIAGGREGATETERMINATE(self IN typ_multiply_impl, returnvalue OUT number, flags IN NUMBER) RETURN NUMBER,
    MEMBER FUNCTION ODCIAGGREGATEMERGE(self IN OUT typ_multiply_impl, ctx2 IN typ_multiply_impl) RETURN NUMBER
)

/*-------------------------- 实现 乘积聚合 -------------------*/
CREATE OR REPLACE TYPE BODY typ_multiply_impl IS
    --自定义聚集函数初始化操作
    STATIC FUNCTION ODCIAGGREGATEINITIALIZE(sctx IN OUT typ_multiply_impl) RETURN NUMBER IS
    BEGIN
        sctx := typ_multiply_impl(1);
        RETURN ODCICONST.SUCCESS;
    END;

    --定义函数的功能，实现相乘
    MEMBER FUNCTION ODCIAGGREGATEITERATE(self IN OUT typ_multiply_impl, value IN number) RETURN NUMBER IS
    BEGIN
        self.retstr:= self.retstr*value;
        RETURN ODCICONST.SUCCESS;
    END;

    --定义终止聚集函数的处理,返回聚集函数处理的结果
    MEMBER FUNCTION ODCIAGGREGATETERMINATE(self IN typ_multiply_impl, returnvalue OUT number, FLAGS IN NUMBER)
    RETURN NUMBER IS
    BEGIN