FilesExpand file tree

master

/

10g_submultiset.sql

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

39 lines (35 loc) · 1.12 KB

master

/

10g_submultiset.sql

Copy path

Top

File metadata and controls

• Code
• Blame

39 lines (35 loc) · 1.12 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

DECLARE

PROCEDURE bpl (val IN BOOLEAN, str IN VARCHAR2)

IS

BEGIN

IF val

THEN

DBMS_OUTPUT.put_line (str || '-TRUE');

ELSIF NOT val

THEN

DBMS_OUTPUT.put_line (str || '-FALSE');

ELSE

DBMS_OUTPUT.put_line (str || '-NULL');

END IF;

END;

BEGIN

bpl (authors_pkg.steven_authors

SUBMULTISET OF authors_pkg.eli_authors

, 'Father follows son?');

bpl (authors_pkg.eli_authors

SUBMULTISET OF authors_pkg.steven_authors

, 'Son follows father?');

bpl (authors_pkg.steven_authors

NOT SUBMULTISET OF authors_pkg.eli_authors

, 'Father doesn''t follow son?');

bpl (authors_pkg.eli_authors

NOT SUBMULTISET OF authors_pkg.steven_authors

, 'Son doesn''t follow father?');

END;

/

/*======================================================================

| Supplement to the fifth edition of Oracle PL/SQL Programming by Steven

| Feuerstein with Bill Pribyl, Copyright (c) 1997-2009 O'Reilly Media, Inc.

| To submit corrections or find more code samples visit

| http://oreilly.com/catalog/9780596514464/

*/