Fórum Procedure atualiza estoque #39633

Estou tendo problema na criação da procedure.
Erro = uncknow colum quantanterior
set term ! ;
create procedure sp_estoque
(
codproduto integer,
quantidade numeric (9,2),
valor numeric (9,2)
)
as
declare variable quantanterior numeric (5,2);
begin
for select quant_prod from produto where cod_prod= :codproduto
into quantanterior do
update produto
set quant_prod = quantanterior + :quantidade, ultcomp_prod= current_date,
custo_prod= :valor
where cod_prod= :codproduto;
suspend;
end!
set term ; !

O que há de errado no codigo acima?