data a;
set WORK.ABC;
run;
proc sql ;
create table b as
select count(*) as count,*
from a
order by ORG_COL_641298
;
quit;
data c;
set b;
j=int(count/500)+1;
call symput('j',j);
run;
%macro loop;
data _null_;
do i=1 to &j.;
k=(i-1)*500+1;
end;
call symput('a'||left(i),k);
run;
%do i=1 %to &j.;
proc export data=c(firstobs=&&a&i. obs=500);
outfile="D:\ritter\vocceq&&a&i..txt" ;
run;
%mend loop;
%loop;

你看看行不行
你的程序估计是因为K值时循环得出的
你又循环赋值给宏变量
导致宏变量K就是不稳定的一个对象

data abc;do p=1 to 10000;output;end;run;
data _null;set abc end=a;
if a then call symput('j',ceil(_n_/500));run;
%macro loop;
%do i=1 %to &j ;
data abc&i;
set abc;
if (_n_>500*&i-500 and _n_<500*&i) then output  abc&&i;
run; proc export data=abc&i
outfile="D:\ritter\abc&i..txt";
run;
%end;
%mend loop;
%loop;

呵呵
sushe1527
直接改写了代码
可能会解决楼主的问题

改良下，全表遍历一次，不输出到data，可能会快一点