SAS基础宏之5：ChkVarType

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这个宏的作用是检查某数据表中指定变量的类型，C为字符型，N为数值型
同样InputVar可以设置多个变量，用空格分隔就好

1. %macro ChkVarType(SourceTable,InputVar,FlagVarType);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏的作用是检查某数据表中指定变量的类型，即数值型或字符型。其中， */
   
5. /* SourceTable是原始表格；InputVar是指定的变量，若为多个变量，请用空 */
   
6. /* 格分隔；FlagVarType是标记宏变量名称，=N表示为数值型，=C表示为字符 */
   
7. /* 型，若有多个InputVar变量，则不同位置上的N或C代表相应变量的类型。 */
   
8. /* */
   
9. /* 最终得到的是宏变量&FlagVarType，=N表示指定变量为数值型，=C表示为字 */
   
10. /* 符型，若为多个变量，则不同位置上的N或C代表相应变量的类型。 */
    
11. /* */
    
12. /* Created on 2012.4.27 */
    
13. /* Modified on 2012.9.18 */
    
14. /**********************************************************************/
    
15. 
    
16. %if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
    
17. %let CVT_LibName=%UPCASE(%SCAN(&SourceTable,1,.));
    
18. %let CVT_MemName=%UPCASE(%SCAN(&SourceTable,2,.));
    
19. %end;
    
20. %else %do;
    
21. %let CVT_LibName=WORK;
    
22. %let CVT_MemName=%UPCASE(&SourceTable);
    
23. %end;
    
24. 
    
25. %ChkDataSet(DataSet=&CVT_LibName..&CVT_MemName,FlagDataSetExists=CVT_FlagDataSetExists);
    
26. 
    
27. %if &CVT_FlagDataSetExists EQ 1 %then %do;
    
28. %ChkVar(SourceTable=&SourceTable,InputVar=&InputVar,FlagVarExists=CVT_FlagVarExists);
    
29. 
    
30. %if %SYSFUNC(FIND(&CVT_FlagVarExists,0)) EQ 0 %then %do;
    
31. proc contents data=&SourceTable out=CVT_temp(keep=NAME TYPE) noprint;
    
32. run;
    
33. 
    
34. %global &FlagVarType;
    
35. 
    
36. %if %SYSFUNC(FIND(&InputVar,%STR( ))) NE 0 %then %do;
    
37. %SeparateString(InputString=&InputVar,OutputString=CVT);
    
38. 
    
39. %do CVT_i=1 %to &CVT_Num;
    
40. %let CVT_FlagVarExists&CVT_i=0;
    
41. 
    
42. data _null_;
    
43. set CVT_temp;
    
44. if UPCASE(NAME)=UPCASE("&&CVT_Var&CVT_i.") then call symputx("CVT_FlagVarType&CVT_i",TYPE);
    
45. run;
    
46. %end;
    
47. 
    
48. %let &FlagVarType=&&CVT_FlagVarType1;
    
49. 
    
50. %do CVT_j=2 %to &CVT_Num;
    
51. %let &FlagVarType=&&&FlagVarType.&&CVT_FlagVarType&CVT_j;
    
52. %end;
    
53. %end;
    
54. %else %do;
    
55. %let &FlagVarType=0;
    
56. 
    
57. data _null_;
    
58. set CVT_temp;
    
59. if UPCASE(NAME)=UPCASE("&InputVar.") then call symputx("&FlagVarType.",TYPE);
    
60. run;
    
61. %end;
    
62. 
    
63. %let &FlagVarType=%SYSFUNC(TRANSLATE(&&&FlagVarType,NC,12)); /* 转换变量类型的显示方式，N表示数值型，C表示字符型 */
    
64. %end;
    
65. %else %do;
    
66. %put ERROR: There is no variable named %SCAN(&InputVar,%SYSFUNC(FIND(&CVT_FlagVarExists,0))), please check it again.;
    
67. %goto exit;
    
68. %end;
    
69. %end;
    
70. %else %if &CVT_FlagDataSetExists EQ 0 %then %do;
    
71. %put ERROR: The DataSet "&SourceTable." does not exist, please check it again.;
    
72. %goto exit;
    
73. %end;
    
74. %else %do;
    
75. %put ERROR: There may be something wrong with the macro ChkDataSet, please contact the writer for help.;
    
76. %goto exit;
    
77. %end;
    
78. 
    
79. /* 若要显示&FlagVarType的值，请取消下面的注释 */
    
80. /*%put &FlagVarType=&&&FlagVarType;*/
    
81. 
    
82. /* 删除不必要的表格 */
    
83. proc delete data=CVT_temp;
    
84. run;
    
85. 
    
86. %exit:
    
87. %mend;
    
88. 
    
89. 
    
90. %macro Demo();
    
91. 
    
92. %let SourceTable=Allretoffund_holding_temp1;
    
93. %let InputVar=End_Yr End_Mt End_Dy Stk_Name;
    
94. %let FlagVarType=FlagVarType1;
    
95. %ChkVarType(&SourceTable,&InputVar,&FlagVarType);
    
96. 
    
97. %mend;

复制代码

扫码加我 拉你入群

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

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

分享1 收藏3 回帖

关键词：sas基础 type ART VaR 基础宏 基础 数据表 基础 数据表 ChkVarType SAS 基础宏

谢谢分享。