想用SAS宏生成文本

请问各位老师，我想用SAS宏生成批量的文本，请问应该什么写呢？

例如，我想生成如下效果：

1. abc02nam
   
2.   AFTER ENTRY
   
3.     IF abc02nam=. THEN
   
4.       GOTO efg
   
5.     ENDIF
   
6.   END
   
7. END
   
8. 
   
9. abc03nam
   
10.   AFTER ENTRY
    
11.     IF abc03nam=. THEN
    
12.       GOTO efg
    
13.     ENDIF
    
14.   END
    
15. END

复制代码

代码段中，只有两段文本，我想做个宏产生大量的这样的语句；我想做成的效果大概如下：

%macro creat(nam,num);

%do i=1 %to #   //用一个循环产生大量的文本
abc&i.nam
  AFTER ENTRY
    IF abc&i.nam=. THEN
      GOTO efg
    ENDIF
  END
END

(space)
%end;

%mend;

意思就是这样，请各位老师给予帮助，非常感谢！！！

%macro creat(num);
%do i=1 %to #
%if &i<10 %then %do;
%put
abc0&i.nam
  AFTER ENTRY
    IF abc0&i.nam=. THEN
      GOTO efg
    ENDIF
  END
END

(space);
%end;
%else %do;
%put
abc&i.nam
  AFTER ENTRY
    IF abc&i.nam=. THEN
      GOTO efg
    ENDIF
  END
END

(space);
%end;
%end;
%mend;

%creat(10);

data ex;
input text:$200.;
cards;
run;

%macro creat(num);
proc sql;
%do i=1 %to &num;
%if &i<10 %then %do;
insert into ex  values
("abc0&i.nam
  AFTER ENTRY
    IF abc0&i.nam=. THEN
      GOTO efg
    ENDIF
  END
END

(space)");
%end;
%else %do;
insert into ex  values
("abc&i.nam
  AFTER ENTRY
    IF abc&i.nam=. THEN
      GOTO efg
    ENDIF
  END
END

(space)");
%end;
%end;
quit;
%mend;

%creat(10);

ziyenano 发表于 2012-10-27 22:41
data ex;
input text:$200.;
cards;

非常感谢，我加问一下，我想在log中简单输出的行吗？因为再新用sql建表不太方便，我想能出来的结果就是类似：

abc01nam
。。。
end

abc02nam
。。。
end

。。。

这样的形式，谢谢啊首先。

Why need a macro, it can easily done in a data step.

data text;

do i=1 to 5;
        x=catt('abc',put(i, z5.), ' AFTER ENTRY    IF abc', put(i, z5.),
               'nam=. THEN      GOTO efg    ENDIF  ENDEND(space)');
        output;
end;
run;

proc print;run;