>>>LOCAL lcfile, lcalias, lcreclen, lafields, ; <b>lcClause, lnCount, lcFieldName, lcType, lnLength</b> >>><b>#DEFINE MAX_CLAUSES 20</b> >>>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 >>><b>lcClause = "" >> lnCount=0</b> >>> >>>lcfields = "" >>>SELECT schema >>>SCAN >>> <b>lnCount=m.lnCount +1</b> >>> lcFieldName = schema.desc >>> lnLength = schema.length >>> lcType = schema.type >>> <b>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</b> >>>ENDSCAN >><b>if !empty(m.lcClause) && Remainder >> alter table OhioStreets &lcClause >>endif</b>>>