I have 153 Dbase/Foxbase tables that i created manually using dbase/foxbase.
I want to use a program to create these tables when needed.
They will be created using the command Dbcreate.
Example. To create the CUSTOMER table.
aDbStru := {{"CUS_CD", "C", 6,0}, ;
{"NAME", "C", 35,0}, ;
{"FNAME", "C", 15,0}, ;
{"LNAME", "C", 15,0}, ;
{"TITLE", "C", 15,0}, ;
{"ADDR1", "C", 35,0}, ;
{"ADDR2", "C", 35,0}, ;
{"CITY", "C", 15,0}, ;
{"STATE", "C", 2,0}, ;
{"ZIP", "C", 10,0}, ;
{"EMAIL", "C", 40,0}}
Dbcreate ("CUSTOMER",aDbStru)
Your job will be to pull up the structure of the tables and type in the array (as above) to create the table.
You can simply cut and paste.
I use the program "DBFVewer", [login to view URL] to view the structures.
## Deliverables
aDbStru := {{"CUS_CD", "C", 6,0}, ;
{"NAME", "C", 35,0}, ;
{"FNAME", "C", 15,0}, ;
{"LNAME", "C", 15,0}, ;
{"TITLE", "C", 15,0}, ;
{"ADDR1", "C", 35,0}, ;
{"ADDR2", "C", 35,0}, ;
{"CITY", "C", 15,0}, ;
{"STATE", "C", 2,0}, ;
{"ZIP", "C", 10,0}, ;
{"DISCPCNT", "N", 5,2}, ;
{"LSTPURCH", "D", 8,0}, ;
{"LSTPUAMT", "C", 11,2}, ;
{"LSTPAYMT", "D", 8,0}, ;
{"YTDPURCH", "N", 11,2}, ;
{"YTDCOST", "N", 11,2}, ;
{"LYRPURCH", "N", 11,2}, ;
{"LYRCOST", "N", 11,2}, ;
{"ACC_TYPE", "C", 6,0}, ;
{"SERVCHCD", "N", 1,0}, ;
{"MISC", "N", 8,4}, ;
{"TERMSCD", "C", 1,0}, ;
{"CRED_LIMIT", "N", 11,2}, ;
{"OPNCRED", "N", 11,2}, ;
{"BALANCE", "N", 11,2}, ;
{"BALFWD", "N", 11,2}, ;
{"AUTODSPL", "C", 1,0}, ;
{"CATEGORY", "C", 6,0}, ;
{"CHANGED", "C", 1,0}, ;
{"PRICE", "C", 1,0}, ;
{"SMAN", "C", 4,0}, ;
{"TAXED", "C", 1,0}, ;
{"BILL", "C", 6,0}, ;
{"STATEMENT", "C", 1,0}, ;
{"TAXTYPE", "C", 6,0}, ;
{"TAXNO", "C", 25,0}, ;
{"ALERT", "C", 1,0}, ;
{"ALTMSG", "C", 35,0}, ;
{"BILLTO", "C", 6,0}, ;
{"SHIPTO", "C", 6,0}, ;
{"FOB", "C", 12,0}, ;
{"BUYER", "C", 12,0}, ;
{"CONFTO", "C", 12,0}, ;
{"KEY1", "C", 12,0}, ;
{"KEY2", "C", 12,0}, ;
{"UD1", "C", 34,0}, ;
{"UD2", "C", 34,0}, ;
{"SOURCE", "C", 34,0}, ;
{"LCALL", "D", 8,0}, ;
{"RCALL", "D", 8,0}, ;
{"START", "D", 8,0}, ;
{"CARD", "C", 25,0}, ;
{"EXPMT", "N", 2,0}, ;
{"EXPYR", "N", 2,0}, ;
{"EXPDATE", "C", 4,0}, ;
{"NCARD", "C", 25,0}, ;
{"CADDR1", "C", 30,0}, ;
{"CADDR2", "C", 30,0}, ;
{"CCITY", "C", 20,0}, ;
{"CSTATE", "C", 2,0}, ;
{"ZCARD", "C", 10,0}, ;
{"CCCODE", "C", 6,0}, ;
{"NOTE", "M", 10,0}, ;
{"TEXT", "M", 10,0}, ;
{"CHPD", "C", 1,0}, ;
{"CHTM", "C", 1,0}, ;
{"CHCL", "C", 1,0}, ;
{"CHMS", "C", 1,0}, ;
{"CONFIG", "C", 10,0}, ;
{"SUPPORT", "C", 1,0}, ;
{"SUPDATE", "D", 8,0}, ;
{"VIA", "C", 12,0}, ;
{"MESSAGE", "M", 10,0}, ;
{"LOC", "C", 2,0}, ;
{"EMAIL", "C", 40,0}}
Dbcreate ("CUSTOMER",aDbStru)
This is for the CUSTOMER table, it is the largest and hardest.
Just cust- paste and edit for the other tables.
Other tables attached.