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 DropEmptyTables sas 基础宏