SAS基础宏之13：DropEmptyTables-经管之家官网！

经济学管理学金融学统计学

您当前的位置> 软件培训>>

SAS基础宏之13：DropEmptyTables

人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

完整电子版已上线CDA网校，累计已有10万+在读~ 教材严格按考试大纲编写，适合CDA考生备考，也适合业务及数据分析岗位的从业者提升自我。

TOP热门关键词

专题页面精选

删除指定逻辑库中的空表，可以使用SQL形式的通配符，即_和%%macroDropEmptyTables(LibName,Filter);/**********************************************************************//*此宏用于删除指定逻辑库中的空表，也 ...

免费学术公开课,扫码加入

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

%macro DropEmptyTables(LibName,Filter);
/**********************************************************************/
/* 此宏用于删除指定逻辑库中的空表，也即观测值为零的表格。其中LibName*/
/* 是指定逻辑库名称；Filter是文件过滤设置，=Null时删除全部空表，包含*/
/* _和%等SQL中like子句的通配符时删除指定前后缀的空表，不包含任何通配*/
/* 符时删除指定空表，若指定表不为空则不删除。 */
/* */
/* 最终指定逻辑库下所有符合条件的空表全部被删除。 */
/* */
/* Created on 2011.11.14 */
/* Modified on 2012.4.25 */
/**********************************************************************/
%if &LibName EQ %STR() %then %let LibName=Work;
%if &Filter EQ %STR() %then %let Filter=Null;
%if %UPCASE(&Filter) EQ NULL %then %do;
proc sql noprint;
select count(memname) into :DET_EmptyTableNum
from SASHELP.Vtable
where UPCASE(libname) EQ UPCASE("&LibName") AND nobs EQ 0;
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 memname into :DET_EmptyTableList separated by ' '
from SASHELP.Vtable
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(memname) into :DET_EmptyTableNum
from SASHELP.Vtable
where UPCASE(libname) EQ UPCASE("&LibName") AND
UPCASE(memname) like UPCASE("&Filter") AND nobs EQ 0;
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 memname into :DET_EmptyTableList separated by ' '
from SASHELP.Vtable
where UPCASE(libname) EQ UPCASE("&LibName") AND
UPCASE(memname) like UPCASE("&Filter") AND nobs EQ 0;
quit;
%end;
%end;
%else %do;
proc sql noprint;
select count(memname) into :DET_EmptyTableNum
from SASHELP.Vtable
where UPCASE(libname) EQ UPCASE("&LibName") AND
UPCASE(memname) EQ UPCASE("&Filter") AND nobs EQ 0;
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 memname into :DET_EmptyTableList separated by ' '
from SASHELP.Vtable
where UPCASE(libname) EQ UPCASE("&LibName") AND
UPCASE(memname) EQ 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;
%exit:
%mend;
%macro Demo();
%let LibName=Work;
%let Filter="a%"; /* =Null时删除全部空表；包含_和%等SQL中like子句的通配符时删除指定前后缀的空表，注意此时要加双引号；不包含任何通配符时删除指定空表 */
%DropEmptyTables(&LibName,&Filter);
%mend;

复制代码

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：

本文论坛网址：https://bbs.pinggu.org/thread-2368640-1-1.html

上一篇 | 求助DF的单位根检验 STATA

下一篇 | Excel——大数据时代必学的数据分析

SAS软件培训精彩帖子推荐更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：SAS基础宏之13：DropEmptyTables

本文链接网址：https://bbs.pinggu.org/jg/ruanjianpeixun_sasruanjianpeixun_2368640_1.html

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。

SAS基础宏之13：DropEmptyTables-经管之家官网！

SAS软件培训