SAS基础宏之3：ChkDataSet-经管之家官网！

人大经济论坛-经管之家 收藏本站
搜索
经济学 管理学 金融学 统计学
您当前的位置> 软件培训>>

SAS软件培训

>>

SAS基础宏之3：ChkDataSet

SAS基础宏之3：ChkDataSet

发布：playmore | 分类：SAS软件培训

搜索

关于本站

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

获取电子版《CDA一级教材》

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

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

市场营销

人力资源

国际贸易

TOP热门关键词

专题页面精选

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂另外，如果有更好的解决我 ...
免费学术公开课,扫码加入
这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂
另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流
  1. %macro ChkDataSet(DataSet,FlagDataSetExists);

  3. /**********************************************************************/
  4. /* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
  5. /* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
  6. /* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
  7. /* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
  8. /* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
  9. /* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
  10. /* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
  11. /* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
  12. /* */
  13. /* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
  14. /* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
  15. /* 表相应的数据集是否存在。 */
  16. /* */
  17. /* Created on 2012.11.16 */
  18. /* Modified on 2012.11.16 */
  19. /**********************************************************************/

  21. /* 检查DataSet的存在性 */
  22. %if &DataSet EQ %STR( ) %then %do;
  23. %put ERROR: The DataSet should not be blank, please check it again.;
  24. %goto exit;
  25. %end;

  27. /* 开始进行计算 */
  28. %global &FlagDataSetExists;

  30. /* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
  31. %if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
  32. /* 检查DataSet的合法性 */
  33. %if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
  34. %let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
  35. %let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
  36. %end;
  37. %else %do;
  38. %let CDS_LibName=%STR();
  39. %let CDS_DataSet=%UPCASE(&DataSet);
  40. %end;

  42. %if &CDS_DataSet EQ %STR() %then %do;
  43. %put ERROR: The DataSet should not be blank, please check it again.;
  44. %goto exit;
  45. %end;
  46. %else %if &CDS_LibName NE %STR() %then %do;
  47. %let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
  48. %end;
  49. %else %do;
  50. proc sql noprint;
  51. create table CDS_temp as
  52. select * from sashelp.vtable
  53. where memname="&CDS_DataSet";
  54. quit;

  56. proc sql noprint;
  57. select count(*) into :CDS_DataSetNum from CDS_temp;
  58. quit;

  60. %if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
  61. %else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
  62. %else %do;
  63. %put ERROR: There could be more than one DataSets with the same name appointed in different libraries, please reassign a LibName first.;
  64. %goto exit;
  65. %end;
  66. %end;
  67. %end;
  68. /* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
  69. %else %do;
  70. %SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);

  72. %do CDS_i=1 %to &CDS_DateSet_Num;
  73. /* 检查DataSet的合法性 */
  74. %if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
  75. %let CDS_LibName_&CDS_i.=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,1,.));
  76. %let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
  77. %end;
  78. %else %do;
  79. %let CDS_LibName_&CDS_i.=WORK;
  80. %let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
  81. %end;

  83. %let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
  84. %end;

  86. %let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;

  88. %do CDS_j=2 %to &CDS_DateSet_Num;
  89. %let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
  90. %end;
  91. %end;

  93. /* 如果想要输出结果，请取消下面的注释 */
  94. /*%put &&&FlagDataSetExists;*/

  96. /* 删除不必要的表格 */
  97. proc datasets lib=work nolist;
  98. delete CDS_temp;
  99. quit;


  102. %exit:
  103. %mend;


  106. %macro Demo();

  108. %let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
  109. %let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
  110. %ChkDataSet(&DataSet,&FlagDataSetExists);

  112. %put &FlagDataSetExists1;

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

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

上一篇 | SAS基础宏之2：SeparateString
下一篇 | 求助Stata.12 数据保存的问题
SAS软件培训  精彩帖子推荐 更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：SAS基础宏之3：ChkDataSet

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

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
学术培训 |认证培训 |注册会计师 |市场营销 |人力资源 |国际贸易 |学报
数据分析师 人大经济论坛 大学 专业 手机版

为做大做强人大经济论坛，本站接受风险投资商咨询，请联系（010-62719935）
京ICP备11001960号 京ICP证090565号 京公网安备1101084107号 论坛法律顾问：王进律师 知识产权保护声明 免责及隐私声明
邮箱：service@pinggu.org
合作咨询电话：(010)62719935 广告合作电话：010-68456523 13661292478 刘老师
投诉电话：(010)68466864 不良信息处理电话：13661292478

联系客服
值班时间：工作日（9:00--18:00）