>>LOCAL lcfile, lcalias, lcreclen, lafields >>#DEFINE MAX_CLAUSES 20 >>IF NOT USED('schema') >> USE schema IN 0 SHARED >>ENDIF >> >>CREATE TABLE OhioStreets(fieldnum I(4)) >> >>IF NOT used('OhioStreets') >> USE OhioStreets IN 0 EXCLUSIVE >>ENDIF >>SELECT schema >> >>GO top >>lcClause = "" > lnCount=0 >> >>lcfields = "" >>SELECT schema >>SCAN >> lnCount=m.lnCount +1 >> lcFieldName = schema.desc >> lnLength = schema.length >> lcType = schema.type >> lcClause = m.lcClause+ " ADD Column "+ ; > m.lcFieldName+" "+ m.lcType+'('+transform(m.lnLenght)+')' > if m.lnCount>= MAX_CLAUSES > alter table OhioStreets &lcClause >> lnCount=0 > lcClause ="" > endif >>ENDSCAN >if !empty(m.lcClause) && Remainder > alter table OhioStreets &lcClause >endif>