CREATE OR REPLACE PROCEDURE procedure4

IS

    v_habitantes piso.habitantes%TYPE;
    v_numero persona.numero%TYPE;
    v_calle persona.calle%TYPE;
    CURSOR recorrido IS SELECT COUNT(dni), calle, numero FROM persona GROUP BY calle, numero;

BEGIN

    OPEN recorrido;

    LOOP

        EXIT WHEN recorrido%notfound;

        FETCH recorrido INTO v_habitantes, v_calle, v_numero;

        UPDATE piso SET habitantes = v_habitantes WHERE calle = v_calle AND numero = v_numero;

    END LOOP;

    CLOSE recorrido;

END;
/