Oracle 的数组，游标，循环的应用

DECLARE
   CURSOR c_dept is  -- 定义游标
   SELECT  dname FROM dept; 
   type c_list is varray (4) of dept.dname%type;
   name_list c_list := c_list();
   counter integer :=0;
BEGIN
   FOR n IN c_dept LOOP
      counter := counter + 1;
      name_list.extend;
      name_list(counter)  := n.dname;
      dbms_output.put_line('Dname('||counter ||'):'||name_list(counter));
   END LOOP;
END;