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;
第二種情況，我們返回的不是表的所有的列，或許只是其中一列或兩列，如： SQL-Code:
復制代碼 代碼如下:
CREATE OR REPLACE PROCEDURE P_TESTA ( PRESULT OUT SYS_REFCURSOR ) AS BEGIN OPEN PRESULT FOR SELECT ID,NAME FROM USERS; END P_TESTA;
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;
