请教个循环命令

调用多个表，名字为 c201,c202,c203,c301,c313,c606


use c:\101.dbf EXCLUSIVE          &&101表是固定的   
COPY TO c:\c201.dbf EXCLUSIVE     &&c201表名是变化的 后面换成多个表，名字为 c202,c203,c301,c313,c606
alter table  c:\c201.dbf  ADD 上报日期 c(20) &&加一列 上报日期
alter table  c:\c201.dbf  ADD 本月累 n(20,0)
alter table  c:\c201.dbf  ADD 同期本月累 n(20,0)
alter table  c:\c201.dbf  ADD 本累拉动 n(20,0)

sele a
use c:\b203本月累.dbf          &&b203本月累表是固定的
inde on zzjgdm tag a1
sele b
use c:\c201.dbf                &&c201表名是变化的 后面换成多个表，名字为 c202,c203,301,c313,c606
inde on zzjgdm tag b1
set rela to zzjgdm into a
repl all 上报日期 with (a.a005)  
&& sele a 中 (b203本月累 表) 指标a005是固定的
repl all 本月累 with (a.c201_1)  
&& sele a 中 (b203本月累 表) 指标c201_1是变化的，
&&后面换成多个指标，名字为 c202_1,c203_1,c301_1,c313_1,c606_1 （与变化的表名一致）

repl all 同期本月累 with (a.c201_2)   
&&同上指标c201_2是变化的，
&&后面换成多个指标，名字为 c202_2,c203_2,c302_2,c313_2,c606_2 （与变化的表名一致）

sum a.c201_2 to a
&&同上指标c201_2是变化的，
&&后面换成多个指标，名字为 c202_2,c203_2,c302_2,c313_2,c606_2 （与变化的表名一致）

repl all 本累拉动 with (a.c201_1-a.c201_2)/a*100   
&&同上

sele b
use c:\c201.dbf
COPY TO c:\c201a.dbf

&&c201a表名是变化的 后面换成多个表，名字为 c202a,c203a,c301a,c313a,c606a

请问怎么循环
谢谢

老师能说的细点么 我不太会 谢谢

为了工作方面 自己编个程序 不太会 所以求老师帮助

use c:\101.dbf EXCLUSIVE         
COPY TO c:\c201.dbf EXCLUSIVE     
alter table  c:\c201.dbf  ADD 上报日期 c(20) &&加一列 上报日期
alter table  c:\c201.dbf  ADD 本月累 n(20,0)
alter table  c:\c201.dbf  ADD 同期本月累 n(20,0)
alter table  c:\c201.dbf  ADD 本累拉动 n(20,0)
sele a
use c:\b203本月累.dbf         
inde on zzjgdm tag a1
sele b
use c:\c201.dbf               
inde on zzjgdm tag b1
set rela to zzjgdm into a
repl all 上报日期 with (a.a005)  
repl all 本月累 with (a.c201_1)  
repl all 同期本月累 with (a.c201_2)   
sum a.c201_2 to a
repl all 本累拉动 with (a.c201_1-a.c201_2)/a*100   
sele b
use c:\c201.dbf
COPY TO c:\c201a.dbf
生成第一个表 c201 c201a

use c:\101.dbf EXCLUSIVE         
COPY TO c:\c202.dbf EXCLUSIVE     
alter table  c:\c202.dbf  ADD 上报日期 c(20) &&加一列 上报日期
alter table  c:\c202.dbf  ADD 本月累 n(20,0)
alter table  c:\c202.dbf  ADD 同期本月累 n(20,0)
alter table  c:\c202.dbf  ADD 本累拉动 n(20,0)
sele a
use c:\b203本月累.dbf         
inde on zzjgdm tag a1
sele b
use c:\c202.dbf               
inde on zzjgdm tag b1
set rela to zzjgdm into a
repl all 上报日期 with (a.a005)  
repl all 本月累 with (a.c202_1)  
repl all 同期本月累 with (a.c202_2)   
sum a.c202_2 to a
repl all 本累拉动 with (a.c202_1-a.c202_2)/a*100   
sele b
use c:\c202.dbf
COPY TO c:\c202a.dbf
生成第二个表 c202 c202a

use c:\101.dbf EXCLUSIVE         
COPY TO c:\c203.dbf EXCLUSIVE     
alter table  c:\c203.dbf  ADD 上报日期 c(20) &&加一列 上报日期
alter table  c:\c203.dbf  ADD 本月累 n(20,0)
alter table  c:\c203.dbf  ADD 同期本月累 n(20,0)
alter table  c:\c203.dbf  ADD 本累拉动 n(20,0)
sele a
use c:\b203本月累.dbf         
inde on zzjgdm tag a1
sele b
use c:\c203.dbf               
inde on zzjgdm tag b1
set rela to zzjgdm into a
repl all 上报日期 with (a.a005)  
repl all 本月累 with (a.c203_1)  
repl all 同期本月累 with (a.c203_2)   
sum a.c203_2 to a
repl all 本累拉动 with (a.c203_1-a.c203_2)/a*100   
sele b
use c:\c203.dbf
COPY TO c:\c203a.dbf
生成第三个表 c203 c203a

就是如果我要生成好多表怎么弄 比如c201 c202 c203 c401 c606 等等 我就得把命令复制好多遍 如果有循环命令 就能用一个命令了 就不用那么多重复的行了  

十分感谢