PLSQL collection 示例 之 index-by table

CREATE TABLE Person
(Id int,
Name varchar(255));

BEGIN
FOR i IN 1..4 LOOP
insert into person values(i,’abc’||i);
END LOOP;
commit;
END;

DECLARE
CURSOR cursor_person is select name from person;
TYPE person_list IS TABLE of person.name%type INDEX BY binary_integer;
name_list person_list;
counter integer :=0;
BEGIN
FOR n IN cursor_person LOOP
counter := counter +1;
name_list(counter) := n.name;
dbms_output.put_line(‘PERSON NO.(‘||counter|| ‘):’||name_list(counter));
END LOOP;
END;