SAS基础宏之13：DropEmptyTables

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

删除指定逻辑库中的空表，可以使用SQL形式的通配符，即_和%

1. %macro DropEmptyTables(LibName,Filter);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏用于删除指定逻辑库中的空表，也即观测值为零的表格。其中LibName  */
   
5. /* 是指定逻辑库名称；Filter是文件过滤设置，=Null时删除全部空表，包含  */
   
6. /* _和%等SQL中like子句的通配符时删除指定前后缀的空表，不包含任何通配  */
   
7. /* 符时删除指定空表，若指定表不为空则不删除。                         */
   
8. /*                                                                    */
   
9. /* 最终指定逻辑库下所有符合条件的空表全部被删除。                     */
   
10. /*                                                                    */
    
11. /*                                      Created on 2011.11.14         */
    
12. /*                                      Modified on 2012.4.25         */
    
13. /**********************************************************************/
    
14. 
    
15. %if &LibName EQ %STR() %then %let LibName=Work;
    
16. %if &Filter EQ %STR() %then %let Filter=Null;
    
17. 
    
18. %if %UPCASE(&Filter) EQ NULL %then %do;
    
19.         proc sql noprint;
    
20.                 select count(memname) into :DET_EmptyTableNum
    
21.                         from SASHELP.Vtable
    
22.                         where UPCASE(libname) EQ UPCASE("&LibName") AND nobs EQ 0;
    
23.         quit;
    
24. 
    
25.         %if &DET_EmptyTableNum EQ 0 %then %do;
    
26.                 %put NOTE: There is no empty table or dataset in the specified library, therefore none of table is dropped.;
    
27.                 %goto exit;
    
28.         %end;
    
29.         %else %do;
    
30.                 proc sql noprint;
    
31.                         select memname into :DET_EmptyTableList separated by ' '
    
32.                                 from SASHELP.Vtable
    
33.                                 where UPCASE(libname) EQ UPCASE("&LibName") AND nobs EQ 0;
    
34.                 quit;
    
35.         %end;
    
36. %end;
    
37. %else %if (%SYSFUNC(FIND(&Filter,_)) NE 0) OR (%SYSFUNC(FIND(&Filter,%)) NE 0) %then %do;
    
38.         proc sql noprint;
    
39.                 select count(memname) into :DET_EmptyTableNum
    
40.                         from SASHELP.Vtable
    
41.                         where UPCASE(libname) EQ UPCASE("&LibName") AND
    
42.                                 UPCASE(memname) like UPCASE("&Filter") AND nobs EQ 0;
    
43.         quit;
    
44. 
    
45.         %if &DET_EmptyTableNum EQ 0 %then %do;
    
46.                 %put NOTE: There is no empty table or dataset in the specified library, therefore none of table is dropped.;
    
47.                 %goto exit;
    
48.         %end;
    
49.         %else %do;
    
50.                 proc sql noprint;
    
51.                         select memname into :DET_EmptyTableList separated by ' '
    
52.                                 from SASHELP.Vtable
    
53.                                 where UPCASE(libname) EQ UPCASE("&LibName") AND
    
54.                                         UPCASE(memname) like UPCASE("&Filter") AND nobs EQ 0;
    
55.                 quit;
    
56.         %end;
    
57. %end;
    
58. %else %do;
    
59.         proc sql noprint;
    
60.                 select count(memname) into :DET_EmptyTableNum
    
61.                         from SASHELP.Vtable
    
62.                         where UPCASE(libname) EQ UPCASE("&LibName") AND
    
63.                                 UPCASE(memname) EQ UPCASE("&Filter") AND nobs EQ 0;
    
64.         quit;
    
65. 
    
66.         %if &DET_EmptyTableNum EQ 0 %then %do;
    
67.                 %put NOTE: There is no empty table or dataset in the specified library, therefore none of table is dropped.;
    
68.                 %goto exit;
    
69.         %end;
    
70.         %else %do;
    
71.                 proc sql noprint;
    
72.                         select memname into :DET_EmptyTableList separated by ' '
    
73.                                 from SASHELP.Vtable
    
74.                                 where UPCASE(libname) EQ UPCASE("&LibName") AND
    
75.                                         UPCASE(memname) EQ UPCASE("&Filter") AND nobs EQ 0;
    
76.                 quit;
    
77.         %end;
    
78. %end;
    
79. 
    
80. proc sql noprint;
    
81.         %do DET_i=1 %to &DET_EmptyTableNum;
    
82.                 %let DET_Dataset=%SCAN(&DET_EmptyTableList,&DET_i);
    
83.                 drop table &LibName..&DET_Dataset;
    
84.         %end;
    
85. quit;
    
86. 
    
87. %exit:
    
88. %mend;
    
89. 
    
90. 
    
91. %macro Demo();
    
92. 
    
93. %let LibName=Work;
    
94. %let Filter="a%";                /* =Null时删除全部空表；包含_和%等SQL中like子句的通配符时删除指定前后缀的空表，注意此时要加双引号；不包含任何通配符时删除指定空表 */
    
95. %DropEmptyTables(&LibName,&Filter);
    
96. 
    
97. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：tables Table empty sas基础 ABLE 通配符

跟踪、学习。感谢！

我又更新了下，放在下面，主要是更新了参数设置
我发现我的主贴竟然修改不了，真奇怪

%macro DropEmptyTables(LibName,DataSet,Filter);

