求在9i的存储过程中二维数组的完整例子及说明,在线等.table ,varrry ,recor都行.

---------------------- 单维数组 ------------------------

DECLARE
TYPE emp_ssn_array IS TABLE OF NUMBER
INDEX BY BINARY_INTEGER;

best_employees emp_ssn_array;
worst_employees emp_ssn_array;

BEGIN
best_employees(1) := '123456';
best_employees(2) := '888888';

worst_employees(1) := '222222';
worst_employees(2) := '666666';

FOR i IN 1..best_employees.count LOOP
DBMS_OUTPUT.PUT_LINE('i=' ¦ ¦ i ¦ ¦ ', best_employees= ' ¦ &brvbarbest_employees(i)
¦ ¦ ', worst_employees= ' ¦ &brvbarworst_employees(i));
END LOOP;

END;

---------------------- 多维数组 ------------------------
DECLARE

TYPE emp_type IS RECORD
( emp_id number,
emp_name string(80),
emp_gender string(80));

TYPE emp_type_array IS TABLE OF
emp_type INDEX BY BINARY_INTEGER;

emp_rec_array emp_type_array;
emp_rec emp_type;

BEGIN
emp_rec.emp_id := 300000000;
emp_rec.emp_name := 'Barbara';
emp_rec.emp_gender := 'Female';

emp_rec_array(1) := emp_rec;

emp_rec.emp_id := 300000008;
emp_rec.emp_name := 'Rick';
emp_rec.emp_gender := 'Male';

emp_rec_array(2) := emp_rec;

FOR i IN 1..emp_rec_array.count LOOP
DBMS_OUTPUT.PUT_LINE('i=' ¦ &brvbari
¦ ¦', emp_id =' ¦ &brvbaremp_rec_array(i).emp_id
¦ ¦', emp_name =' ¦ &brvbaremp_rec_array(i).emp_name
¦ ¦', emp_gender = ' ¦ &brvbaremp_rec_array(i).emp_gender);
END LOOP;

END;
-------------- Result --------------
i=1, emp_id =300000000, emp_name =Barbara, emp_gender = Female
i=2, emp_id =300000008, emp_name =Rick, emp_gender = Male