oracle odciaggregateiterate,oracle StringAgg函数

CREATE OR REPLACE TYPE t_string_agg ASOBJECT

(

g_string  VARCHAR2(32767),

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 VARCHAR2,

flags        IN   NUMBER)

RETURN NUMBER,

MEMBER FUNCTION ODCIAggregateMerge(self IN OUT  t_string_agg,

ctx2  IN     t_string_agg)

RETURN NUMBER

);

/

SHOW ERRORS

CREATE OR REPLACE TYPE BODY t_string_aggIS

STATIC FUNCTION ODCIAggregateInitialize(sctx  IN OUT t_string_agg)

RETURN NUMBER IS

BEGIN

sctx := t_string_agg(NULL);

RETURN ODCIConst.Success;

END;

MEMBER FUNCTION ODCIAggregateIterate(self   IN OUT t_string_agg,

value  IN      VARCHAR2 )

RETURN NUMBER IS

BEGIN

SELF.g_string := self.g_string || ',' || value;

RETURN ODCIConst.Success;

END;

MEMBER FUNCTION ODCIAggregateTerminate(self         IN  t_string_agg,

returnValue  OUT  VARCHAR2,

flags        IN  NUMBER)

RETURN NUMBER IS

BEGIN

returnValue := RTRIM(LTRIM(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

SELF.g_string := SELF.g_string || ',' || ctx2.g_string;

RETURN ODCIConst.Success;

END;

END;

/

SHOW ERRORS

CREATE OR REPLACE FUNCTION string_agg(p_input VARCHAR2)

RETURN VARCHAR2

PARALLEL_ENABLE AGGREGATE USINGt_string_agg;

/

SHOW ERRORS