/**********************************************************************/
/* 此宏用于删除指定逻辑库中的空表，也即观测值为零的表格。其中LibName  */
/* 是指定逻辑库名称；DataSet是指定的数据集名称；Filter是文件过滤设置，*/
/* =Null时删除全部空表，包含_和%等SQL中like子句的通配符时删除指定前后 */
/* 缀的空表，不包含任何通配符时删除指定空表，若指定表不为空则不删除。 */
/* 注意，若表格不包含任何变量，则无法被删除。                         */
/*                                                                    */
/* 最终指定逻辑库下所有符合条件的空表全部被删除。                     */
/*                                                                    */
/*                                      Created on 2013.8.27          */
/*                                      Modified on 2013.8.27         */
/**********************************************************************/

%if &LibName EQ %STR() %then %let LibName=Work;

%if &Filter EQ %STR() %then %let Filter=_Null_;

/* 给&DataSet加引号，并用逗号分隔 */
%if &DataSet NE %STR() %then %do;
        %let DataSet_Quote=%PrxChange(InputString=%UPCASE(&DataSet),PrxString=s/((\w|0-9|_)+)/'$1'/);
        %let DataSet_Quote=%SYSFUNC(TRANWRD(&DataSet_Quote,%STR( ),%STR(,)));
%end;

/* 得到指定逻辑库中的数据集列表 */
proc contents data=&LibName.._ALL_ out=DET_temp(keep=libname memname nobs) varnum noprint;
run;

%if %UPCASE(&Filter) EQ _NULL_ %then %do;
        proc sql noprint;
                select count(distinct memname) into :DET_EmptyTableNum
                        from DET_temp
                        where UPCASE(libname) EQ UPCASE("&LibName") AND nobs EQ 0
                        %if &DataSet NE %STR() %then %do;
                                AND UPCASE(memname) in (&DataSet_Quote)
                        %end;
                        ;
        quit;

        %if &DET_EmptyTableNum EQ 0 %then %do;
                %put NOTE: There is no empty table or dataset in the specified library, therefore none of table is dropped.;
                %goto exit;
        %end;
        %else %do;
                proc sql noprint;
                        select distinct memname into :DET_EmptyTableList separated by ' '
                                from DET_temp
                                where UPCASE(libname) EQ UPCASE("&LibName") AND nobs EQ 0;
                quit;
        %end;
%end;
%else %if (%SYSFUNC(FIND(&Filter,_)) NE 0) OR (%SYSFUNC(FIND(&Filter,%)) NE 0) %then %do;
        proc sql noprint;
                select count(distinct memname) into :DET_EmptyTableNum
                        from DET_temp
                        where UPCASE(libname) EQ UPCASE("&LibName") AND
                                UPCASE(memname) like UPCASE("&Filter") AND nobs EQ 0
                                %if &DataSet NE %STR() %then %do;
                                        AND UPCASE(memname) in (&DataSet_Quote)
                                %end;
                                ;
        quit;

        %if &DET_EmptyTableNum EQ 0 %then %do;
                %put NOTE: There is no empty table or dataset in the specified library, therefore none of table is dropped.;
                %goto exit;
        %end;
        %else %do;
                proc sql noprint;
                        select distinct memname into :DET_EmptyTableList separated by ' '
                                from DET_temp
                                where UPCASE(libname) EQ UPCASE("&LibName") AND
                                        UPCASE(memname) like UPCASE("&Filter") AND nobs EQ 0;
                quit;
        %end;
%end;

proc sql noprint;
        %do DET_i=1 %to &DET_EmptyTableNum;
                %let DET_Dataset=%SCAN(&DET_EmptyTableList,&DET_i);
                drop table &LibName..&DET_Dataset;
        %end;
quit;

/* 删除不必要的表格 */
proc datasets lib=work nolist;
        delete DET_:;
quit;

%exit:
%mend;


%macro Demo();

%let LibName=Work;
%let DataSet=;
%let Filter=a%;                /* =Null时删除全部空表；包含_和%等SQL中like子句的通配符时删除指定前后缀的空表，注意此时要加双引号；不包含任何通配符时删除指定空表 */
%DropEmptyTables(&LibName,&DataSet,&Filter);

%mend;

1. %macro deletedata(lib);
   
2.     data temp;
   
3.         set sashelp.vtable;
   
4.         where libname="%upcase(&lib.)" and memtype="DATA";
   
5.         keep memname;
   
6.     run;
   
7.    
   
8.     data _null_;
   
9.         set temp end=final;
   
10.         call symput("n"||strip(put(_n_,best.)), strip(memname));
    
11.         if final then call symput("num",strip(put(_n_,best.)));
    
12.     run;
    
13. 
    
14.     %do i=1 %to &num.;
    
15.         %let dsid=%sysfunc(open(&&n&i..));
    
16.         %let check=%sysfunc(attrn(&dsid,nlobs));
    
17.         %let rc=%sysfunc(close(&dsid));
    
18.         
    
19.         %if &check.=0 %then %do;
    
20.             proc delete data=&lib..&&n&i..;
    
21.             quit;
    
22.         %end;
    
23.     %end;
    
24. %mend;
    
25. 
    
26. %deletedata(work);

复制代码

没经过测试，也不知道是不是楼主的意思。

nomad5 发表于 2013-9-2 15:26
没经过测试，也不知道是不是楼主的意思。

嗯，你写的就是我想要的

只不过你用到的sashelp.vtable表很大，从那里取数据会很慢，所以我才用的proc contents
另外，从sashelp.vtable中已经可以取到表格的观测值信息，不需要再用attrn函数了
还有attrn函数的时间复杂度也很可观，当表格数目较多，用循环会浪费时间
所以我的循环是在一个Proc步里做，而不是循环多个attrn函数和Proc步

一些使用上的建议，谨供参考