Fórum Erro ao criar uma Stored procedure #57501

Meus Amigos,
Estou tentando criar uma sotored procedure no interbase e sempre aparece erro.Podem me ajudar,
segue o código abaixo:
CREATE PROCEDURE SP_PRODUTOR
(
CODIGO VARCHAR(8),
NOME VARCHAR(80),
MUNICIPIO VARCHAR(80),
EMISSAOPROPRIA CHAR(1),
AREATOTAL NUMERIC(12,2),
TIPO INTEGER
)
AS
begin
/*
Inclusão
*/
if (TIPO = 1) then
begin
INSERT INTO PRODUTOR (CODIGO, NOME,MUNICIPIO,EMISSAOPROPRIA,AREATOTAL) VALUES
(:CODIGO, :NOME,:MUNICIPIO,:EMISSAOPROPRIA,:AREATOTAL);
WHEN SQLCODE -803 DO
EXCEPTION DUPLICIDADE;
end
SUSPEND;
end
/*
Alteração
*/
if (TIPO = 2) then
begin
UPDATE PRODUTOR
SET NOME =:NOME,
MUNICIPIO=:MUNICIPIO,
EMISSAOPROPRIA=:EMISSAOPROPRIA,
AREATOTAL=:AREATOTAL
WHERE CODIGO =:CODIGO;
end
/*
Exclusão
*/
if (TIPO = 3) then
begin
DELETE FROM PRODUTOR WHERE CODIGO =:CODIGO;
SUSPEND;
end

end
^

SET TERM ; ^