CREATE OR REPLACE PROCEDURE ejerxxx

IS

    v_miembros persona.miembros%TYPE;
    v_dni_c persona.dni%TYPE;
    CURSOR cabeza IS SELECT COUNT(*)-1, dni_c FROM persona GROUP BY dni_c;

BEGIN

    OPEN cabeza;

    LOOP

        EXIT WHEN cabeza%notfound;

        FETCH cabeza INTO v_miembros, v_dni_c;

        UPDATE persona SET miembros = NULL WHERE dni != dni_c;

        UPDATE persona SET miembros = v_miembros WHERE dni = v_dni_c;

    END LOOP;

    CLOSE cabeza;

END;
/