Fórum Novo erro ao criar stored procedure #57512

Meus prezados,
Agora aparece o erro baixo.Podem me ajudar?
Dynamic SQL Error
SQL error code = -104
Token unknown - line 24, char 3
WHEN
Statement: CREATE PROCEDURE SP_PRODUTOR (
codigo varchar( 8 ),
nome varchar(80),
municipio varchar(80),
emissaopropria char(1),
areatotal numeric(18,2),
tipo integer)
as
BEGIN
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
else
if (:tipo = 2) then
UPDATE PRODUTOR
SET
NOME = :NOME,
MUNICIPIO = :MUNICIPIO,
EMISSAOPROPRIA = :EMISSAOPROPRIA,
AREATOTAL = :AREATOTAL
WHERE
CODIGO = :CODIGO;
else
if (:tipo = 3) then
DELETE FROM PRODUTOR
WHERE CODIGO = :CODIGO;
END