[firebase-br] procedure executar alguns updates

[eduardo cavalcante - CPC Brasil sistemas]

Prezados, estou querendo deixar uma procedure pronto para executar alguns
updates, porem não esta comitando o que pode ser?

COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
ALTER PROCEDURE "BASECONSULTAS"
AS
begin
 update usuarios set a_nome = 'Base Consultas', ativo = 'N', senha= 'TESTE'
where codigo <> 1;
 update empresas set apelido = 'Base de Consultas';
 update empresas set cep = cep;
end
^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;


.............
Fiz o seguinte:

EXECUTE PROCEDURE BASECONSULTAS;
Commit;