How to fetch geometry of values

Question

How to fetch geometry of values,
I wanted to fetch the 4th positioned n 5th positioned values from the
SDO_ORDINATE_ARRAY and one unique Column ID,
sample data for the same follows
SQL> desc TEST
Name Null? Type
GEOMETRY MDSYS.SDO_GEOMETRY
ID NUMBER
SQL> select id, geometry from test
where rownum<7
TEST GEOMETRY(SDO_GTYPE, SDO_SRID, SDO_POINT(X, Y, Z), SDO_ELEM_INFO, SDO_ORDINATES)
1 SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(0, 1, 0, 408551.27, 2925997.25))
2 SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(.011493516, -.99993395, 0, 408442.69, 2925997.45))
3 SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(-.02636329, .999652428, 0, 408551.45, 2926096.46))
4 SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(0, 1, 0, 408551.77, 2926212.98))
5 SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(0, 1, 0, 408552.01, 2926314.81))
6 SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(1, 0, 0, 408470.67, 2926137.08))
6 rows selected.
SQL>
another table TESTZ is created to insert the fetched values from TEST
table
SQL> desc TESTZ
Name Null? Type
TEST NUMBER
ES NUMBER
NR NUMBER
The following pl/sql program is used for fetching the required data
DECLARE
CURSOR p_cur
IS
select id,geometry from test order by rownum ;
es number;
nr number;
locus mdsys.sdo_geometry;
BEGIN
for i in p_cur
loop
locus := i.geometry ;
es:=locus.sdo_ordinates(4);
nr:=locus.sdo_ordinates(5);
insert into testz values(i.idz,es,nr);
end loop;
END;
ERROR at line 1:
ORA-06533: Subscript beyond count
ORA-06512: at line 20
the same Script is working well for other data sets But its giving the
following Errror for the ABOVE
data set, the test table got 90,000 records
please Suggest me the required Solution to fecth the 4th and 5th
postioned values from SDO_ORDINATE_ARRAY ;
Many thanks
ZameeR

Answer 1

As I said in another posting (this is a cross-post):
drop table test;
create table test (id integer, geometry mdsys.sdo_geometry);
insert into test ( id, geometry ) values (
1,SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(0, 1, 0, 408551.27, 2925997.25)));
insert into test ( id, geometry ) values (
2,SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(.011493516, -.99993395, 0, 408442.69, 2925997.45)));
insert into test ( id, geometry ) values (
3,SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(-.02636329, .999652428, 0, 408551.45, 2926096.46)));
insert into test ( id, geometry ) values (
4,SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(0, 1, 0, 408551.77, 2926212.98)));
insert into test ( id, geometry ) values (
5,SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(0, 1, 0, 408552.01, 2926314.81)));
insert into test ( id, geometry ) values (
6,SDO_GEOMETRY(2001, NULL, NULL, SDO_ELEM_INFO_ARRAY(1, 0, 6000, 4, 1, 1), SDO_ORDINATE_ARRAY(1, 0, 0, 408470.67, 2926137.08)));
commit;
select a0.id, c.column_value, e.column_value
from test a0,
      (select b1.id, mod(rownum,5) rown, b2.*
         from test b1,
              table(b1.geometry.sdo_ordinates) b2
      ) c,
      (select d1.id, mod(rownum,5) rown, d2.*
         from test d1,
              table(d1.geometry.sdo_ordinates) d2
      ) e
where ( c.id = a0.id and c.rown = 4 )
  and ( e.id = a0.id and e.rown = 0 )
/Requires no external functions or packages.
regards
Simon