CREATE OR REPLACE FUNCTION ALTER_CONS 
   RETURN INTEGER  
is
number(5); 
MaxLevel number(5); 
LevelNum number(5);
begin
begin
  select "Level" into SelfLevel from "SYSTEM"."Trees" where "ID"='t0001';
  select Max("Level") into MaxLevel from "SYSTEM"."Trees" where "Family" like '%t0001%';
  LevelNum := MaxLevel - SelfLevel;
EXCEPTION
          WHEN OTHERS THEN
                 return -1; 
END;
return LevelNum;end;