create or replace procedure SOMA_VENDAS_CURSOR_WHILE
(p_VENDA_LIMITE IN produto_venda_exercicio.valor_total%type, p_ID_RETORNO OUT produto_venda_exercicio.id%type)
IS
 v_ID produto_venda_exercicio.id%type := 1;
 v_VLR_TOTAL produto_venda_exercicio.valor_total%type;
 v_VENDA produto_venda_exercicio.valor_total%type := 0;
   CURSOR cur_VENDA IS SELECT ID FROM produto_venda_exercicio;
BEGIN
    OPEN cur_Venda;
    FETCH cur_Venda INTO v_ID;
    WHILE cur_Venda%FOUND LOOP
     SELECT VALOR_TOTAL INTO v_VLR_TOTAL FROM PRODUTO_VENDA_EXERCICIO WHERE ID = v_ID;
      v_VENDA := v_VENDA + v_VLR_TOTAL;
      FETCH cur_Venda INTO v_ID;
END LOOP;
    CLOSE cur_Venda;
END;
 
            