VCPDbCreateDB
int VCPDbCreateDB(char *dbname, ULong dbcreatorid, ULong dbtype);
# define VCPDbCreateDB(a, b, c) VCPDbCreateDBx(a, b, c, __FILE__, __LINE__)
//ENDH
/***********************************************
 
    Create a database

    dbname	= name of the database
    dbcreator	= 4 byte CreatorID of the application
    dbtype	= 4 byte Type of DB, e.g. data

	returns 0 if o.k.
************************************************/
int VCPDbCreateDBx(char *dbname, ULong dbcreatorid, ULong dbtype,
                   char *fname, long lnr){
int rc;

	rc=DmCreateDatabase(0, dbname, dbcreatorid, dbtype, FALSE);
	if (rc>0){
		VCPDbErrorFlag=rc;
		VCPINTDbErrorDisplay(fname, lnr);
	}
	return(rc);
}