请教：怎么能让写好的一段代码循环执行。

shiyiming

首先我的原始数据是有代码和姓名组成的表
要求如下：
一、代码和姓名组成一个新字段，例如“ZP0001”、 “张一”组成“ZP0001张一”
二、批量生成空白word文档，文件名为上面生成的新字段名，例如：“ZP0001张一.doc”
下面一段代码可以达到要求，请教大虾，怎么让它自动循环，批量完成任务，万分感谢！
[code:tdm65e2q]data tm;
input ID $ name $ @@;
cards;
ZP0001 张一
ZP0002 王二
ZP0003 李三
ZP0004 赵四
;
data tm1;
set tm;
length filename $ 10;
filename=strip(catt(ID,name));
run;
proc sql noprint;
select filename into :filename from tm1;
quit;


ods rtf file="C:\Documents and Settings\Administrator\桌面\&filename..rtf";
ods rtf close;
ods listing;[/code:tdm65e2q]

shiyiming

自己先鼎一下。
解决这个问题能不能从数组着手，或者利用下宏之类的，请高手指点个思路也行撒