SAS基础宏之10：GetDataSetInfoInLib

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

得到指定Library里的数据集列表
可以导出至新的数据集或指定txt文件

1. %macro GetDataSetInfoInLib(LibName,Filter,TargetTable,OutFilePath,Detail);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏用于获得目标逻辑库下所有数据集的信息，并将此信息保存至SAS表格 */
   
5. /* 或导出至txt文件中。其中，LibName是指定的逻辑库；Filter是数据集过滤 */
   
6. /* 设置，支持_和%通配符，若需要导出所有数据集列表，可以设置为空； */
   
7. /* TargetTable是保存数据集信息的SAS表格，若不需要生成，可以设为空； */
   
8. /* OutFilePath是导出txt文件的路径，若不需要导出，可以设为空；Detail是 */
   
9. /* 标记变量，=Yes表示导出数据集列表详情，否则=No。 */
   
10. /* */
    
11. /* 最终得到的是含有目标逻辑库下所有数据集信息的SAS表格和存于指定路径 */
    
12. /* 的txt文件。 */
    
13. /* */
    
14. /* Created on 2013.2.23 */
    
15. /* Modified on 2013.4.3 */
    
16. /**********************************************************************/
    
17. 
    
18. /* 检查TargetTable和OutFilePath的非同时为空性 */
    
19. %if &TargetTable EQ %STR() AND &OutFilePath EQ %STR() %then %do;
    
20. %put ERROR: The TargetTable and OutFilePath should not be blank simultaneously, please check it again.;
    
21. %goto exit;
    
22. %end;
    
23. 
    
24. %if &TargetTable EQ %STR() %then %let TargetTable=GDSIIL_Temp;
    
25. 
    
26. /* 检查OutFilePath的合法性，若后缀不存在或非TXT，则改为TXT */
    
27. %if &OutFilePath NE %STR() %then %do;
    
28. %if %SYSFUNC(FIND(&OutFilePath,%STR(.))) EQ 0 %then %do;
    
29. %let OutFilePath=%SYSFUNC(CATS(&OutFilePath,%STR(.TXT)));
    
30. %end;
    
31. %else %if %SYSFUNC(FIND(&OutFilePath,%STR(.))) NE 0 AND %UPCASE(%SCAN(&OutFilePath,-1,%STR(.))) NE TXT %then %do;
    
32. %let OutFilePath=%SYSFUNC(CATS(%SUBSTR(&OutFilePath,1,%LENGTH(&OutFilePath)-%LENGTH(%SCAN(&OutFilePath,-1,%STR(.)))),TXT));
    
33. %end;
    
34. %end;
    
35. 
    
36. /* 检查输入路径下是否存在同名文件，若存在则删除 */
    
37. %if &OutFilePath NE %STR() %then %do;
    
38. %ChkFile(&OutFilePath);
    
39. %end;
    
40. 
    
41. /* 检查Detail的合法性 */
    
42. %if &Detail EQ %STR() %then %let Detail=No;
    
43. 
    
44. %if %UPCASE(&Detail) NE YES AND %UPCASE(&Detail) NE NO %then %do;
    
45. %put ERROR: The Detail should be Yes or No, case insensitive and without quotes.;
    
46. %goto exit;
    
47. %end;
    
48. 
    
49. /* 开始进行计算 */
    
50. proc sql noprint;
    
51. create table &TargetTable as
    
52. select * from SASHELP.VTABLE
    
53. where libname EQ UPCASE("&LibName.")
    
54. %if %UPCASE(&Filter) NE %STR() %then %do;
    
55. and memname like UPCASE("&Filter.");
    
56. %end;
    
57. %else %do;
    
58. ;
    
59. %end;
    
60. quit;
    
61. 
    
62. %if %UPCASE(&Detail) EQ NO %then %do;
    
63. data &TargetTable;
    
64. set &TargetTable(keep=libname memname);
    
65. run;
    
66. %end;
    
67. 
    
68. %if &OutFilePath NE %STR() %then %do;
    
69. %ExportToDelimitedFile(SourceTable=&TargetTable,
    
70. Delimiter='09'x,
    
71. PutNames=Yes,
    
72. OutFilePath=&OutFilePath);
    
73. %end;
    
74. 
    
75. /* 如需要在SAS的Output窗口中打印文件列表，请取消如下注释 */
    
76. /*proc print data=&TargetTable;*/
    
77. /*title1 "Files identified through saved file";*/
    
78. /*run;*/
    
79. 
    
80. /* 删除不必要的表格 */
    
81. proc datasets lib=work nolist;
    
82. delete GDSIIL_:;
    
83. quit;
    
84. 
    
85. %exit:
    
86. %mend;
    
87. 
    
88. 
    
89. %macro Demo();
    
90. 
    
91. %let LibName=Zheng;
    
92. %let Filter=r%; /* 文件过滤设置，若需要导出所有文件列表，则设置为空即可，即Filter=; */
    
93. %let TargetTable=FileList; /* 若不需要生成包含文件列表的SAS表格，则设为空，大小写不敏感 */
    
94. %let OutFilePath=d:\Temp\abc.txt; /* 若不需要导出文件列表txt文件，则设为空，大小写不敏感 */
    
95. %let Detail=Yes; /* =Yes表示在导出文件列表txt文件中包含InDirPath的详情，否则=No，大小写不敏感 */
    
96. %GetDataSetInfoInLib(&LibName,&Filter,&TargetTable,&OutFilePath,&Detail);
    
97. 
    
98. %mend;

复制代码

扫码加我 拉你入群

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

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

分享1 收藏5 回帖

关键词：dataset DataS sas基础 Data Info 基础

谢谢！厉害啊！

拜读，收藏，学习，感谢。

这个要自己用 要改哪里啊？

kongqunyu 发表于 2014-4-3 10:28
这个要自己用 要改哪里啊？

直接拿过去用，如果有报错说有的宏没有定义
就去找我其他的贴子，我都贴过了

学些了。。。。