谁知道open后怎么close?

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

ERROR: You cannot open WORK.X.DATA for output access with member-level control because WORK.X.DATA
is in use by you in resource environment DMS Process.
一个程序运行2次后就提示这个问题了

1. data m;
   
2. input x y z j@;
   
3. cards;
   
4. 1 2 3 2
   
5. 2 3 4 3
   
6. 1 2 3 4
   
7. 8 1 9 5
   
8. 2 8 4 11
   
9. 1 2 3 20
   
10. 10 5 6 5
    
11. 4 2 6 6
    
12. 7 5 6 5
    
13. 2 3 7 1
    
14. 9 5 6 5
    
15. 1 0 7 6
    
16. 8 3 6 5
    
17. ;
    
18. run;
    
19. proc transpose data=m out=x;var _all_;run;
    
20. %let c=%sysfunc(open(x,i));%let n=%eval(%sysfunc(attrn(&c,nvars))-1);
    
21. data x1;set x;array x _char_ _name_ ;array z(*)   col1-col&n;
    
22. do i=1 to dim(z);if z(i)=max(of col1-col&n) then c=i;end;
    
23. do i=1 to dim(z);if z(i)<max(of col1-col&n)&i<=c then z(i)=max(of col1-col&n);end;
    
24. do i=2 to dim(z);if z(i)>z(i-1) then z(i)=z(i-1);end;
    
25. drop i c;
    
26. run;
    
27. proc transpose data=x1 out=final(drop=_name_);run;
    
28. proc print data=x1;run;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Close Open Lose CLO Pen

%let c=%sysfunc(open(x,i))
%let close=%sysfunc(close(&c.))