SAS基础宏之3：ChkDataSet

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在

这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂

另外，如果有更好的解决我写的宏的方法，欢迎指教

话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize

所以大家还要多多交流

1. %macro ChkDataSet(DataSet,FlagDataSetExists);
   
2. 
   
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. /**********************************************************************/
    
20. 
    
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;
    
26. 
    
27. /* 开始进行计算 */
    
28. %global &FlagDataSetExists;
    
29. 
    
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;
    
41. 
    
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;
    
55. 
    
56. proc sql noprint;
    
57. select count(*) into :CDS_DataSetNum from CDS_temp;
    
58. quit;
    
59. 
    
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);
    
71. 
    
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;
    
82. 
    
83. %let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
    
84. %end;
    
85. 
    
86. %let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;
    
87. 
    
88. %do CDS_j=2 %to &CDS_DateSet_Num;
    
89. %let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
    
90. %end;
    
91. %end;
    
92. 
    
93. /* 如果想要输出结果，请取消下面的注释 */
    
94. /*%put &&&FlagDataSetExists;*/
    
95. 
    
96. /* 删除不必要的表格 */
    
97. proc datasets lib=work nolist;
    
98. delete CDS_temp;
    
99. quit;
    
100. 
     
101. 
     
102. %exit:
     
103. %mend;
     
104. 
     
105. 
     
106. %macro Demo();
     
107. 
     
108. %let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
     
109. %let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
     
110. %ChkDataSet(&DataSet,&FlagDataSetExists);
     
111. 
     
112. %put &FlagDataSetExists1;
     
113. 
     
114. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：dataset sas基础 DataS Data 基础宏 基础 基础宏 ChkDataSet SAS

谢谢分享。