LPARAMETERS curtable, oldtable
LOCAL old,cur,afieldname,afieldtype,afieldsize,zfieldtoadd

  old = FCOUNT(oldtable)
  cur = FCOUNT(curtable)

  SELECT (curtable)
    = AFIELDS(aMyStruc, (curtable))  && structure array for currentfile
    do while old <= cur 
        old = old + 1
        afieldname  = aMyStruc(old,1)
        afieldtype  = aMyStruc(old,2)
        afieldsize  = aMyStruc(old,3)
        afielddeci  = aMyStruc(old,4)
        IF afielddeci # 0
            zfieldtoadd = afieldname + [ ] + afieldtype + [(] + TRANSFORM(afieldsize) + [,]+TRANSFORM(afielddeci) + [)]
        ELSE
            zfieldtoadd = afieldname + [ ] + afieldtype + [(] + TRANSFORM(afieldsize) + [)]
        ENDIF

        SELECT (oldtable)
        ALTER TABLE (oldtable) ADD COLUMN &zfieldtoadd
    ENDDO

    SELECT (curtable)
    INSERT INTO (curtable) SELECT * FROM (oldtable)