CREATE OR REPLACE PACKAGE paq4
IS

estaciones NUMBER(2);
trenes NUMBER(2);
END;
/

CREATE OR REPLACE TRIGGER ejer4tren_1
before INSERT OR DELETE ON tren
FOR each ROW
BEGIN

SELECT COUNT(*) INTO paq4.trenes FROM tren WHERE linea = :NEW.linea;

SELECT COUNT(*) INTO paq4.estaciones FROM linea_estacion WHERE linea = :NEW.linea;

END;
/

CREATE OR REPLACE TRIGGER ejer4tren_2
before INSERT OR DELETE ON tren
FOR each ROW
BEGIN

        IF ((paq4.trenes<paq4.estaciones) OR (paq4.trenes>paq4.estaciones*2)) THEN
            RAISE_APPLICATION_ERROR(-20005, 'Cada línea debe tener como mínimo tantos trenes como estaciones tenga y como máximo el doble del número de estaciones.');
        END IF;
END;
/