CREATE OR REPLACE TYPE firstval AS OBJECT (
   intcounter    NUMBER,
   strfirstval   VARCHAR2 (51),
   STATIC FUNCTION odciaggregateinitialize (actx IN OUT firstval)
      RETURN NUMBER,
   MEMBER FUNCTION odciaggregateiterate (SELF IN OUT firstval, val IN VARCHAR2)
      RETURN NUMBER,
   MEMBER FUNCTION odciaggregateterminate (
      SELF          IN       firstval,
      returnvalue   OUT      VARCHAR2,
      flags         IN       NUMBER
   )
      RETURN NUMBER,
   MEMBER FUNCTION odciaggregatemerge (SELF IN OUT firstval, ctx2 IN firstval)
      RETURN NUMBER
);
/

CREATE OR REPLACE TYPE BODY firstval
AS
   STATIC FUNCTION odciaggregateinitialize (actx IN OUT firstval)
      RETURN NUMBER
   IS
   BEGIN
      --   DBMS_OUTPUT.put_line ('Value located');
      actx := firstval (0, '');
      RETURN odciconst.success;
   END;
   MEMBER FUNCTION odciaggregateiterate (SELF IN OUT firstval, val IN VARCHAR2)
      RETURN NUMBER
   IS
   BEGIN
 --     DBMS_OUTPUT.put_line ('Iterate ' || TO_CHAR (val));
      IF intcounter = 0
      THEN
         strfirstval := val;
      END IF;
	  intCounter := intCounter + 1;

      RETURN odciconst.success;
   END;
   MEMBER FUNCTION odciaggregateterminate (
      SELF          IN       firstval,
      returnvalue   OUT      VARCHAR2,
      flags         IN       NUMBER
   )
      RETURN NUMBER
   IS
   BEGIN
      returnvalue := SELF.strfirstval;
      RETURN odciconst.success;
   END;

   MEMBER FUNCTION odciaggregatemerge (SELF IN OUT firstval, ctx2 IN firstval)
      RETURN NUMBER
   IS
   BEGIN
--      DBMS_OUTPUT.put_line ('Code was present in merge');
      IF SELF.strfirstval = ''
      THEN
         SELF.strfirstval := ctx2.strfirstval;
      END IF;

      RETURN odciconst.success;
   END;
END;
/

CREATE OR REPLACE FUNCTION FIRST (x VARCHAR2)
   RETURN VARCHAR2
PARALLEL_ENABLE
AGGREGATE
   USING firstval;