-- schemat DEKLARACJI metody w typie

create or replace type Prac_typ as object
(
   pole1 typ1,
   pole2 typ2,
	MEMBER PROCEDURE metoda_jakas(parametr IN NUMBER)   
);
/


-- ciało meotdy, czyli DEFINICJA


CREATE OR REPLACE TYPE BODY Prac_typ AS 
	MEMBER PROCEDURE metoda_jakas(parametr IN NUMBER) IS
	-- miejsce na zmienne loklane
	....
	
	-- poczatek wlasciwej metody
	BEGIN
	
	-- moze zawierac m.in. kursory
	-- instrukcje warunkowe
	-- petle
	-- no i wypisywanie na ekranie (dbms_output.put_line() )
	-- przydalaby sie obsluga wyjatkow! EXCEPTION!
	
	END;
END;
/





-- do eleganckiego wywołania metod można sobie napisać skrypcik

SET SERVEROUTPUT ON 
SET VERIFY OFF
CLEAR SCREEN
PROMPT *********************************************
PROMPT PROCEDURA ZMIENIAJACA ZATRUDNIENIE PRACOWNIKA
PROMPT *********************************************
PROMPT
ACCEPT id_pr NUMBER PROMPT 'Podaj id pracownika : '
PROMPT
ACCEPT id_zatrudnienia NUMBER PROMPT 'Podaj id zatrudnienia : '
PROMPT
PROMPT

-- właściwa częśc kodu
-- wybieramy obiekt, na rzecz którego będziemy wywoływać metodę

DECLARE
	prac Prac_typ;
BEGIN
	SELECT VALUE(p) INTO prac FROM pracownik p WHERE p.id=&id_pr;
	prac.metoda_jakas(&id_zatrudnienia);
END;
/