--- define 一维数组
DECLARE
TYPE T_VARRAY IS VARRAY(5) OF NUMBER;
V_VAR T_VARRAY := T_VARRAY(1, 2, 3, 4, 5);
BEGIN
FOR I IN 1 .. V_VAR.COUNT LOOP
DBMS_OUTPUT.PUT_LINE(V_VAR(I));
END LOOP;
END;
---define 二维数组
declare
type structlist is table of varchar2(20);
type struct_structlist is table of structlist;
sl struct_structlist;
begin
sl := struct_structlist(structlist('10a', 20, 30, 40, 50),
structlist(10, '20a', 30, 40, 50),
structlist(1, 2, '3a', 4, 5));
for i in sl.first .. sl.last loop
for j in sl(i).first .. sl(i).last loop
dbms_output.put_line(sl.count||' @ '||sl(i).count||' - '||sl(i) (j));
end loop;
end loop;
end;
DECLARE
TYPE T_VARRAY IS VARRAY(5) OF varchar2(10);
TYPE T_VARRAY_VARRAY IS VARRAY(4) OF T_VARRAY;
V_VAR T_VARRAY_VARRAY := T_VARRAY_VARRAY(T_VARRAY('10a', 20, 30, 40, 50),
T_VARRAY(10, '20a', 30, 40, 50),
T_VARRAY(1, 2, '3a', 4, 5),
T_VARRAY(1, 2, 3, 4, 5));
begin
FOR I IN 1 .. V_VAR.COUNT LOOP
FOR J IN 1 .. V_VAR(I).COUNT LOOP
DBMS_OUTPUT.PUT_LINE(V_VAR(I) (J));
END LOOP;
END LOOP;
END;