CREATE OR REPLACE PACKAGE paq3
IS

valor NUMBER(2);
TYPE tcabezas IS TABLE OF persona.dni_c%TYPE INDEX BY BINARY_INTEGER;
vcabezas tcabezas;

END;
/

CREATE OR REPLACE TRIGGER ejer3repaso1
before UPDATE ON persona
BEGIN

paq3.valor := 1;

END;
/

CREATE OR REPLACE TRIGGER ejer3repaso2
before UPDATE ON persona
DECLARE

CURSOR cursor1 IS SELECT DISTINCT dni_c FROM persona;

BEGIN

FOR i IN cursor1 LOOP

    paq3.vcabezas(paq3.valor) := i.dni_c;
    paq3.valor := paq3.valor + 1;

END LOOP;


END;
/

CREATE OR REPLACE TRIGGER ejer3repaso3
before UPDATE ON persona
FOR each ROW
BEGIN

    FOR i IN 1..24 LOOP

            DBMS_OUTPUT.put_line( paq3.vcabezas(i));
          IF(:NEW.dni = :old.dni_c) THEN
               IF(:NEW.dni_c = paq3.vcabezas(i)) THEN
                      RAISE_APPLICATION_ERROR(-20500, 'No puede depender de otro cabeza porque ya es cabeza de familia');
               END IF;
          END IF;

    END LOOP;

END;
/