CREATE TYPE TELEFON AS OBJECT(
NAZWA_SIECI VARCHAR2(30),
NUMER NUMBER,
DARMOWE_MINUTY NUMBER
);

CREATE TABLE TELEFONY OF TELEFON;

INSERT INTO TELEFONY VALUES(NEW TELEFON('TMOBILE', 666925358, 12000));
INSERT INTO TELEFONY VALUES(NEW TELEFON('ORANGE', 666222333, 1200));

SELECT * FROM TELEFONY;

SELECT VALUE(A).NAZWA_SIECI, VALUE(A).NUMER, VALUE(A).DARMOWE_MINUTY FROM TELEFONY A;

--4--
CREATE TYPE WLASCICIEL AS OBJECT(
IMIE VARCHAR2(150),
NAZWISKO VARCHAR(120),
TEL REF TELEFON
    );

CREATE TABLE WLASCICIELE OF WLASCICIEL;

ALTER TABLE WLASCICIELE ADD SCOPE FOR(TEL) IS TELEFONY;

ALTER TYPE wlasciciel REPLACE AS object(
    IMIE VARCHAR2(150),
    NAZWISKO VARCHAR(120),
    TEL REF TELEFON,
    member FUNCTION mintosek(minu NUMBER) RETURN NUMBER,
    member PROCEDURE darmowemin(wykorzystane NUMBER)
    );



CREATE OR REPLACE TYPE BODY wlasciciel AS
    member FUNCTION mintosek(minu NUMBER) RETURN NUMBER IS
        BEGIN
            RETURN minu*60;
    END mintosek;
    member PROCEDURE darmowemin(wykorzystane NUMBER) IS
        BEGIN
            self.tel.DARMOWE_MINUTY := self.tel.DARMOWE_MINUTY - wykorzystane;
    END darmowemin;
END;