Oracle存儲過程返回數組的方法

　　oracle 存儲過程返回數組的方法

　　建立包

　　
　　create or replace package test is
　　TYPE filename_array IS TABLE OF varchar();
　　filename filename_array;
　　end test;

　　 建立存儲過程

　　
　　create or replace procedure test_array(v_cfjg out testfilename_array ) is
　　begin DECLARE i number;
　　D_cfjg dic_cfjg%rowTYPE;
　　 D_nr dic_cfjg%rowTYPE;
　　cursor c is SELECT * FROM dic_cfjg;
　　BEGIN
　　i:=;
　　v_cfjg := testfilename_array(); 數組初始化
　　open c;
　　LOOP fetch c into D_cfjg;
　　EXIT WHEN c%NOTFOUND ;
　　i:=i+;
　　v_cfjgEXTEND;
　　 DBMS_OUTPUTPUT_LINE(TO_CHAR(D_cfjgdm));
　　v_cfjg(unt):=D_cfjgdm;
　　DBMS_OUTPUTPUT_LINE(v_cfjg(unt));
　　 測試
　　 FETCH C INTO D_cfjg;
　　 EXIT WHEN c%NOTFOUND ;
　　END LOOP;
　　end;
　　EXCEPTION
　　WHEN TOO_MANY_ROWS THEN
　　DBMS_OUTPUTPUT_LINE(TOO_MANY_ROWS);
　　WHEN OTHERS THEN DBMS_OUTPUTPUT_LINE(sqlerrm);
　　end test_array;

From:http://tw.wingwit.com/Article/program/Oracle/201311/18265.html