DB<>Fiddle：自定義類型和函式 (ORA-24344)

我製作了Oracle 的 GetVertices() 函式的自定義版本。該解決方案涉及創建使用者定義的類型和函式。

這是程式碼（工作）：

CREATE TYPE vertex_type_cust AS object
(
 x  NUMBER,
 y  NUMBER,
 z  NUMBER,
 w  NUMBER,
 id NUMBER );

CREATE TYPE vertex_set_type_cust AS TABLE OF vertex_type_cust;

CREATE OR replace FUNCTION getvertices_cust(geometry mdsys.sdo_geometry)
 RETURN vertex_set_type_cust
IS
 i      NUMBER;
 dims   NUMBER;
 coords NUMBER;
 result vertex_set_type_cust;
 dim mdsys.sdo_dim_array;
 is_zero BOOLEAN;
 etype   NUMBER;
BEGIN
 result := vertex_set_type_cust();
 -- handle the POINT case here
 IF (geometry.sdo_ordinates IS NULL) THEN
   result.extend;
   result(1) := vertex_type_cust(geometry.sdo_point.x, geometry.sdo_point.y, geometry.sdo_point.z,NULL,1);
   RETURN result;
 END IF;
 -- all other cases here
 coords := geometry.sdo_ordinates.count;
 dims := geometry.get_dims;
 IF (dims = 0) THEN
   RETURN result;
 END IF;
 coords := coords/dims;
 FOR i          IN 0 .. coords-1
 LOOP
   result.extend;
   IF (dims = 2) THEN
     result(i+1) := vertex_type_cust(geometry.sdo_ordinates(2*i+1), geometry.sdo_ordinates(2*i+2), NULL,NULL,i+1);
   ELSIF (dims = 3) THEN
     result(i+1) := vertex_type_cust(geometry.sdo_ordinates(3*i+1), geometry.sdo_ordinates(3*i+2), geometry.sdo_ordinates(3*i+3) ,NULL,i+1);
   ELSIF (dims = 4) THEN
     result(i+1) := vertex_type_cust(geometry.sdo_ordinates(4*i+1), geometry.sdo_ordinates(4*i+2), geometry.sdo_ordinates(4*i+3), geometry.sdo_ordinates(4*i+4), i+1);
   END IF;
 END LOOP;
 RETURN result;
END;

---

測試數據：

create table a_sdo_geometry_tbl (line_id integer, shape mdsys.sdo_geometry);

insert into a_sdo_geometry_tbl (line_id, shape) 
values (1, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1), 
   sdo_ordinate_array (671539.6852734378,4863324.181436138, 671595.0500703361,4863343.166556185, 671614.013553706,4863350.343483042, 671622.2044153381,4863353.525396131))  );

insert into a_sdo_geometry_tbl (line_id, shape) 
values (2, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1), 
   sdo_ordinate_array (71534.5567096211,4863119.991809748, 671640.7384688659,4863157.132745253, 671684.8621150404,4863172.022995591))  );

insert into a_sdo_geometry_tbl (line_id, shape) 
values (3, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1), 
   sdo_ordinate_array (671622.2044153381,4863353.525396131, 671633.3267164109,4863357.846229106, 671904.0614077691,4863451.286166754))  );

insert into a_sdo_geometry_tbl (line_id, shape) 
values (4, sdo_geometry (2002, null, null, sdo_elem_info_array (1,2,1), 
   sdo_ordinate_array (671684.8620521119,4863172.022995591, 671892.1496144319,4863244.141440067, 671951.2156571196,4863264.824310392, 671957.4471461186,4863266.847617676, 671966.8243856924,4863269.146632658))  )

select
   a.line_id,
   b.id as vertex_id,
   b.x, 
   b.y
from
   a_sdo_geometry_tbl a
cross join
   table(getvertices_cust(a.shape)) b            --<<-- the query uses the custom function
order by 
   a.line_id, b.id;

---

問題：

我正在使用線上 Oracle 環境測試此解決方案，因為我在公司的 Oracle 數據庫中沒有 CREATE TYPE 權限。

當我在 Oracle 的免費測試環境 (19c) 中執行上面的程式碼時，我可以讓它工作：

• https://livesql.oracle.com/
• 創建功能：截圖
• 使用函式查詢：截圖

但是，當我嘗試使用db<>fiddle執行程式碼時，在創建函式時出現錯誤：

• db<>fiddle session (18c)
• ORA-24344: success with compilation error

---

問題：

使用 db<>fiddle 創建自定義函式時，如何避免出現該錯誤？

我知道 Oracle Live 和 db<>fiddle（19c 與 18c）之間存在版本差異。但如果這是問題所在，我會感到驚訝。這對我來說似乎不是版本問題。

/在函式定義之後添加一個。

https://dbfiddle.uk/?rdbms=oracle_18&fiddle=4031e203694674dbc764b5290dd93bdb

引用自：https://dba.stackexchange.com/questions/300183