LPARAMETERS cExtendedStru,cOutFile lcCreateCmd = [] SELECT (cExtendedStru) SCAN IF EMPTY(lcCreateCmd) lcCreateCmd = lcCreateCmd + [Create Table ] + cOutFile + [ (] ELSE lcCreateCmd = lcCreateCmd + ',' ENDIF lcCreateCmd = lcCreateCmd + ALLTRIM(Field_Name) + [ ] + ; Field_Type + [(] + TRANSFORM(Field_Len) + IIF(Field_Dec>0,TRANSFORM(Field_Dec),'') + [)] ENDSCAN lcCreateCmd = lcCreateCmd + [)] WAIT WINDOW lcCreateCmd &lcCreateCmdAloha,