索引表的使用

create or replace package testref as

  type t_temp is table of varchar2(30) index by binary_integer;
  type t_num is table of varchar2(2);
 
  --v_temp is ref t_temp;
  function test return t_temp;
  procedure callt_temp;
end testref;

create or replace package body testref as
  function test return t_temp as
  v_temp1 t_temp;
  begin
    v_temp1(1) := 'shu';
    v_temp1(2) := 'jian';
    v_temp1(3) := 'bo';
    return v_temp1;
  end test;
 
  procedure callt_temp as
    v_aa t_temp;
    v_num t_num := t_num('1','2','3','4','5','6','7','8','9');
  begin
    v_aa := test();
    for i in 1..v_aa.count
    loop
      dbms_output.put_line(v_aa(i));   
    end loop;
    for i in 1..v_num.count
    loop
      dbms_output.put_line(v_num(i));
    end loop;
  end callt_temp;
end testref;