create or replace TYPE BODY en_concat_im ISSTATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT en_concat_im)RETURN NUMBER ISBEGINSCTX := en_concat_im(NULL);RETURN ODCICONST.SUCCESS;END;MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT en_concat_im,P1 IN VARCHAR2) RETURN NUMBER ISBEGINIF (CURR_STR IS NOT NULL) THENCURR_STR := CURR_STR || ';' || P1;ELSECURR_STR := P1;END IF;RETURN ODCICONST.SUCCESS;END;MEMBER FUNCTION ODCIAGGREGATETERMINATE(SELF IN en_concat_im,RETURNVALUE OUT VARCHAR2,FLAGS IN NUMBER)RETURN NUMBER ISBEGINRETURNVALUE := CURR_STR;RETURN ODCICONST.SUCCESS;END;MEMBER FUNCTION ODCIAGGREGATEMERGE(SELF IN OUT en_concat_im,SCTX2 IN en_concat_im) RETURN NUMBER ISBEGINIF (SCTX2.CURR_STR IS NOT NULL) THENSELF.CURR_STR := SELF.CURR_STR || ';' || SCTX2.CURR_STR;END IF;RETURN ODCICONST.SUCCESS;END;END;create or replace FUNCTION en_concat(P1 VARCHAR2) RETURN VARCHAR2 AGGREGATE USING en_concat_im ;create or replace TYPE en_concat_im AUTHID CURRENT_USER AS OBJECT(CURR_STR VARCHAR2(32767),STATIC FUNCTION ODCIAGGREGATEINITIALIZE(SCTX IN OUT en_concat_im)RETURN NUMBER,MEMBER FUNCTION ODCIAGGREGATEITERATE(SELF IN OUT en_concat_im,P1 IN VARCHAR2) RETURN NUMBER,