%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);

非常感谢，我加问一下，我想在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;