VCPDbDeleteRec
int VCPDbDeleteRec(UInt idx);
# define VCPDbDeleteRec(a) VCPDbDeleteRecx(a, __FILE__, __LINE__)
//ENDH
/*******************************************
 
    deletes a record

    returns an error or 0 if O.K.

********************************************/
int VCPDbDeleteRecx(UInt idx, char *fname, long lnr)
{
	int rc;
        VoidHand hnd;

	if (VCPINTOpenFlag==FALSE){
		VCPDbErrorFlag=VCPINTDBNOTOPEN;
		VCPINTDbErrorDisplay(fname, lnr);
		return(VCPINTDBNOTOPEN);
	}

	hnd=DmQueryRecord(VCPINTDbRef, idx);
	if (hnd==0){
		VCPDbErrorFlag=VCPINTRECNOTFOUND;
		VCPINTDbErrorDisplay(fname, lnr);
		return(VCPINTRECNOTFOUND);
	}
	rc=DmRemoveRecord(VCPINTDbRef, idx);
	if (rc!=0){
		VCPDbErrorFlag=rc;
		VCPINTDbErrorDisplay(fname, lnr);
		return(rc);
	}

	return(0);
}