CREATE OR REPLACE PROCEDURE ejer14

IS

    v_dni persona.dni%TYPE;
    v_nombre persona.nombre_persona%TYPE;
    v_apellidos persona.apellidos_persona%TYPE;
    v_calle persona.calle%TYPE;
    CURSOR recorrido IS SELECT dni, UPPER(nombre_persona), UPPER(apellidos_persona), UPPER(calle) FROM persona;

BEGIN

    OPEN recorrido;

    LOOP

        EXIT WHEN recorrido%notfound;

        FETCH recorrido INTO v_dni, v_nombre, v_apellidos, v_calle;

            UPDATE persona SET nombre_persona = v_nombre, apellidos_persona = v_apellidos,
            calle = v_calle WHERE dni = v_dni;

    END LOOP;

    CLOSE recorrido;

END;
/