CREATE OR REPLACE PROCEDURE TEST1 AS
  TYPE TYPE_ARRAY IS VARRAY(11) OF VARCHAR2(2); --定义长度为11的数组
  INIT_ARRAY TYPE_ARRAY := TYPE_ARRAY('01',
                                      '02',
                                      '03',
                                      '04',
                                      '05',
                                      '06',
                                      '07',
                                      '08',
                                      '09',
                                      '10',
                                      '11');
  --初始化数组的11个字符
BEGIN
  FOR I IN 1 .. INIT_ARRAY.COUNT LOOP
    DBMS_OUTPUT.PUT_LINE(INIT_ARRAY(I));
  END LOOP;
END TEST1;