function save_dictionary lParameters cDataPath close database mkdir temp && A frequently used dir mkdir struc && Structure keep dir =adir(dbase,cDataPath+"\*.dbf") set safe off create table struc\dbftags ; (filename c(12),tag c(10),key m(10),filter m(10),desc l(1),unique l(1)) create table struc\strulist ; (filename c(8),field_name c(10),field_type c(1),field_len n(3),field_dec n(3)) for db=1 to alen(dbase,1) dbname=left(dbase[db,1],at(".",dbase[db,1])-1) IF DBNAME="STRULIST" or DBNAME="DBFTAGS" or dbname=sys(2005) LOOP ENDIF select 0 use (dbname) copy structure extended to temp\laststr select strulist append from temp\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 databaseCetin