Problema Procedure PL/SQL

create or replace procedure "RIPRISTINA_REAGENTI" (cod_reazione NUMBER, fattore NUMBER) as
begin
DECLARE
cod REAGENTE.COD_SOSTANZA%TYPE;
moli REAGENTE.NUM_MOLI%TYPE;

CURSOR c1 IS
SELECT COD_SOSTANZA, NUM_MOLI
FROM REAGENTE
WHERE COD_REAZIONE = cod_reazione;

BEGIN OPEN c1;
LOOP
FETCH c1 INTO cod, moli;
EXIT WHEN c1%NOTFOUND;
UPDATE SOSTANZA SET QUANTITA = QUANTITA + fattore*moli WHERE CODICE = cod;
END LOOP;
CLOSE CURSORE;
END;
end;

UPDATE
  SOSTANZA
SET
  QUANTITA = QUANTITA + fattore * R.NUM_MOLI
FROM
  SOSTANZA        S
  INNER JOIN REAGENTE     R ON R.COD_SOSTANZA = S.CODICE
WHERE
  R.COD_REAZIONE = cod_reazione;