OUT SYS_REFCURSOR 參數使用

--將結果打印到屏幕開關
set serveroutput on

--定義OUT SYS_REFCURSOR類型參數存儲過程
CREATE OR REPLACE PROCEDURE exectltable (
    ctl_out OUT SYS_REFCURSOR
) IS
BEGIN
    OPEN ctl_out FOR 
    SELECT * FROM ctl;
END exectltable;

--調用OUT SYS_REFCURSOR類型參數存儲過程結果輸出
DECLARE
    ctl_out   SYS_REFCURSOR;   --使用系統預定義的sys_refcursor
    cemp      ctl%rowtype;
BEGIN
    exectltable(ctl_out);
    LOOP
        FETCH ctl_out INTO cemp;
        EXIT WHEN ctl_out%notfound;   --游標一條一條地遍歷記錄，當找不到記錄時退出
        dbms_output.put_line(cemp.aa||' '||cemp.bb||' '||cemp.cc);
    END LOOP;
    CLOSE ctl_out;
END;