Procedure to Create Domain if not exist (Firebird) - By Fabiano P.

0-Procedure-create-if-no-exist-Domain-Firebird-Fabiano.sql

create or alter procedure DOM
as
declare variable COMANDO varchar(200);
begin
  if (not exists(select
                   RDB$FIELD_NAME
                 from
                   RDB$FIELDS
                 where
                   upper(RDB$FIELD_NAME) = 'VARCHAR_70')) then
  begin
     COMANDO = 'CREATE DOMAIN VARCHAR_70 AS VARCHAR(70)';
     execute statement COMANDO;
  end

end;

GRANT EXECUTE ON PROCEDURE DOM TO SYSDBA;
commit;

execute procedure DOM;
commit;