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
|
> select * from v$version;
BANNER
----------------------------------------------------------------
Oracle9i Enterprise Edition Release 9.2.0.7.0 - 64bit Production
PL/SQL Release 9.2.0.7.0 - Production
CORE 9.2.0.7.0 Production
TNS for HPUX: Version 9.2.0.7.0 - Production
NLSRTL Version 9.2.0.7.0 - Production
>
> create or replace type typ_test as object
2 ( maval number,
3 member procedure proc(p in number),
4 member function func(self in out typ_test, p in number) return number
5 )
6 /
Type created.
> show errors
No errors.
>
> create or replace type body typ_test is
2
3 member procedure proc(p in number)
4 is begin
5 self.maval := p*2;
6 end proc;
7
8 member function func(self in out typ_test, p in number) return number
9 is begin
10 self.maval := p*2;
11 return self.maval;
12 end func;
13
14 end;
15 /
Type body created.
> show errors
No errors |
Partager