SetPrice

CREATE OR REPLACE PROCEDURE SetPrice
AS
  NO_DATA_FOUND EXCEPTION;
  CURSOR kurzor IS SELECT * FROM Train;
  pocet_jazd INTEGER := 0;
BEGIN
  FOR pRow IN kurzor
    LOOP
      IF (((pRow.endTime - pRow.startTime) * 24) > 10) THEN
        UPDATE Train SET price = (price * 1.5) WHERE idTrain = pRow.idTrain;
        pocet_jazd := pocet_jazd + 1;
        COMMIT;
      END IF;
    END LOOP;
    IF (pocet_jazd = 0) THEN
      RAISE NO_DATA_FOUND;
    END IF;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE('Ziadny zaznam navyhovuje.');
    ROLLBACK;
END;