数组

DECLARE
   TYPE my_varray IS VARRAY(300) OF VARCHAR2(10);
   n_var_ my_varray;
   n_len_cnt_ INT;
   TYPE my_table_index IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
   n_table_index_ my_table_index;
   TYPE my_table IS TABLE OF VARCHAR2(10);
   n_table_ my_table;
BEGIN
   n_var_ := my_varray('zhao','qian','sun','li');
   
   n_table_index_(1) := 'zhou';
   n_table_index_(2) := 'wu';
   n_table_index_(3) := 'zheng';
   n_table_index_(4) := 'wang';

   n_table_ := my_table('feng','chen','chu','wei');
   
   dbms_output.put_line('|varray begin-----------------------------');
   FOR i IN 1..n_var_.count LOOP
      dbms_output.put_line(n_var_(i));
   END LOOP;
   dbms_output.put_line('|varray end-------------------------------');
   dbms_output.new_line;
   dbms_output.put_line('|table index begin------------------------');
   FOR j IN 1..n_table_index_.count LOOP
      IF n_table_index_.exists(4) THEN
         dbms_output.put_line(n_table_index_(j));
      END IF;
   END LOOP;
   dbms_output.put_line('|table index end--------------------------');
   dbms_output.new_line;
   dbms_output.put_line('|table begin------------------------------');
   FOR k IN n_table_.first..n_table_.last LOOP
      dbms_output.put_line(n_table_(k));
   END LOOP;
   dbms_output.put_line('|table end--------------------------------');
EXCEPTION
   WHEN OTHERS THEN
      dbms_output.put_line(SQLCODE);
      dbms_output.put_line(SQLERRM);
END shuzu;

运行结果：
|varray begin-----------------------------
zhao
qian
sun
li
|varray end-------------------------------
 
|table index begin------------------------
zhou
wu
zheng
wang
|table index end--------------------------
 
|table begin------------------------------
feng
chen
chu
wei
|table end--------------------------------