******************************************************************** * Description.......: GetDBCName (without opening a table) * Calling Samples...: * Parameter List....: * Created by........: Cetin Basoz * Modified by.......: ******************************************************************** lparameters tcTable local Handle, lnLowByte, lnHighByte, lnBackLinkStart, lcDBCName lcDBCName="" Handle=fopen(m.tcTable) if Handle>0 =fseek(Handle,8,0) && Header size store pos - header() lnLowByte = asc(fread(Handle,1)) lnHighByte = asc(fread(Handle,1))*256 lnBackLinkStart = lnHighByte + lnLowByte - 263 && Backlink at header()-263 =fseek(Handle,lnBackLinkStart,0) lcDBCName = fread(Handle,263) lcDBCName=left(m.lcDBCName,at(chr(0),m.lcDBCName)-1) =fclose(Handle) endif return m.lcDBCNam