|
SQL>
SQL> CREATE OR REPLACE TYPE strings_nt IS TABLE OF VARCHAR2(100);
2 /
Type created.
SQL> CREATE OR REPLACE PACKAGE employees_pkg
2 IS
3 vancouver_employees strings_nt := strings_nt ('R', 'H', 'D', 'S', 'C');
4 newyork_employees strings_nt := strings_nt ('H', 'S', 'A');
5 boston_employees strings_nt := strings_nt ('S', 'D');
6
7 PROCEDURE show_employees (
8 title_in IN VARCHAR2
9 , employees_in IN strings_nt
10 );
11 END;
12 /
Package created.
SQL> SHO ERR
No errors.
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY employees_pkg
2 IS
3 PROCEDURE show_employees (
4 title_in IN VARCHAR2
5 , employees_in IN strings_nt
6 )
7 IS
8 BEGIN
9 DBMS_OUTPUT.put_line (title_in);
10
11 FOR indx IN employees_in.FIRST .. employees_in.LAST
12 LOOP
13 DBMS_OUTPUT.put_line (indx || ' = ' || employees_in (indx));
14 END LOOP;
15
16 DBMS_OUTPUT.put_line ('_');
17 END show_employees;
18 END;
19 /
Package body created.
SQL> SHOw error
No errors.
SQL>
SQL> DECLARE
2 PROCEDURE bpl (val IN BOOLEAN, str IN VARCHAR2)
3 IS
4 BEGIN
5 IF val
6 THEN
7 DBMS_OUTPUT.put_line (str || '-TRUE');
8 ELSIF NOT val
9 THEN
10 DBMS_OUTPUT.put_line (str || '-FALSE');
11 ELSE
12 DBMS_OUTPUT.put_line (str || '-NULL');
13 END IF;
14 END;
15 BEGIN
16 bpl (employees_pkg.vancouver_employees SUBMULTISET OF employees_pkg.boston_employees
17 , 'Result: ');
18 bpl (employees_pkg.boston_employees SUBMULTISET OF employees_pkg.vancouver_employees
19 , 'Result: ');
20
21 bpl (employees_pkg.vancouver_employees NOT SUBMULTISET OF employees_pkg.boston_employees
22 , 'Result: ');
23 bpl (employees_pkg.boston_employees NOT SUBMULTISET OF employees_pkg.vancouver_employees
24 , 'Result: ');
25 END;
26 /
PL/SQL procedure successfully completed.
SQL>
SQL>
|