来看看 数据分段问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. data a;
   
2. set WORK.ABC;
   
3. run;
   
4. proc sql ;
   
5. create table b as
   
6. select count(*) as count,*
   
7. from a
   
8. order by ORG_COL_641298
   
9. ;
   
10. quit;
    
11. data c;
    
12. set b;
    
13. j=int(count/500)+1;
    
14. call symput('j',j);
    
15. run;
    
16. %macro loop;
    
17. %do i=1 %to &j.;
    
18. k=(i-1)*500+1;
    
19. call symput('k',k);
    
20. proc export data=c(firstobs=&k. obs=500);
    
21. outfile="D:\ritter\vocceq&k..txt" ;
    
22. run;
    
23. %end;run;
    
24. %mend loop;
    
25. %loop;

复制代码

DATA.ABC里有10000+条数据，现在需要每500条一段进行分割，我按照我上面的写法（乱写的）来运行，但是提示&k.那里出错了，我怎么改也不行，不知道各位有什么好方法 或者有没有另外的想法

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：proc sql symput export ritter Create

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
直接改写了代码
可能会解决楼主的问题

1. data abc;do p=1 to 10001;output;end;run;
   
2. 
   
3. data _null_;
   
4.         set abc nobs=n;
   
5.         call symput("NOBS",n);
   
6.         stop;
   
7. run;
   
8. %put &NOBS;
   
9. 
   
10. %MACRO T;
    
11.         data _null_;
    
12.                 set abc;
    
13.                 n+1;
    
14.                 %do i=1 %to %sysfunc(ceil(&NOBS/500)) %by 1;
    
15.                         %if &i>=2 %then %do;
    
16.                                 else
    
17.                         %end;
    
18.                         if ceil(n/500)=&i then do;
    
19.                                 file "e:\hahaha&i..txt";
    
20.                                 put p;
    
21.                         end;
    
22.                 %end;
    
23. 
    
24.         run;
    
25. 
    
26. %MEND T;
    
27. %T;

复制代码

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

6# soporaeternus

楼上的肯定是正解。只是就yz7891的程序来论：

1. 
   
2. %macro loop;
   
3. proc sort data = work.abc out = b; by ORG_COL_641298; run;
   
4. data _null_; call symputx('tot', ceil(nobs/500));
   
5. set b nobs = nobs; stop;
   
6. run;
   
7. %do i = 1 %to &tot;
   
8. proc export data = b(firstobs =%eval((&i-1)*500+1) obs = %eval((&i-1)*500+500)) outfile="D:\ritter\vocceq&i..txt" ;
   
9. run;
   
10. %end;
    
11. %mend loop;
    
12. %loop
    
13. ;

复制代码

soporaeternus 发表于 2010-4-22 22:38

1. data abc;do p=1 to 10001;output;end;run;
   
2. 
   
3. data _null_;
   
4.         set abc nobs=n;
   
5.         call symput("NOBS",n);
   
6.         stop;
   
7. run;
   
8. %put &NOBS;
   
9. 
   
10. %MACRO T;
    
11.         data _null_;
    
12.                 set abc;
    
13.                 n+1;
    
14.                 %do i=1 %to %sysfunc(ceil(&NOBS/500)) %by 1;
    
15.                         %if &i>=2 %then %do;
    
16.                                 else
    
17.                         %end;
    
18.                         if ceil(n/500)=&i then do;
    
19.                                 file "e:\hahaha&i..txt";
    
20.                                 put p;
    
21.                         end;
    
22.                 %end;
    
23. 
    
24.         run;
    
25. 
    
26. %MEND T;
    
27. %T;

复制代码

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

程序中
%if &i>=2 %then %do;
                                else
                        %end;
是做什么的呢？貌似去掉了也能跑

谢谢大家，问题已经解决了，多谢大家了

8# 醉_清风
if-else和if效率的问题