[firebase-br] ENC: procedure executar alguns updates

[eduardo cavalcante - CPC Brasil sistemas]

procedure executar alguns updates

Prezados, estou querendo deixar uma procedure pronto para executar alguns
updates, porem não esta comitando o que pode ser?
A procedure roda sem erro, porem não esta ficando gravado no banco.

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;