Oracle存储过程返回数组的方法

会计考友

　oracle 存储过程返回数组的方法：
. _3 ]3 L; z: v% h9 m8 U; F　　1.建立包
　　create or replace package test is
　　TYPE filename_array IS TABLE OF varchar2(1);
　　filename filename_array;
　　end test;
0 j8 w! i% d) ^6 O2 _# o4 h　　2. 建立存储过程
% q1 J, C+ `3 l9 i! ?$ u　　create or replace procedure test_array(v_cfjg out test.filename_array ) is
　　begin DECLARE i number;
　　D_cfjg dic_cfjg%rowTYPE;
　　-- D_nr dic_cfjg%rowTYPE;
8 E  j, N) ]/ A- g) ^& K/ S& Z　　cursor c1 is SELECT * FROM dic_cfjg;
$ Y- R5 p: M6 h2 M8 }% f$ r1 T$ o　　BEGIN
; ~" R, C! h2 G3 D　　i:=0;
　　v_cfjg := test.filename_array(); --数组初始化
  S4 z- e" v8 a　　open c1;
+ x6 `& z) a3 _5 i: c　　LOOP fetch c1 into D_cfjg;
　　EXIT WHEN c1%NOTFOUND ;
　　i:=i+1;
　　v_cfjg.EXTEND;
4 n0 }! ?% G1 y4 _1 ^　　-- DBMS_OUTPUT.PUT_LINE(TO_CHAR(D_cfjg.dm));
: \) u7 t$ l. `. `& Y& b　　v_cfjg(v_cfjg.count):=D_cfjg.dm;
, W% q* k) x& T- a: d　　DBMS_OUTPUT.PUT_LINE(v_cfjg(v_cfjg.count));
　　-- 测试
　　-- FETCH C1 INTO D_cfjg;
　　-- EXIT WHEN c1%NOTFOUND ;
! f% P- Z$ D! h6 s+ f  g" ?; ~　　END LOOP;
4 g% T6 o. ?3 D& P+ y　　end;
) A+ U1 @; [. c  C. v- t6 t2 P　　EXCEPTION
　　WHEN TOO_MANY_ROWS THEN
　　DBMS_OUTPUT.PUT_LINE('TOO_MANY_ROWS');
　　WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE(sqlerrm);
( u9 u$ R, \8 x1 u1 C( Q; k  X* J　　end test_array;