SQL>
SQL> create table department
2 ( dept_id number(2),
3 dept_name varchar2(14),
4 no_of_emps varchar2(13)
5 )
6 /
Table created.
SQL>
SQL> INSERT INTO department VALUES (10, 'ACCOUNTING', 'NEW YORK');
1 row created.
SQL> INSERT INTO department VALUES (20, 'RESEARCH', 'DALLAS');
1 row created.
SQL> INSERT INTO department VALUES (30, 'SALES', 'CHICAGO');
1 row created.
SQL> INSERT INTO department VALUES (40, 'OPERATIONS', 'BOSTON');
1 row created.
SQL>
SQL>
SQL> SET ECHO ON
SQL> SET SERVEROUTPUT ON
SQL>
SQL> DECLARE
2 TYPE dept_id IS TABLE OF department.dept_id%TYPE;
3 TYPE dept_name IS TABLE OF department.dept_name%TYPE;
4
5 dept_ids dept_id;
6 dept_names dept_name;
7 inx1 PLS_INTEGER;
8 BEGIN
9 dept_ids := dept_id();
10 dept_names := dept_name();
11
12 dept_ids.extend(10);
13 dept_names.extend(10);
14
15 FOR inx1 IN 1..10 LOOP
16 dept_ids(inx1) := inx1 + 10;
17 dept_names(inx1) := 'Dept #' || TO_CHAR(inx1+10);
18 END LOOP;
19
20 FORALL x IN dept_ids.first..dept_ids.last
21 INSERT INTO department (dept_id, dept_name)
22 VALUES (dept_ids(x), dept_names(x));
23 END;
24 /
PL/SQL procedure successfully completed.
SQL>
SQL> drop table department;
Table dropped.
SQL>
SQL> --