-
Notifications
You must be signed in to change notification settings - Fork 14
Expand file tree
/
Copy path11g_gen_invoc.sql
More file actions
142 lines (127 loc) · 3.44 KB
/
Copy path11g_gen_invoc.sql
File metadata and controls
142 lines (127 loc) · 3.44 KB
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
/*
Demonstration of Oracle 11g generalized invocation
*/
DROP TYPE cake_t FORCE;
DROP TYPE dessert_t FORCE;
DROP TYPE food_t FORCE;
CREATE TYPE food_t AS OBJECT
(name VARCHAR2 (100)
, food_group VARCHAR2 (100)
, grown_in VARCHAR2 (100)
, MEMBER FUNCTION to_string
RETURN VARCHAR2
)
NOT FINAL;
/
CREATE OR REPLACE TYPE BODY food_t
IS
MEMBER FUNCTION to_string
RETURN VARCHAR2
IS
BEGIN
RETURN 'FOOD! '
|| self.name
|| ' - '
|| self.food_group
|| ' - '
|| self.grown_in;
END;
END;
/
CREATE TYPE dessert_t
UNDER food_t
(contains_chocolate CHAR (1)
, year_created NUMBER (4)
, OVERRIDING MEMBER FUNCTION to_string
RETURN VARCHAR2
)
NOT FINAL;
/
CREATE OR REPLACE TYPE BODY dessert_t
IS
OVERRIDING MEMBER FUNCTION to_string
RETURN VARCHAR2
IS
BEGIN
/* Add the supertype (food) string to the subtype string.... */
RETURN 'DESSERT! With Chocolate? '
|| contains_chocolate
|| ' created in '
|| SELF.year_created
|| chr(10)
|| (SELF as food_t).to_string;
END;
END;
/
CREATE TYPE cake_t
UNDER dessert_t
(diameter NUMBER
, inscription VARCHAR2 (200)
, OVERRIDING MEMBER FUNCTION to_string
RETURN VARCHAR2
);
/
CREATE OR REPLACE TYPE BODY cake_t
IS
OVERRIDING MEMBER FUNCTION to_string
RETURN VARCHAR2
IS
BEGIN
/* Invoke two supertype methods... */
RETURN 'CAKE! With diameter: '
|| self.diameter
|| ' and inscription '
|| SELF.inscription
|| chr(10)
|| (SELF as dessert_t).to_string
;
END;
END;
/
SET SERVEROUTPUT ON FORMAT WRAPPED
DECLARE
TYPE foodstuffs_nt IS TABLE OF food_t;
fridge_contents foodstuffs_nt
:= foodstuffs_nt (
food_t ('Eggs benedict', 'PROTEIN', 'Farm')
, dessert_t ('Strawberries and cream'
, 'FRUIT'
, 'Backyard'
, 'N'
, 2001
)
, cake_t ('Chocolate Supreme'
, 'CARBOHYDATE'
, 'Kitchen'
, 'Y'
, 2001
, 8
, 'Happy Birthday, Veva'
)
);
BEGIN
FOR indx IN fridge_contents.FIRST .. fridge_contents.LAST
LOOP
DBMS_OUTPUT.put_line (RPAD ('=', 60, '='));
DBMS_OUTPUT.put_line (fridge_contents (indx).to_string);
END LOOP;
END;
/
/* Output displayed is:
============================================================
FOOD! Eggs benedict - PROTEIN - Farm
============================================================
DESSERT! With Chocolate? N created in FRUIT-2001
FOOD! Strawberries and cream - FRUIT - Backyard
============================================================
CAKE! With diameter: 8 and inscription Happy Birthday, Veva
DESSERT! With Chocolate? Y created in CARBOHYDATE-2001
FOOD! Chocolate Supreme - CARBOHYDATE - Kitchen
PL/SQL procedure successfully completed.
*/
/*======================================================================
| 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/
*/