HELP (procedimiento almacenado en firebird )

[voldemmor]

hola amigos disculpad la molestia.
Hago el siguiente Procedimiento en Firebird 1.5

SET TERM ^ ;

CREATE PROCEDURE SP_MODIFICA_EMPRESA(
CODIGO CHAR(1) CHARACTER SET WIN1251,
NRUC VARCHAR(13) CHARACTER SET WIN1251,
NNOMBRE VARCHAR(50) CHARACTER SET WIN1251,
NRESPONSABLE VARCHAR(50) CHARACTER SET WIN1251,
NDIRECCION VARCHAR(50) CHARACTER SET WIN1251,
NIVA NUMERIC(15, 2))
AS
BEGIN
/* Procedure body */
UPDATE DATOS
SET RUC = :NRUC,
NOMBRE = :NNOMBRE,
RESPONSABLE = :NRESPONSABLE,
DIRECCION = :NDIRECCION,
IVA = :NIVA
WHERE
COD = :CODIGO;


END^


el problema es que al probarlo no realiza la accion supuesta (actualizar el registro)
sale un mensaje de 0 registros afectados
podrias ayudarme