VCPDbDeleteDB
int VCPDbDeleteDB(char *dbname);
# define VCPDbDeleteDB(x) VCPDbDeleteDBx(x, __FILE__, __LINE__)
//ENDH
/**************************************************
	Deletes a database
	
	This function accepts a name. At first we
	have to get the local ID for the database.
	If the db is not found, an internal V.C.P.
	error is returned.

***************************************************/
int VCPDbDeleteDBx(char *dbname, char *fname, long lnr)
{
	int err;
	LocalID id;

	/* get the local id of the database */
	id=DmFindDatabase (0, dbname);
	if (id==0){
		VCPDbErrorFlag=VCPINTDBNOTFOUND;
		VCPINTDbErrorDisplay(fname, lnr);
		return(VCPINTDBNOTFOUND);
	}

	err=DmDeleteDatabase (0, id);
	if (err>0){
		VCPDbErrorFlag=err;
		VCPINTDbErrorDisplay(fname, lnr);
	}
	return(err);
}