SAS基础宏之7：ChkValue

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

宏功能：
检查某个变量是不是有指定值的宏

1. %macro ChkValue(SourceTable,InputVar,Value,FlagValueExists);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏的作用是检查某数据表中是否含有指定变量为某特定值的观测。其中， */
   
5. /* SourceTable是原始表格；InputVar是指定的变量，且只能指定一个变量； */
   
6. /* Value是指定的值，字符串不需要加引号，可以设为多个值，用空格分隔； */
   
7. /* FlagValueExists是标记宏变量名称，=1表示原数据表中含有指定变量为某 */
   
8. /* 特定值的观测，否则=0。 */
   
9. /* */
   
10. /* 最终得到的是宏变量&FlagValueExists，不同位置上的数值表示对应的值是 */
    
11. /* 否在原表中的指定变量中存在，=1表示原数据表中含有指定变量为某特定值 */
    
12. /* 的观测，否则=0。 */
    
13. /* */
    
14. /* Created on 2012.11.6 */
    
15. /* Modified on 2012.11.12 */
    
16. /**********************************************************************/
    
17. 
    
18. /* 检查SourceTable的存在性 */
    
19. %if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
    
20. %let CVL_LibName=%UPCASE(%SCAN(&SourceTable,1,.));
    
21. %let CVL_MemName=%UPCASE(%SCAN(&SourceTable,2,.));
    
22. %end;
    
23. %else %do;
    
24. %let CVL_LibName=WORK;
    
25. %let CVL_MemName=%UPCASE(&SourceTable);
    
26. %end;
    
27. 
    
28. %ChkDataSet(DataSet=&CVL_LibName..&CVL_MemName,FlagDataSetExists=CVL_FlagDataSetExists);
    
29. 
    
30. %if &CVL_FlagDataSetExists EQ 0 %then %do;
    
31. %put ERROR: The DataSet "&SourceTable." does not exist, please check it again.;
    
32. %goto exit;
    
33. %end;
    
34. 
    
35. /* 检查InputVar的唯一性 */
    
36. %if %SYSFUNC(FIND(&InputVar,%STR( ))) NE 0 %then %do;
    
37. %put ERROR: The InputVar should be only a single variable, please check it again.;
    
38. %goto exit;
    
39. %end;
    
40. 
    
41. /* 检查InputVar的存在性 */
    
42. %ChkVar(SourceTable=&CVL_LibName..&CVL_MemName,InputVar=&InputVar,FlagVarExists=CVL_FlagInputVarExists);
    
43. 
    
44. %if %SYSFUNC(FIND(&CVL_FlagInputVarExists,0)) NE 0 %then %do;
    
45. %put ERROR: The InputVar "%SCAN(&InputVar,%SYSFUNC(FIND(&CV_FlagInputVarExists,0)))" does not exist in SourceTable, please check it again.;
    
46. %goto exit;
    
47. %end;
    
48. 
    
49. /* 开始进行计算 */
    
50. /* 拆分Value */
    
51. %SeparateString(InputString=&Value,OutputString=CVL_Value);
    
52. 
    
53. /* 为&FlagValueExists设置初始值 */
    
54. %do CVL_i=1 %to &CVL_Value_Num;
    
55. %let CVL_FlagValueExists_&CVL_i.=0;
    
56. %end;
    
57. 
    
58. /* 检查InputVar的格式 */
    
59. %ChkVarType(SourceTable=&CVL_LibName..&CVL_MemName,InputVar=&InputVar,FlagVarType=CVL_InputVarType);
    
60. 
    
61. %if &CVL_InputVarType EQ C %then %do;
    
62. %do CVL_j=1 %to &CVL_Value_Num;
    
63. data _null_;
    
64. set &SourceTable;
    
65. call symputx("CVL_FlagValueExists_&CVL_j.",'1');
    
66. where UPCASE(&InputVar)=UPCASE("&&CVL_Value_Var&CVL_j.");
    
67. run;
    
68. %end;
    
69. %end;
    
70. %else %if &CVL_InputVarType EQ N %then %do;
    
71. %do CVL_k=1 %to &CVL_Value_Num;
    
72. data _null_;
    
73. set &SourceTable;
    
74. call symputx("CVL_FlagValueExists_&CVL_k.",'1');
    
75. where &InputVar=&Value;
    
76. run;
    
77. %end;
    
78. %end;
    
79. 
    
80. /* 连接上述多个宏变量，生成&FlagValueExists */
    
81. %global &FlagValueExists;
    
82. 
    
83. %let &FlagValueExists=&CVL_FlagValueExists_1;
    
84. 
    
85. %do CVL_l=2 %to &CVL_Value_Num;
    
86. %let &FlagValueExists=&&&FlagValueExists.&&CVL_FlagValueExists_&CVL_l;
    
87. %end;
    
88. 
    
89. /* 若要显示&FlagValueExists的值，请取消下面的注释 */
    
90. /*%put &FlagValueExists=&&&FlagValueExists;*/
    
91. 
    
92. %exit:
    
93. %mend;
    
94. 
    
95. 
    
96. %macro Demo();
    
97. 
    
98. %let SourceTable=Allretoffund_holding_temp1;
    
99. %let InputVar=End_Yr;
    
100. %let Value=2004; /* 字符串不需要加引号 */
     
101. %let FlagValueExists=FlagValueExists1;
     
102. %ChkValue(&SourceTable,&InputVar,&Value,&FlagValueExists);
     
103. 
     
104. %mend;

复制代码

扫码加我 拉你入群

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

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

分享1 收藏1 回帖

关键词：ChkValue sas基础 value alue 基础宏 基础 基础宏 ChkValue

谢谢分享。