首先我的原始数据是有代码和姓名组成的表
要求：
一、代码和姓名组成一个新字段，例如“ZP0001”、 “张一”组成“ZP0001张一”
二、批量生成空白word文档，文件名为上面生成的新字段名，例如：“ZP0001张一.doc”
下面一段代码可以达到要求，请教大虾，怎么让它自动循环，批量完成任务，万分感谢！
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;