>CLEAR >CLOSE DATABASES ALL >lcCmd = [CREATE TABLE Testxxx ( cc C(20), mm M] + [)] >= ShowTableType(lcCmd,48) >lcCmd = [CREATE TABLE Testxxx ( cc C(20), mm M] + [, ii I AUTOINC] + [)] >= ShowTableType(lcCmd,49) >lcCmd = [CREATE TABLE Testxxx ( cc C(20), mm M, ii I AUTOINC] + [, vv v(20)] + [)] >= ShowTableType(lcCmd,50) >lcCmd = [CREATE TABLE Testxxx ( cc C(20), mm M, ii I AUTOINC] + [, qq Q(20)] + [)] >= ShowTableType(lcCmd,50) >lcCmd = [CREATE TABLE Testxxx ( cc C(20), mm M, ii I AUTOINC] + [, ww W] + [)] >= ShowTableType(lcCmd,50) >cCmd = [CREATE TABLE Testxxx ( cc V(20), mm M] + [)] >= ShowTableType(lcCmd,67) >RETURN >*------------------------------------------------------- > >FUNCTION ShowTableType(tcCmd, tnExpected) >&tcCmd >USE >lnTableType = ASC(FILETOSTR("Testxxx.dbf")) >? >? lcCmd >? "Table Type: " + TRANSFORM(lnTableType ) >IF lnTableType <> tnExpected > ?? " - Expected ", TRANSFORM(tnExpected) >ENDIF >RETURN >>>