第一種情況是返回的遊標是某個具體的表或檢視的資料，如

CREATE OR REPLACE PROCEDURE P_TESTA ( 
PRESULT OUT SYS_REFCURSOR 
) 
AS 
BEGIN 
OPEN PRESULT FOR SELECT * FROM USERS; 
END P_TESTA;

其中USERS就是資料庫中一個表。在呼叫的時候只要宣告一個該表的ROWTYPE型別就可以了：

CREATE OR REPLACE PROCEDURE P_TESTB 
AS 
VARCURSOR SYS_REFCURSOR; 
R USERS%ROWTYPE; 
BEGIN
 
 
P_TESTA(VARCURSOR); 
LOOP 
FETCH VARCURSOR INTO R; 
EXIT WHEN VARCURSOR%NOTFOUND; 
DBMS_OUTPUT.PUT_LINE(R.NAME); 
END LOOP; 
END P_TESTB;

第二種情況，我們返回的不是表的所有的列，或許只是其中一列或兩列，如：

CREATE OR REPLACE PROCEDURE P_TESTA ( 
PRESULT OUT SYS_REFCURSOR 
) 
AS 
BEGIN 
OPEN PRESULT FOR SELECT ID,NAME FROM USERS
 
; 
END P_TESTA;

這裡我們只返回了USERS表的ID,NAME這兩個列，那麼呼叫的時候也必須做相應的修改：

CREATE OR REPLACE PROCEDURE P_TESTB 
AS 
VARCURSOR SYS_REFCURSOR; 
CURSOR TMPCURSOR IS SELECT ID,NAME FROM USERS WHERE ROWNUM=1; 
R TMPCURSOR%ROWTYPE; 
BEGIN 
P_TESTA(VARCURSOR); 
LOOP 
FETCH VARCURSOR INTO R; 
EXIT WHEN VARCURSOR%NOTFOUND; 
DBMS_OUTPUT.PUT_LINE(R.ID); 
END
 
 LOOP; 
END P_TESTB;

與之前不同的是我們聲明瞭一個遊標型別的變數TMPCURSOR ，注意TMPCURSOR 的結構必須與儲存過程P_TESTA 返回的遊標結構一致，否則就會出現錯誤。同理只要保持兩個遊標型別結構一致，就可以實現自由呼叫。

原文連結：http://www.jb51.net/article/20160.htm