>>>>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>>>>