Calling inherited method of object

Question

Dears,
I have this problem:
test case
-- base type
create or replace type T_integer as object
val Number,
member procedure set_value( pValue Number)
) not final instantiable
create or replace type body T_integer IS
member procedure set_value( pValue Number) is
begin
if( abs(mod(pValue,1)) > 0 ) then -- not whole number
raise value_error;
else
self.val := pValue;
end if;
end;
END T_integer;
-- subtype
create or replace type T_integer_positive under T_integer
overriding member procedure set_value( pValue Number)
) not final instantiable
create or replace type body T_integer_positive IS
overriding member procedure set_value( pValue Number) is
begin
if( pValue < 0 ) then -- not positive number
raise value_error;
else
/** HERE IS THE PROBLEM *******/
T_integer.set_value(self, pValue);
end if;
end;
END T_integer;
I need to call supertype's method in subtype but it leads to recurse.
declare
foo T_integer_positive := T_integer_positive(1);
begin
foo.set_value(58);
dbms_output.put_line(foo.val);
end;
this pl/sql block never ends.
Please can somebody help me how to call method of supertype in overriden method of subtype.
In Pascal there is reserved word "inherited", what is in Oracle ?
Many thanks fo any suggestion.
af

Answer 1

Thanks to all.
I found in Metalink that this is really NOT supported by Oracle Objects : http://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=FOR&p_id=189601.995
Zlatko, your solution is pretty but i am not sure it is usable for my wide object hierarchy (very wide) which i have to rewrite.