SQL> CREATE OR REPLACE PROCEDURE multiset_example AS
2 TYPE charTable IS TABLE OF VARCHAR2(10);
3 emp1 charTable;
4 emp2 charTable;
5 emp3 charTable;
6 count_var INTEGER;
7 BEGIN
8 emp1 := charTable('A', 'B', 'C');
9 emp2 := charTable('D', 'E', 'F');
10
11
12 emp3 := emp1 MULTISET INTERSECT emp2;
13 DBMS_OUTPUT.PUT('INTERSECT: ');
14 FOR count_var IN 1..emp3.COUNT LOOP
15 DBMS_OUTPUT.PUT(emp3(count_var) || ' ');
16 END LOOP;
17 DBMS_OUTPUT.PUT_LINE(' ');
18
19 END multiset_example;
20 /
Procedure created.
SQL>