What is the purpose of this code?

>hi all,
>
>i try this code before it works, i try it again i get error message syntax error
>
>

>thisform.text11.Value=GETFILE('xls')
>
>IMPORT FROM (thisform.text11.value) TYPE xls
>
>use JUSTSTEM(thisform.text11.value)
>tt=JUSTSTEM(thisform.text11.value)
>USE (tt) excl
>
>
>ALTER TABLE (TT) ADD COLUMN TXPNO C(19)
>ALTER TABLE (TT) ADD COLUMN YEARe C(6)
>ALTER TABLE (TT) ADD COLUMN INFTYPE C(2)
>ALTER TABLE (TT) ADD COLUMN INFDATE C(12)
>ALTER TABLE (TT) ADD COLUMN OFFCODE C(6)
>ALTER TABLE (TT) ADD COLUMN ENTRYID C(15)
>ALTER TABLE (TT) ADD COLUMN ENTDATE C(12)
>ALTER TABLE (TT) ADD COLUMN CONFFLAG C(3)
>ALTER TABLE (TT) ADD COLUMN CONFID C(12)
>ALTER TABLE (TT) ADD COLUMN CONFDATE C(12)
>
>replace TXPNO WITH THISFORM.TEXT1.Value
>replace YEARe WITH THISFORM.TEXT2.Value
>replace INFTYPE WITH THISFORM.TEXT3.Value
>replace INFDATE WITH THISFORM.TEXT4.Value
>replace OFFCODE WITH THISFORM.TEXT5.Value
>replace ENTRYID WITH THISFORM.TEXT6.Value
>replace ENTDATE WITH THISFORM.TEXT7.Value
>replace CONFFLAG WITH THISFORM.TEXT8.Value
>replace CONFID WITH THISFORM.TEXT9.Value
>replace CONFDATE WITH THISFORM.TEXT10.Value
>
>USE (tt) excl
>
>FOR gnCount = 1 TO FCOUNT( )
>   m.OldName =  FIELD(gnCount)
>   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))
>
>   *******************************************************
>   ALTER TABLE (tt) RENAME COLUMN (m.OldName) TO (m.NewName)&& syntax error
>next
>

>
>thank you
>
>thanks