SAS基础宏之14：ChkDummyVar

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

宏作用

---

用于检查某变量是否是虚拟变量的宏，即是否只有1、0或缺失三种值

1. %macro ChkDummyVar(SourceTable,InputVar,FlagIsDummyVar);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏的作用是检查某数据表中的指定变量是否为虚拟变量，即取值只能为0  */
   
5. /* 或1。其中，SourceTable是原始表格；InputVar是指定的变量，若为多个变 */
   
6. /* 量，请用空格分隔；FlagIsDummyVar是标记宏变量名称，=1表示变量为虚拟 */
   
7. /* 变量，否则=0，若有多个InputVar变量，则不同位置上的1或0代表相应的变 */
   
8. /* 量是否是虚拟变量。注意，若某变量除含有0或1之外，还含有缺失值，则仍 */
   
9. /* 然认为其为虚拟变量。                                               */
   
10. /*                                                                    */
    
11. /* 最终得到的是宏变量&FlagIsDummyVar，若该数据表中指定变量为虚拟变量，*/
    
12. /* 则&FlagIsDummyVar=1，否则=0，若为多个变量，则不同位置上的1或0代表  */
    
13. /* 相应的变量是否为虚拟变量。                                         */
    
14. /*                                                                    */
    
15. /*                                      Created on 2013.3.30          */
    
16. /*                                      Modified on 2013.3.30         */
    
17. /**********************************************************************/
    
18. 
    
19. %if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
    
20.         %let CDV_LibName=%UPCASE(%SCAN(&SourceTable,1,.));
    
21.         %let CDV_MemName=%UPCASE(%SCAN(&SourceTable,2,.));
    
22. %end;
    
23. %else %do;
    
24.         %let CDV_LibName=WORK;
    
25.         %let CDV_MemName=%UPCASE(&SourceTable);
    
26. %end;
    
27. 
    
28. /* 检查SourceTable的存在性 */
    
29. %ChkDataSet(DataSet=&CDV_LibName..&CDV_MemName,FlagDataSetExists=CDV_FlagDataSetExists);
    
30. 
    
31. %if &CDV_FlagDataSetExists EQ 0 %then %do;
    
32.         %put ERROR: The DataSet &SourceTable does not exist, please check it again.;
    
33.         %goto exit;
    
34. %end;
    
35. 
    
36. /* 检查InputVar的存在性 */
    
37. %if %SYSFUNC(FIND(&InputVar,%STR(:))) NE 0 %then %do;
    
38.     %GetVarListForTable(SourceTable=&SourceTable,
    
39.         TargetTable=,
    
40.         OutputVar=CDV_InputVar,
    
41.         VarType=&InputVar);
    
42. 
    
43.   %let InputVar=&CDV_InputVar;
    
44. %end;
    
45. 
    
46. %ChkVar(SourceTable=&SourceTable,InputVar=&InputVar,FlagVarExists=CDV_FlagInputVarExists);
    
47. 
    
48. %if %SYSFUNC(FIND(&CDV_FlagInputVarExists,0)) NE 0 %then %do;
    
49.     %put ERROR: The InputVar "%SCAN(&InputVar,%SYSFUNC(FIND(&CDV_FlagInputVarExists,0)))" does not exist in SourceTable, please check it again.;
    
50.     %goto exit;
    
51. %end;
    
52. 
    
53. /* 拆分InputVar */
    
54. %SeparateString(InputString=&InputVar,OutputString=CDV_InputVar);
    
55. 
    
56. /* 开始进行计算 */
    
57. %global &FlagIsDummyVar;
    
58. 
    
59. %let &FlagIsDummyVar=;
    
60. 
    
61. /* 检查InputVar的格式，若为字符型，则一定不是虚拟变量 */
    
62. %ChkVarType(SourceTable=&SourceTable,
    
63.         InputVar=&InputVar,
    
64.         FlagVarType=CDV_FlagInputVarType);
    
65. 
    
66. %do CDV_i=1 %to &CDV_InputVar_Num;
    
67.         %if %SUBSTR(%UPCASE(&CDV_FlagInputVarType),&CDV_i,1) EQ C %then %do;
    
68.                 %let &FlagIsDummyVar=&&&FlagIsDummyVar..0;
    
69.         %end;
    
70.         %else %if %SUBSTR(%UPCASE(&CDV_FlagInputVarType),&CDV_i,1) EQ N %then %do;
    
71.                 proc sql noprint;
    
72.                         select COUNT(&&CDV_InputVar_Var&CDV_i) into :CDV_NumOfNonDummyValue
    
73.                                 from &SourceTable
    
74.                                 where &&CDV_InputVar_Var&CDV_i NE 0 AND &&CDV_InputVar_Var&CDV_i NE 1;
    
75.                 quit;
    
76. 
    
77.                 %if &CDV_NumOfNonDummyValue GT 0 %then %do;
    
78.                         %let &FlagIsDummyVar=&&&FlagIsDummyVar..0;
    
79.                 %end;
    
80.                 %else %do;
    
81.                         %let &FlagIsDummyVar=&&&FlagIsDummyVar..1;
    
82.                 %end;
    
83.         %end;
    
84. %end;
    
85. 
    
86. /* 若要显示&FlagIsDummyVar的值，请取消下面的注释 */
    
87. /*%put &FlagIsDummyVar=&&&FlagIsDummyVar;*/
    
88. 
    
89. %exit:
    
90. %mend;
    
91. 
    
92. 
    
93. %macro Demo();
    
94. 
    
95. %let SourceTable=Have;
    
96. %let InputVar=a b c d;
    
97. %let FlagIsDummyVar=FlagIsDummyVar1;
    
98. %ChkDummyVar(&SourceTable,&InputVar,&FlagIsDummyVar);
    
99. 
    
100. %put &FlagIsDummyVar1;
     
101. 
     
102. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：ChkDummyVar Dummy sas基础 VaR 基础宏 ChkDummyVar sas 基础宏