procedimientos almacenados flamerobin ( firebird )

[dadp]

Hola a todos; soy nuevo en este foro y estoy recien aprendiendo transact sql. El problema es que estoy tratando de hacer un procedimiento almacenado que me permita ingresar datos a una tabla pero antes comprobar ( a través del ID ) que este registro no exista. El código es:


SET TERM ^ ;

CREATE PROCEDURE IngresarPer
(codper char(5), apeper varchar(25), nomper varchar(25), dniper char(8), fnacper date, dirper varchar(30), provper varchar(25), telfper varchar(12), celper varchar(16), emailper varchar(30), cargper varchar(25), fingper date, fcesper date, plaper char(1), fondpensper varchar(25), codessper varchar(15))
AS
BEGIN
IF (SELECT * FROM REGISTROSPER WHERE REGISTROSPER.COD_PER = codper) IS NULL THEN
INSERT INTO REGISTROSPER VALUES (codper, apeper, nomper, dniper, fnacper, dirper, provper, telfper, celper, emailper, cargper, fingper, fcesper, plaper, fondpensper, codessper);
END IF;
END^

SET TERM ; ^


Al ejecutarlo me detecta errores de sintaxis.

Agradesco su aporte.