Extracting x,y co-ordinates of SDO_GEOMETRY into two variables say x1, ya

Question

Hi All,
I am able to store the output SDO_GEOMETRY into a variable but i am facing difficulties in extracting ordinates in sdo_geometry to two independent variables say xa, ya. Kindly suggest some solution.
The procedure is as follows:
CREATE OR REPLACE PROCEDURE fnd_2nd_Point
(Input_Fiber_Id IN NUMBER,
xa IN FLOAT,
ya IN FLOAT,
Length_Fiber IN FLOAT,
Result OUT VARCHAR,
xCordInAte OUT FLOAT,
yCordInAte OUT FLOAT)
IS
ProjPoint_a mdsys.sDo_Geometry := NULL;
v_Point_xa FLOAT := NULL;
v_Point_ya FLOAT := NULL;
BEGIN
SELECT sDo_lrs.Project_pt(a.Shape,m.DimInfo,mdsys.Sdo_geometry(2001,8307,NULL,mdsys.Sdo_elem_info_array(1,1,1),
mdsys.Sdo_ordinate_array(xa,ya,Length_Fiber)))
INTO {color:#0000ff}ProjPoint_a
{color}FROM lrs_Access_Fiber a,
User_sDo_geom_MetAdAta m
WHERE m.Table_Name = 'LRS_ACCESS_FIBER'
AND m.Column_Name = 'SHAPE'
AND a.Unique_Id = Input_Fiber_Id;
{color:#0000ff}-- SELECT t.x, t.y INTO v_Point_xa, v_Point_ya FROM TABLE(sDo_util.Getvertices(ProjPoint_a)) t;
{color}
{color:#0000ff}-- dbms_Output.Put_Line('Point Xa is ' ||v_Point_xa||' and point Ya is '||v_Point_ya);
{color}
{color:#0000ff}-- xCordInAte := v_Point_xa;
{color}
{color:#0000ff}-- yCordInAte := v_Point_ya;
{color}
-- Result := 'success';
END;
Kindly advice on the options available to extract the ordinates of sdo_geometry into 2 independent variables.
Regards,
Venkat

Answer 1

Please find the output as below for the following inputs: INPUT_FIBER_ID :=2005; XA := 78.424; YA := 17.643; LENGTH_FIBER :=500;
Point Xa is 78.48686988 and point Ya is 17.61674904
RESULT = success
XCORDINATE = 78.48686988
YCORDINATE = 17.61674904
Is this output correct? Actually, I have to integrate this with UMN MapServer. Kindly advice
Regards
Venkat