SAS基础宏之6：ChkVarFormat

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

用来检查数据格式的
好像SAS没有判断日期变量的好办法，只能看格式是不是DATE9.，YYMMDD之类的了
如果有其他办法，记得通知我

1. %macro ChkVarFormat(SourceTable,InputVar,FlagVarFormat);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏的作用是检查某数据表中指定变量的格式，如日期格式YYMMDD10.和字 */
   
5. /* 符串格式$40.。其中，SourceTable是原始表格；InputVar是指定的变量， */
   
6. /* 若为多个变量，请用空格分隔；FlagVarFormat是标记宏变量名称，若有多 */
   
7. /* 个InputVar变量，则用小数点分隔。 */
   
8. /* */
   
9. /* 最终得到的是宏变量&FlagVarFormat。 */
   
10. /* */
    
11. /* Created on 2012.9.7 */
    
12. /* Modified on 2012.9.18 */
    
13. /**********************************************************************/
    
14. 
    
15. %if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
    
16. %let CVF_LibName=%UPCASE(%SCAN(&SourceTable,1,.));
    
17. %let CVF_MemName=%UPCASE(%SCAN(&SourceTable,2,.));
    
18. %end;
    
19. %else %do;
    
20. %let CVF_LibName=WORK;
    
21. %let CVF_MemName=%UPCASE(&SourceTable);
    
22. %end;
    
23. 
    
24. %ChkDataSet(DataSet=&CVF_LibName..&CVF_MemName,FlagDataSetExists=CVF_FlagDataSetExists);
    
25. 
    
26. %if &CVF_FlagDataSetExists EQ 1 %then %do;
    
27. %ChkVar(SourceTable=&SourceTable,InputVar=&InputVar,FlagVarExists=CVF_FlagVarExists);
    
28. 
    
29. %if %SYSFUNC(FIND(&CVF_FlagVarExists,0)) EQ 0 %then %do;
    
30. proc contents data=&SourceTable out=CVF_temp(keep=NAME TYPE FORMAT FORMATL) noprint;
    
31. run;
    
32. 
    
33. %global &FlagVarFormat;
    
34. 
    
35. %if %SYSFUNC(FIND(&InputVar,%STR( ))) NE 0 %then %do;
    
36. %SeparateString(InputString=&InputVar,OutputString=CVF);
    
37. 
    
38. %do CVF_i=1 %to &CVF_Num;
    
39. %let CVF_FlagVarExists&CVF_i=0;
    
40. 
    
41. data _null_;
    
42. set CVF_temp;
    
43. if UPCASE(NAME)=UPCASE("&&CVF_Var&CVF_i.") then do;
    
44. call symputx("CVF_FlagVarFormat&CVF_i",FORMAT);
    
45. call symputx("CVF_FlagVarFormatL&CVF_i",FORMATL);
    
46. end;
    
47. run;
    
48. %end;
    
49. 
    
50. %let &FlagVarFormat=&&CVF_FlagVarFormat1.&&CVF_FlagVarFormatL1;
    
51. 
    
52. %do CVF_j=2 %to &CVF_Num;
    
53. %let &FlagVarFormat=&&&FlagVarFormat.%STR(.)&&CVF_FlagVarFormat&CVF_j&&CVF_FlagVarFormatL&CVF_j;
    
54. %end;
    
55. %end;
    
56. %else %do;
    
57. data _null_;
    
58. set CVF_temp;
    
59. if UPCASE(NAME)=UPCASE("&InputVar.") then do;
    
60. call symputx("CVF_FlagVarFormat",FORMAT);
    
61. call symputx("CVF_FlagVarFormatL",FORMATL);
    
62. end;
    
63. run;
    
64. 
    
65. %let &FlagVarFormat=&CVF_FlagVarFormat.&CVF_FlagVarFormatL;
    
66. %end;
    
67. %end;
    
68. %else %do;
    
69. %put ERROR: There is no variable named %SCAN(&InputVar,%SYSFUNC(FIND(&CVF_FlagVarExists,0))), please check it again.;
    
70. %goto exit;
    
71. %end;
    
72. %end;
    
73. %else %if &CVF_FlagDataSetExists EQ 0 %then %do;
    
74. %put ERROR: The DataSet "&SourceTable." does not exist, please check it again.;
    
75. %goto exit;
    
76. %end;
    
77. %else %do;
    
78. %put ERROR: There may be something wrong with the macro ChkDataSet, please contact the writer for help.;
    
79. %goto exit;
    
80. %end;
    
81. 
    
82. /* 若要显示&FlagVarFormat的值，请取消下面的注释 */
    
83. /*%put &FlagVarFormat=&&&FlagVarFormat;*/
    
84. 
    
85. /* 删除不必要的表格 */
    
86. proc delete data=CVF_temp;
    
87. run;
    
88. 
    
89. %exit:
    
90. %mend;
    
91. 
    
92. 
    
93. %macro Demo();
    
94. 
    
95. %let SourceTable=AOQR_DetHoldingsOfFund_Chosen;
    
96. %let InputVar=End_Date Fund_Name Fund_Code;
    
97. %let FlagVarFormat=FlagVarFormat1;
    
98. %ChkVarFormat(&SourceTable,&InputVar,&FlagVarFormat);
    
99. 
    
100. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：ChkVarFormat format FORMA sas基础 Rfor 基础

很用心啊，以后得自己专门总结特定的宏。

http://nianjian.******/tags.php? ... 7%E4%B8%9A%E4%B8%8E

http://nianjian.******/tags.php? ... 9%B4/1/13370695169/