DECLARE TYPE TZam IS RECORD ( ... ); zam1 TZam; BEGIN SELECT ... INTO zam1 FROM ... WHERE ...; INSERT INTO zamestnanci (...) VALUES (...); COMMIT; END; ... BEGIN IF ... THEN RAISE ...; ... EXCEPTION WHEN ... THEN ...; COMMIT; ... CREATE OR REPLACE PROCEDURE ... AS CREATE OR REPLACE PROCEDURE ... (... IN NUMBER, ... IN NUMBER) AS CREATE OR REPLACE FUNCTION ... (... IN INTEGER) RETURN INTEGER AS BEGIN RETURN ...; END; DECLARE CURSOR ... IS SELECT ... FROM ...; BEGIN OPEN ...; LOOP FETCH ... INTO tmp; EXIT WHEN ...%NOTFOUND; END LOOP; CLOSE ...; END; DECLARE CURSOR ... (... IN VARCHAR2) IS SELECT ... BEGIN OPEN ...('...'); FETCH ... INTO ...; CLOSE osoba; END; / DECLARE CURSOR ...(... IN INTEGER) IS SELECT ... WHERE ...; BEGIN FOR ... IN ...(...) LOOP ...; END LOOP; END; / CREATE OR REPLACE TRIGGER ... BEFORE INSERT ON ... FOR EACH ROW DECLARE ... INTEGER; BEGIN SELECT SUM(...) INTO ... FROM ... WHERE ...; IF ... THEN errno := -20001; errmsg := 'Prekroceno maximum '||TO_CHAR(maximum)||' kreditu za semestr !'; raise_application_error(errno, errmsg); END IF; END; /