I use temporary DBCs.
Here is the code for the temporary DBC as you requested.
DisplayStatus([Creating database...])
CLOSE DATA ALL
CREATE DATABASE '48037485.DBC'
DisplayStatus([Finished.])
FUNCTION DisplayStatus(lcMessage)
WAIT WINDOW NOWAIT lcMessage
ENDFUNC