TYPE BODY: MDSYS.ST_ANNOTATIONTEXTELEMENT_ARRAY

Source

1 TYPE BODY ST_ANNOTATIONTEXTELEMENT_ARRAY IS
2  MEMBER FUNCTION ElementN ( aposition INTEGER)
3     RETURN ST_ANNOTATIONTEXTELEMENT IS
4  BEGIN
5    IF (aposition > SELF.PRIVATEARRAY.count) THEN
6         RETURN NULL;
7    END IF;
8    RETURN SELF.PRIVATEARRAY(aposition);
9  END;
10 
11  MEMBER FUNCTION ElementN (element ST_ANNOTATIONTEXTELEMENT, aposition INTEGER)
12     RETURN ST_ANNOTATIONTEXTELEMENT_ARRAY IS
13   tarray ST_ANNOT_TEXTELEMENT_ARRAY;
14  BEGIN
15    tarray := SELF.PRIVATEARRAY;
16    IF (aposition > SELF.PRIVATEARRAY.count) THEN
17         RETURN NULL;
18    END IF;
19    tarray(aposition) := element;
20    RETURN ST_ANNOTATIONTEXTELEMENT_ARRAY(tarray);
21  END;
22 END;