SAS基礎宏之6：ChkVarFormat

是 否 +2 論壇幣

k人 參與回答

經管之家送您一份

應屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經管之家聯(lián)合CDA

送您一個全額獎學金名額~ !

立即領取

感謝您參與論壇問題回答

經管之家送您兩個論壇幣！

+2 論壇幣

宏作用

---

用來檢查數(shù)據格式的
好像SAS沒有判斷日期變量的好辦法，只能看格式是不是DATE9.，YYMMDD之類的了
如果有其他辦法，記得通知我

1. %macro ChkVarFormat(SourceTable,InputVar,FlagVarFormat);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏的作用是檢查某數(shù)據表中指定變量的格式，如日期格式YYMMDD10.和字 */
   
5. /* 符串格式$40.。其中，SourceTable是原始表格；InputVar是指定的變量， */
   
6. /* 若為多個變量，請用空格分隔；FlagVarFormat是標記宏變量名稱，若有多 */
   
7. /* 個InputVar變量，則用小數(shù)點分隔。 */
   
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 基礎 基礎宏 SAS ChkVarFormat