CREATE TABLE DDL_LOG ( 
    ID INTEGER NOT NULL, 
    MOMENT DATE NOT NULL, 
    USER_NAME VARCHAR(31) NOT NULL, 
    EVENT_TYPE VARCHAR(25) NOT NULL, 
    OBJECT_TYPE VARCHAR(25) NOT NULL, 
    DDL_EVENT VARCHAR(25) NOT NULL, 
    OBJECT_NAME VARCHAR(31) NOT NULL, 
    SQL_TEXT BLOB SUB_TYPE 1 SEGMENT SIZE 80 NOT NULL 
); 

ALTER TABLE DDL_LOG ADD PRIMARY KEY (ID); 

SET TERM ^ ; 

CREATE OR ALTER TRIGGER TRIG_DDL_LOG_AFTER 
ACTIVE AFTER ANY DDL STATEMENT POSITION 0 
AS 
BEGIN 
  INSERT INTO DDL_LOG (ID, 
                       MOMENT, 
                       USER_NAME, 
                       EVENT_TYPE, 
                       OBJECT_TYPE, 
                       DDL_EVENT, 
                       OBJECT_NAME, 
                       SQL_TEXT) 
  VALUES (NEXT VALUE FOR DDL_SEQ, 
          CURRENT_TIMESTAMP, 
          CURRENT_USER, 
          RDB$GET_CONTEXT('DDL_TRIGGER', 'EVENT_TYPE'), 
          RDB$GET_CONTEXT('DDL_TRIGGER', 'OBJECT_TYPE'), 
          RDB$GET_CONTEXT('DDL_TRIGGER', 'DDL_EVENT'), 
          RDB$GET_CONTEXT('DDL_TRIGGER', 'OBJECT_NAME'), 
          RDB$GET_CONTEXT('DDL_TRIGGER', 'SQL_TEXT')); 
END^ 

SET TERM ; ^ 

--------------------------------- 

set term ^; 

create procedure p1 
as 
begin 
end^ 

set term ;^ 

comment on procedure p1 is 'my proc'; 

drop procedure p1; 

ID	MOMENT	USER_NAME	EVENT_TYPE	OBJECT_TYPE	DDL_EVENT	OBJECT_NAME	SQL_TEXT 
1	04.03.2014 22:00:42	SYSDBA	 CREATE	PROCEDURE	CREATE PROCEDURE	P1	
2	04.03.2014 22:00:42	SYSDBA	 DROP	PROCEDURE	DROP PROCEDURE	P1

ALTER SEQUENCE SEQ_1 RESTART WITH 1;

ALTER DATABASE SET LINGER TO 60;
ALTER DATABASE DROP LINGER;