CREATE TYPE pnr_typ AS OBJECT
   (
        principle NUMBER,
        interest NUMBER,
        year NUMBER,
        MEMBER FUNCTION si RETURN FLOAT,
        MEMBER FUNCTION ci RETURN FLOAT,
        MEMBER FUNCTION prod(invent NUMBER) RETURN NUMBER
   );
/
show err

CREATE TYPE BODY pnr_typ IS

      MEMBER FUNCTION si RETURN FLOAT IS
       BEGIN
           RETURN (principle*interest*SELF.year)/100;
       END;      MEMBER FUNCTION ci RETURN FLOAT IS
       BEGIN
           RETURN POWER(SELF.principle*(1 + SELF.interest/100), year);
       END;


      MEMBER FUNCTION prod (invent NUMBER) RETURN NUMBER IS
       BEGIN
           RETURN (year + invent);
       END;
      END;
/
Show err

CREATE TYPE s1.pnr_typ AS
       (
       principle INT,
       interest DECIMAL(5, 2),
       year INT
       )
     NOT FINAL
     MODE DB2SQL
       METHOD SI()
       RETURNS FLOAT
       LANGUAGE SQL
       DETERMINISTIC
       CONTAINS SQL
       NO EXTERNAL ACTION,

       METHOD CI()
       RETURNS FLOAT
       LANGUAGE SQL
       DETERMINISTIC
       CONTAINS SQL
       NO EXTERNAL ACTION,

       METHOD PROD(NUM INT)
       RETURNS INTEGER
       LANGUAGE SQL
       DETERMINISTIC
       CONTAINS SQL
       NO EXTERNAL ACTION
@

   CREATE METHOD SI()
     FOR s1.pnr_typ
     RETURN (SELF..principle*SELF..interest*SELF..year)/100
@

   CREATE METHOD CI()
     FOR s1.pnr_typ
     RETURN SELF..principle * POWER((1 + SELF..interest/100), SELF..year)
@

   CREATE METHOD PROD(NUM INT)
     FOR s1.pnr_typ
     RETURN  NUM+SELF..year
@