>Does anybody (still) have a utility for comparing file structures and CDX tags that will work in DOS 2.6?
>
>Thanks
>
>Jack
>
>jbrosch@nylbsi.com

Jack,
If someone doesn't supply one for you this could be a starter :

Function save_dictionary
Lparameters tcDataDir, tcTempWorkDir
Close database
lnFiles=adir(arrDBF,tcDataDir+"\*.dbf")
Set safe off
Create table dbftags ;
  (filename c(12),tag c(10),key m(10),filter m(10),desc l(1),unique l(1))
Create table strulist ;
  (filename c(8),field_name c(10),field_type c(1),field_len n(3),field_dec n(3))
For db=1 to lnFiles
  dbname=left(arrDBF[db,1],at(".",arrDBF[db,1])-1)
  If dbname="STRULIST" or dbname="DBFTAGS" or dbname=sys(2005)
    Loop
  Endif
  Select 0
  Use (dbname)
  Copy structure extended to (tcTempWorkDir+'\laststr')
  Select strulist
  Append from (tcTempWorkDir+'\laststr')
  Replace all filename with dbname for empty(filename)
  Select (dbname)
  For tg=1 to tagcount()
    Insert into dbftags values ;
      (dbname,tag(tg,dbname),;
      key(tg,dbname),IIF(EMPTY(ALLTRIM(sys(2021,tg,dbname))), ;
      "",ALLTRIM(sys(2021,tg,dbname))),;
      descending(tg,dbname),unique(tg,dbname))
  Endfor
  Use
Endfor
Close database

Cetin