ZMEN_CENU

CREATE OR REPLACE
PROCEDURE zmenCenu(
        jmenoStanice1 Station.name%TYPE,
        jmenoStanice2 Station.name%TYPE,
        myPercent INT
        ) AS

id1 INT;
id2 INT;
counter INT;
myPercent2 NUMBER;
BEGIN
counter := 0;
myPercent2 := myPercent / 100;

SELECT idStation INTO id1 FROM Station WHERE name = jmenoStanice1;
SELECT idStation INTO id2 FROM Station WHERE name = jmenoStanice2;

SELECT COUNT(*) INTO counter FROM Train WHERE idstation = id1 AND idstation1 = id2;
UPDATE Train SET Price = Price*myPercent2 WHERE idstation = id1 AND idstation1 = id2;

DBMS_OUTPUT.PUT_LINE('Pocet zmenenych CEN: ' || counter);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE('Zadana trasa neexistuje!');
END;