***************************************************** *** This proggie will create a table with all *** *** the dbf's listing their field names and their *** *** field types and size. This table will be *** *** used to create a report to allow context *** *** ID's to be easily assigned for the subsystem *** ***************************************************** PRIVATE ALL LIKE * CLOSE DATABASES && I want nice clean workareas SET DEFA TO GETDIR() && select the directory to work ADBFNUMBER = ADIR(ADBF, '*.DBF') && Create array of DBF's FOR NCOUNT = 1 TO ADBFNUMBER && Loop for number of DBFs THE_TABLE = ADBF(NCOUNT,1) && Create the name variable SELE 0 && To allow for future maint. USE &THE_TABLE && Use the table to get the info COPY STRU EXTE TO DELETEME && Lets get the info for The_Table USE SELE 0 && To allow for future maint. USE DELETEME && Lets open the table with the info REPLACE TABLE_NAME WITH THE_TABLE ALL && place the table name in SELE 0 && To allow for future maint. USE q:\home\jjohnsto\source\pack\zTblRepo && our MAIN table of fields APPE FROM DELETEME && This will get the info on The_Table SELE DELETEME && Lets go clean up use && avoid sharing violations DELE FILE DELETEME.* && Get rid of it all CLOSE DATA && House cleaning ENDFOR && NCOUNT = 1 TO ADBFNUMBER
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams