INDEX BY BINARY_INTEGER 说明

-- 非标号数组
DECLARE
TYPE type_table_list IS TABLE OF VARCHAR2(1024); -- 非标号，需要动态初始化，动态extend
table_list_1 type_table_list;
BEGIN
-- 报错，非标号需要动态初始化，动态extend , 否则会报错
-- table_list_1(1) := '1A';

-- 初始化1, 声明时赋初值, 可以整体赋值，不需要动态extend
-- table_list_1 := type_table_list( '12A', '12B', '12C' );
-- 初始化2
table_list_1 := type_table_list();
table_list_1.extend;
table_list_1(1) := '12A';
table_list_1.extend;
table_list_1(2) := '12B';
table_list_1.extend;
table_list_1(3) := '12C';
FOR i IN table_list_1.first .. table_list_1.last LOOP
dbms_output.put_line(table_list_1(i));
END LOOP;
END;


-- 标号数组
DECLARE
TYPE type_table_list_bi IS TABLE OF VARCHAR2(1024) INDEX BY BINARY_INTEGER; -- 标号数组，不需要动态申请
table_list_bi_1 type_table_list_bi;
lv_list VARCHAR2(1024);
/* 标号数组声明不能整体赋初值，会报错
table_list_bi_1 type_table_list_bi := type_table_list_bi('A','B');
*/
BEGIN
-- 标号数组不需要初始化，下标从1开始
table_list_bi_1(1) := '21A';
-- 并且可以指定下标赋值
table_list_bi_1(10) := '210A';
FOR i IN table_list_bi_1.first .. table_list_bi_1.last LOOP
BEGIN
lv_list := table_list_bi_1(i);
dbms_output.put_line(i || ' : ' || lv_list);
EXCEPTION
WHEN NO_DATA_FOUND THEN
dbms_output.put_line(i || ' : is no data found');
END;
END LOOP;
END;