VCPDbDBList
int VCPDbDBList(ULong creatorid, ULong dbtype, char *lst);
//ENDH
int VCPDbDBList(ULong creatorid, ULong dbtype, char *lst)
/**************************************************
        return a list of all db with creatorid/dbtype
	the items in the list are separated with a tab
 	\t character.

        returns 0, if no found 
	otherwise the number of databases
****************************************************/
{
	int rc;
	DmSearchStateType statetype;
	LocalID lid;
	char dbname[32];

	lst[0]=0;
	rc=0;
	rc=DmGetNextDatabaseByTypeCreator(
		TRUE,&statetype,dbtype,
		creatorid,TRUE,0,&lid);
	for(;;){
		if (rc!=0) break;
		if(StrLen(lst)) StrCat(lst, "\t");
		rc=DmDatabaseInfo (0, lid, dbname,0,0,0,0,0,0,0,0,0,0);
		StrCat(lst, dbname);
		rc=DmGetNextDatabaseByTypeCreator(
			FALSE,&statetype,dbtype,
			creatorid,TRUE,0,&lid);
	}
	return(rc);
}