Mega Code Archive
Under a type
<![CDATA[
SQL>
SQL>
SQL> create or replace
2 type employee as object(
3 name varchar2(100),
4 empno number,
5 hiredate date,
6 vacation_used number,
7 final member procedure vacation( p_days number ),
8 not instantiable member procedure give_raise( p_increase number ),
9 not instantiable member function yearly_compensation return number
10 )
11 not instantiable
12 not final
13 /
Type created.
SQL>
SQL> create or replace
2 type body employee as
3 final member procedure vacation( p_days number ) is
4 begin
5 if p_days + self.vacation_used <= 10 then
6 self.vacation_used := self.vacation_used + p_days;
7 else
8 raise_application_error(
9 -20001,
10 'You are ' || to_char(p_days + self.vacation_used - 10) ||' days over your vacation limit.' );
11 end if;
12 end;
13 end;
14 /
Type body created.
SQL>
SQL>
SQL> create or replace type consultant under employee(
2 hourly_rate number,
3 overriding member procedure give_raise( p_increase number ),
4 overriding member function yearly_compensation return number
5 )
6 /
Type created.
SQL>
SQL>
SQL>
SQL> create or replace
2 type body consultant as
3 overriding member procedure give_raise( p_increase number ) is
4 begin
5 self.hourly_rate := self.hourly_rate + p_increase;
6 end;
7 overriding member function yearly_compensation return number is
8 begin
9 return self.hourly_rate * 40 * 52;
10 end;
11 end;
12 /
Type body created.
SQL>
SQL> drop type consultant;
Type dropped.
SQL>
SQL> drop type employee;
Type dropped.
SQL>
]]>