Sdo_Ordinate_Array

Here is an example to show how to use Sdo_Ordinate_Array. It is a function to cut the first and last coordinates in the old coordinates array(suppose the coordinates are two dimensional).

FUNCTION coor_copy_cut(coor_old MDSYS.Sdo_Ordinate_Array) RETURN MDSYS.Sdo_Ordinate_Array IS
coor_new MDSYS.Sdo_Ordinate_Array;
BEGIN
coor_new:= MDSYS.Sdo_Ordinate_Array();
coor_new.EXTEND(coor_old.COUNT - 4);
FOR i IN 3 .. coor_old.COUNT - 2 LOOP
coor_new(i - 2) := coor_old(i);
END LOOP;
RETURN coor_new;
END;