PL_SQL 的 循环语句FOR 循环测试

 SQL> create table cities as
  2  select username city
  3  from all_users
  4  where rownum<=37;

Table created.

SQL> alter table cities add constraint cities_pk primary key (city);

Table altered.

SQL> create table with_ri (x char(80),city references cities);

Table created.

SQL> create table without_ri (x char(80),city varchar2(30));

Table created.

  1  declare
  2      type array is table of varchar2(30) index by binary_integer;
  3      l_data array;
  4  begin
  5     select * bulk collect into l_data from cities;
  6     for i in 1..1000
  7     loop
  8      for j in 1 .. l_data.count
  9     loop
 10      insert into with_ri
 11             values ('x',l_data(j));
 12     insert into without_ri
 13     values ('x',l_data(j));
 14     end loop;
 15  end loop;
 16* end;
SQL> /

PL/SQL procedure successfully completed.