VCPDbOpenDB
int VCPDbOpenDB(char *dbname, UInt mode);
# define VCPDbOpenDB(a, b) VCPDbOpenDBx(a, b, __FILE__, __LINE__)
//ENDH
/*******************************************************************
	opens a database

      	dbname  	= name of database, e.g., "TESTDB"
	mode		= open mode
			dmModeReadWrite Read-write access.
			dmModeReadOnly  Read-only access.
			dmModeLeaveOpen Leave database open even after
					application quits.
			dmModeExclusive Dont let anyone else open it.

	returns 0 on success or error code

********************************************************************/
int VCPDbOpenDBx(char *dbname, UInt mode, char *fname, long lnr)
{
	DmOpenRef ref;
	LocalID	lid;
	
	if (VCPINTOpenFlag==TRUE){
		VCPDbErrorFlag=VCPINTONEDBISOPEN;
		VCPINTDbErrorDisplay(fname, lnr);
		return(VCPINTONEDBISOPEN);
	}
	lid=DmFindDatabase(0, dbname);
	if (lid==0){
		VCPDbErrorFlag=VCPINTUNSUCCESSFULLOPEN;
		VCPINTDbErrorDisplay(fname, lnr);
		return(VCPINTUNSUCCESSFULLOPEN);
	}
	ref=DmOpenDatabase(0, lid, mode);
	if (ref==0){
		VCPDbErrorFlag=VCPINTUNSUCCESSFULLOPEN;
		VCPINTDbErrorDisplay(fname, lnr);
		return(VCPINTUNSUCCESSFULLOPEN);
	}
	VCPINTDbRef=ref;
	VCPINTOpenFlag=TRUE;
	return(0);
}
