VCPDbBeginWork
void VCPDbBeginWork(void);
void VCPINTDbErrorDisplay(char *fname, long lnr);
int VCPDbErrorFlag;
long VCPINTRecIdx;
int VCPINTLastCmd;
int VCPINTOpenFlag;
DmOpenRef VCPINTDbRef;
/* --------------------------------------------------------------------
 * internal ErrorNumbers of the V.C.P. DB-Manager
 */
# define VCPINTDBNOTFOUND 		(-1)
# define VCPINTUNSUCCESSFULLOPEN 	(-2)
# define VCPINTDBNOTOPEN 		(-3)
# define VCPINTRECNOTFOUND 		(-4)
# define VCPINTCOULDNOTINSERT 		(-5)
# define VCPINTCOULDNOTRESIZE		(-6)
# define VCPINTONEDBISOPEN		(-7)
//ENDH
/******************************************************

        Begin working with databases
        Initialize internal V.C.P.-fields

        Must be called as the FIRST VCPDb statement!!

*******************************************************/

void VCPDbBeginWork(void)
{
	
	VCPDbErrorFlag=0;
	VCPINTOpenFlag=FALSE;
}
/**************************************************************************/
# ifdef DEBUG

void VCPINTDbErrorDisplay(char *fname, long lnr)
{
int err;
char zwi2[64];
char zwi3[8];
char zwi[64];

	err=VCPDbErrorFlag;
	itoa(zwi, err);
	StrCat(zwi, ": unknown error");

/*
 * Pilot error codes
 */
if (err==dmErrInvalidDatabaseName) StrCopy(zwi, "dm Invalid database name");
if (err==dmErrAlreadyExists) StrCopy(zwi, "dm Database already exists");
if (err==dmErrCantFind) StrCopy(zwi, "dm Can't find DB");
if (err==dmErrCantOpen) StrCopy(zwi, "dm Can't open DB");
if (err==dmErrDatabaseOpen) StrCopy(zwi, "dm Database is open");
if (err==dmErrROMBased) StrCopy(zwi, "db DB is ROM based");
if (err==dmErrMemError) StrCopy(zwi, "dm Memory error");
if (err==dmErrNotValidRecord) StrCopy(zwi, "dm not a valid record");
if (err==dmErrWriteOutOfBounds) StrCopy(zwi, "dm Write out of bounds");
if (err==dmErrCorruptDatabase) StrCopy(zwi, "dm db corrupted");
if (err==dmErrIndexOutOfRange) StrCopy(zwi, "dm index out of range");
if (err==dmErrReadOnly) StrCopy(zwi, "dm db is readonly");
if (err==memErrCardNotPresent) StrCopy(zwi, "mem Card not present");
if (err==memErrChunkLocked) StrCopy(zwi, "mem Chunk locked");
if (err==memErrInvalidParam) StrCopy(zwi, "mem Invalid parameters");
if (err==memErrInvalidStoreHeader) StrCopy(zwi, "mem Invalid storage header");
if (err==memErrNotEnoughSpace) StrCopy(zwi, "mem Not enough space");
if (err==memErrRAMOnlyCard) StrCopy(zwi, "mem RAM only card");

/*
 * internal V.C.P. DB-Manager error codes
 */
if (err==VCPINTDBNOTFOUND) StrCopy(zwi, "V.C.P. db name not found");
if (err==VCPINTUNSUCCESSFULLOPEN) StrCopy(zwi, "V.C.P. unsuccessful open of db");
if (err==VCPINTDBNOTOPEN) StrCopy(zwi, "V.C.P. db is not open");
if (err==VCPINTRECNOTFOUND) StrCopy(zwi, "V.C.P. record not found");
if (err==VCPINTCOULDNOTINSERT) StrCopy(zwi, "V.C.P. could not insert record");
if (err==VCPINTCOULDNOTRESIZE) StrCopy(zwi, "V.C.P. could not resize record");
if (err==VCPINTONEDBISOPEN) StrCopy(zwi, "V.C.P. one db is already open");


	StrCopy(zwi2, "file=");
	StrCat(zwi2, fname);
	itoa(zwi3, lnr);
	StrCat(zwi2, "  line=");
	StrCat(zwi2, zwi3);
	VCPdebug("V.C.P. DB Manager", zwi2, zwi);
}
# endif
/**************************************************************************/
# ifndef DEBUG
	# define VCPINTDbErrorDisplay(x,y);
# endif