data x;
do i=200701 to 200912;
if 0<mod(i,100)<13 then output;
end;
run;

data step：
data _null_;
        x=intck('month','01Jan2007'd,'01Dec2009'd);
        do i=0 to x;
                z=put(intnx('month','01Jan2007'd,i),yymmn6.);
                put z;
        end;
run;

macro的话也一样，用sysfunc调函数就行了。

+88大法
......

到13就加88.....

原来大家也都是用的各种各样的算法来实现的.
看来没有直接的方法喽.

谢谢啦!