CREATE TABLE test2 (f1 c(10), f2 c(10))
APPEND BLANK
SELECT * from test2 INTO CURSOR ctest READWRITE
ALTER TABLE ctest drop COLUMN f2

****************************************
>** build a table for exporting
>** a maximum of 9 sub queries can be used with a select
>** so multiple selects are required
>
>*feature.toolset.tooltype.inspectionset
>Select *;
>	from dbtwiz!tactualdata ;
>	left Join dbtwiz!tparams ;
>	ON Thisform.zgetfeature(tactualdata.fkey) == Alltrim(tparams.ffeature) And ;
>	Thisform.zgettoolsettype(tactualdata.fkey) == Alltrim(tparams.ftoolset) ;
>	LEFT Join dbtwiz!tinspset ;
>	ON Thisform.zgetisnum(tactualdata.fkey) == tinspset.fisnum ;
>	LEFT Join dbtwiz!ttooltype ;
>	ON Thisform.zgetttnum(tactualdata.fkey) == ttooltype.ftnum ;
>	LEFT Join dbtwiz!tinvlocation ;
>	ON  Thisform.zgetnum(tactualdata.fkey,'ttool.fbinnum') == tinvlocation.fbinnum ;
>	LEFT Join dbtwiz!tcurlocation ;
>	ON  Thisform.zgetnum(tactualdata.fkey,'ttool.flocnum') == tcurlocation.flocnum ;
>	LEFT Join dbtwiz!tpresstype ;
>	ON  Thisform.zgetnum(tactualdata.fkey,'ttool.fpressnum') == tpresstype.fpressnum ;
>	LEFT Join dbtwiz!tproduct ;
>	ON  Thisform.zgetnum(tactualdata.fkey,'ttool.fpnum') == tproduct.fpnum ;
>	LEFT Join dbtwiz!tvendor ;
>	ON  Thisform.zgetnum(tactualdata.fkey,'ttool.fvnum') == tvendor.fvnum ;
>	LEFT Join dbtwiz!tpo ;
>	ON  Thisform.zgetnum(tactualdata.fkey,'ttool.fponum') == tpo.fponum ;
>	WHERE Thisform.zgettoolset(tactualdata.fkey) == Thisform.ztoolset ;
>	Into Cursor cExport Readwrite
>
>**any additional subqueries must be added below this line.
>Select * ;
>	FROM cExport ;
>	LEFT Join dbtwiz!tvendordwg ;
>	ON  Thisform.zgetnum(cExport.fkey,'ttool.fvdwgnum') == tvendordwg.fvdwgnum ;
>	LEFT Join dbtwiz!thousedwg ;
>	ON  Thisform.zgetnum(cExport.fkey,'ttool.fhdwgnum') == thousedwg.fhdwgnum ;	
>	INTO Cursor cExport Readwrite
>
>SELECT cExport
>ALTER TABLE cExport drop COLUMN fkey
>BROWSE last
>
>*COPY TO ALLTRIM(thisform.cntgetfilemy1.cvalue+'Set-'+ALLTRIM(thisform.ztoolset)+'.dbf')