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.