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)
        zfieldtoadd = afieldname + " " + afieldtype + ;
            "(" + LTRIM(STR(afieldsize)) + ")"
        SELECT (oldtable)
        ALTER TABLE (oldtable) add column (zfieldtoadd)
    ENDDO

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