CREATE OR REPLACE TYPE Student UNDER Persoana ( 
  sectia varchar2(50),
  grupa varchar2(3),
  media number,
  member function tipbursa(m1 number, m2 number) return string
);
/

CREATE or replace TYPE BODY Student AS 
  member function tipbursa(m1 number, m2 number) return string as
  begin
    if media>m1 then return 'Merit'; end if;
    if media>m2 then return 'Studiu'; end if;
    return 'Fara bursa';
  end;
end;
/

CREATE OR REPLACE TYPE Angajat UNDER Persoana ( 
  unitatea varchar2(50),
  functia varchar2(20) 
);