存储过程中的数组

1.存储过程中如何自定义一个数组，下面这个是最优的
1.1直接调用
DECLARE
  TYPE months_varray IS VARRAY(12) OF STRING(9 CHAR);
  arr MONTHS_VARRAY :=
    months_varray('January','February','March'
                 ,'April','May','June'
                 ,'July','August','September'
                 ,'October','November','December');
  TYPE calendar_table IS TABLE OF VARCHAR2(9 CHAR) INDEX BY BINARY_INTEGER;
  calendar CALENDAR_TABLE;


begin
for i in arr.first..arr.last loop
     DBMS_OUTPUT.PUT_LINE(arr(i));
     calendar(i):=arr(i);
end loop;

  DBMS_OUTPUT.PUT_LINE('==========');
  for i in calendar.first..calendar.last loop
     DBMS_OUTPUT.PUT_LINE(calendar(i));
  end loop;
end;

1.2生成存储过程，然后被调用
create or replace procedure p_test as
type t_Test is table of varchar2(10);
test t_test:=t_test('A','B','C','D','E','F','G','H','J','K','L');
begin
for i in test.first .. test.last loop
dbms_output.put_line(test(i));
end loop;
end;