execute ibeblock as begin
	NewBase = ibec_GetGlobalVar('dstbase', '');	
	ibec_Progress('***********  Creating database '||:NewBase);	
	NewDB = ibec_CreateDatabase(__ctFirebird, 'DBName='||:NewBase||'; User=SYSDBA; Password=masterkey; PageSize=8192; DefaultCharset=UTF8; SQLDialect=1');
	ibec_Progress('*********** Database '||:NewBase||' created');	
	ibec_Progress('*********** creating database objects ');
	ibec_UseConnection(NewDB);	
	CREATE DOMAIN DOM_CNUM AS	VARCHAR(45);
	commit;
	ibec_CloseConnection(NewDB);
end