Return all the values into cursor

Question

I want to return collection of varray using sys_refcursor. but it is returning only last record. I am wondering how I can return all the four records into result sys_refcursor.
The following is not returning all the four records under SP.
resultData OUT sys_refcursor
for i in 1..4
loop
OPEN result FOR
Select sdo_util.to_wkbgeometry
(sdo_geometry(2002, 2958, Null,
Mdsys.Sdo_Elem_Info_Array(1,2,1),
arr_result123(i)
)) as geometry
FROM dual c;
end loop;
Thanks
Al

Answer 1

I have removed the for loop but no luck. I am posting my whole procedure.
Can you please let me know what i am missing!..........urgent please.
PROCEDURE SP_Lines
mlatlon IN Varchar2,
resultData OUT sys_refcursor
) As
plat Varchar2(256);
plon Varchar2(256);
lPosition number;
lcounter number;
newlat number;
newlon number;
-- to draw lines
geometry1 mdsys.sdo_geometry;
geometry2 mdsys.sdo_geometry;
begin
Begin
arr_result123 := arr_result(
mdsys.sdo_ordinate_array(-79.7198833241796,43.7437243394591,-79.7170360355377,43.7503404513126),
mdsys.sdo_ordinate_array(-79.618833241796,43.5437243394591,-79.7170360355377,43.7503404513126),
mdsys.sdo_ordinate_array(-79.4198833241796,43.3437243394591,-79.7170360355377,43.7503404513126),
mdsys.sdo_ordinate_array(-79.1198833241796,43.1437243394591,-79.7170360355377,43.7503404513126),
mdsys.sdo_ordinate_array(-79.0198833241796,43.0437243394591,-79.7170360355377,43.7503404513126),
mdsys.sdo_ordinate_array(-79.7198833241796,43.007243394591,-79.7170360355377,43.7503404513126),
mdsys.sdo_ordinate_array(-79.7198833241796,43.7437243394591,-79.7170360355377,43.7503404513126),
mdsys.sdo_ordinate_array(-79.7198833241796,43.7437243394591,-79.7170360355377,43.7503404513126) );
lPosition := Instr(mlatlon, '_');
plat := Substr(mlatlon, 1, lPosition-1);
plon := Substr(mlatlon, lPosition+1, length(mlatlon) );
lcounter :=1;
--get 4 nearest points
for rec in (
Select sdo_cs.transform(c.geometry,4326) as geometry
FROM Ac c
where SDO_NN(c.GEOMETRY,
(sdo_geometry(2001, 4326, sdo_point_type(plon, plat, null), null, null) )
, 'sdo_batch_size =5')='TRUE'
AND ROWNUM <= 4
loop
newlat := get_ordinate(rec.geometry, 2);
newlon := get_ordinate(rec.geometry, 1);
-- ~~ building geometries ~~
geometry1 := sdo_geometry(2002, 4326, sdo_point_type(newlon, newlat, null), null, null);
geometry2 := sdo_geometry(2002, 4326, sdo_point_type(plon, plat, null), null, null);
arr_result123(lcounter) := GET_LINE_ORDINATE(geometry1, geometry2);
lcounter:=lcounter+1;
end loop;
end if;
lcounter:=1;
OPEN resultData FOR
Select sdo_util.to_wkbgeometry
(sdo_geometry(2002, 2958, Null,
Mdsys.Sdo_Elem_Info_Array(1,2,1),
arr_result123(lcounter)
)) as geometry
FROM dual c, (select level lcounter from dual connect by level <=2);
END;
end SP_Lines;