一、背景

在數據開發中，有時你需要合并兩個動態游標sys_refcursor。

開發一個存儲過程PROC_A,這個過程業務邏輯相當復雜，代碼篇幅較長。一段時間后要開發一個PROC_B,要用PROC_A同樣的邏輯,而且在這個過程中，還要循環調用PROC_A這個過程。擺在你面前的有兩個選擇。

• 打開PL/SQL,仔細的讀PROC_A這個過程，一直到明白了所有的邏輯，然后在自己的過程中重寫這個邏輯 。
• 直接復制PROC_A這個過的代碼過來，多寫極端。還是業界標準大法好
• 針對循環調用的，建立一個臨時表，循環插入數據到臨時表（但這里還有一個問題，每次返回的游標可能列都不相同，建立臨時表就顯得復雜了）

好吧，這個新的過程是完成了，可是看上去，它更復雜了，代碼量更大了。完全不能接受，必須改改！
這時，已經默默打開了ORACLE官方幫助文檔 https://docs.oracle.com/cd/B19306_01/index.htm，尋找一個可行的辦法，最終目標標是要解析，整合，合并 游標 sys_refcursor

二、思路

經過搜索查詢，找到以下可行的方案

1. 序列化sys_refcursor為xml文檔,ORACLE對xml支持還不錯，12C已經有JSON格式了
2. 使用ORACLE xml解析的方法，對序列化的xml文檔，添加、刪除、修改
3. 轉換為內存表，通過游標返回查詢的結果

為此你需要掌握的知識有

• 使用 Dbms_Lob 個package操作clob類型數據，因為解析后的游標可能用varchar2是裝不下的，幫助地址 https://docs.oracle.com/cd/E11882_01/timesten.112/e21645/d_lob.htm#TTPLP600。
• 重點掌握Oracle類型xmltype如何使用 https://docs.oracle.com/cd/B19306_01/appdev.102/b14258/t_xml.htm#BABHCHHJ

三、實現

從上邊的幫助文檔中，知道xmltype的構造函數中可以直接傳入游標xmltype(refcursor)從而得到一個xmltype，調用xmltype的getClobVal方法，可得到序列化的結果，所以它的結構是這樣的

?xml version="1.0"?>
ROWSET>
ROW>
COLUMNNAME1>/COLUMNNAME1>
COLUMNNAME2>/COLUMNNAME2>
...>.../...>
/ROW>
....
/ROWSET>

所以，如果需要合并兩個數據列相同游標，只需要提取DOM中的ROW節點數據保存到定義的clob字段中去。

提取dom中片段，采用標準的xpath語法，/ROWSET/ROW這里提取ROW信息

Declare
x xmltype;
rowxml clob;
mergeXml clob;
ref_cur Sys_Refcursor;
ref_cur2 Sys_Refcursor;
ref_cur3 Sys_Refcursor;
begin
 open ref_cur for
 select F_USERNAME, F_USERCODE, F_USERID
 from Tb_System_User
 where F_userid = 1;
 Dbms_Lob.createtemporary(mergeXml, true);
 Dbms_Lob.writeappend(mergeXml, 8, 'ROWSET>');
 x := xmltype(ref_cur);
 Dbms_Output.put_line('=====完整的REFCURSOR結構=====');
 Dbms_Output.put_line(x.getClobVal());
 Dbms_Output.put_line('=====只提取行信息=====');
 rowxml := x.extract('/ROWSET/ROW').getClobVal(0, 0);
 Dbms_Output.put_line(rowxml);
 Dbms_Lob.append(mergeXml, rowxml);ROWSET
 open ref_cur2 for
 select F_USERNAME, F_USERCODE, F_USERID
 from Tb_System_User
 where F_userid = 1000;
 x := xmltype(ref_cur2);
 rowxml := x.extract('/ROWSET/ROW').getClobVal(0, 0);
 Dbms_Lob.append(mergeXml, rowxml);
 Dbms_Lob.writeappend(mergeXml, 9, '/ROWSET>');
 Dbms_Output.put_line('=====合并后的信息=====');
 Dbms_Output.put_line(mergeXml);
end;

 執行這段代碼輸出的結果是這樣的

=====完整的REFCURSOR結構=====
?xml version="1.0"?>
ROWSET>
ROW>
F_USERNAME>系統管理員/F_USERNAME>
F_USERCODE>admin/F_USERCODE>
F_USERID>1/F_USERID>
/ROW>
/ROWSET>

=====只提取行信息=====
ROW>
F_USERNAME>系統管理員/F_USERNAME>
F_USERCODE>admin/F_USERCODE>
F_USERID>1/F_USERID>
/ROW>

=====合并后的信息=====
ROWSET>ROW>
F_USERNAME>系統管理員/F_USERNAME>
F_USERCODE>admin/F_USERCODE>
F_USERID>1/F_USERID>
/ROW>
ROW>
F_USERNAME>黃燕/F_USERNAME>
F_USERCODE>HUANGYAN/F_USERCODE>
F_USERID>1000/F_USERID>
/ROW>
/ROWSET>

 從上邊打印的結果看，我們已經成功的將兩個游標 ref_cur和ref_cur2中我們需要的列信息合并到了一個xml文檔中。那么接下了，我們就需要通過解析這個xml并返回一個新的sys_refcursor,這里你有必要了解以下oracle xmltable的用法(https://docs.oracle.com/cd/B19306_01/server.102/b14200/functions228.htm)接上邊代碼

Dbms_Output.put_line(mergeXml);
open ref_cur3 for
 select *
 from xmltable('/ROWSET/ROW' Passing xmltype(mergeXml) Columns
  F_USERNAME varchar2(100) path 'F_USERNAME',
  F_USERCODE varchar2(100) path 'F_USERCODE');

簡單說明下xmltable構造函數

• 聲明xpath，指明你需要解析的dom在哪里，比如從根找到ROW /ROWSET/ROW
• 指明你要查詢的xmltype
• 定義轉換列，比如把ROW下邊的F_USERNAME這個節點值，映射到游標列F_USERNAME 這個列中

附：sys_refcursor 和 cursor 優缺點比較

優點比較

優點一：sys_refcursor，可以在存儲過程中作為參數返回一個table格式的結構集（我把他認為是table類型，容易理解，其實是一個游標集）， cursor 只能用在存儲過程，函數，包等的實現體中，不能做參數使用。

優點二：sys_refcursor 這東西可以使用在包中做參數，進行數據庫面向對象開放。哈哈。我喜歡。cursor就不能。

缺點比較：

缺點：sys_refcursor 不能用open，close ，fetch 進行操作。不好學，難理解。

cursor可以用 open，close ，fetch操作，容易學，易懂

四、總結

xml作為早期數據傳輸，序列化和反序列化的文件格式，在oracle中也有良好的支持。所以，對于基于語言之上的知識，各個語言實現方式基本相識。基礎終究是重要的。

好了，以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，如果有疑問大家可以留言交流，謝謝大家對腳本之家的支持。