6-7 practica 7 ejercicio 27

Puedes acceder a la teoría necesaria para hacer los ejercicios,  a los ejercicios y las bases de datos necesarias aquí, aquí y aquí.

27.-

delimiter $$
drop procedure if exists ejercicio27 $$
create procedure ejercicio27 (e_cantidad int, out p_error_num int, out p_error_text varchar(100))
modifies sql data
begin
declare v_numem int;
    declare v_ultima_fila int default 0;
    declare empleados_cursor cursor for 
select numem
        from empleados
        where comision is null
        and numhi>=1
        for update;
declare continue handler for not found
set v_ultima_fila=1;
    declare exit handler for sqlexception
    begin
set p_error_num=-2;
        set p_error_text='sqlexception';
        rollback;
end;
    set p_error_num=0;
    start transaction;
open empleados_cursor; 
empleados : loop
fetch empleados_cursor into v_numem;
                if v_ultima_fila=1 then
leave empleados;
end if;
update empleados set salario=salario+(e_cantidad*numhi)
where numem=v_numem;
end loop empleados;
close empleados_cursor;
    if p_error_num=0 then 
commit;
set p_error_text='modificación realizada';
end if;
end $$
delimiter ;