[程序分享] SAS基础宏之4：ChkVar [推广有奖]

16关注
79粉丝

学科带头人

还不是VIP/贵宾

TA的文库 其他...

R相关

经济学相关

金融工程

威望: 1 级
论坛币: 16309 个
通用积分: 7.3197
学术水平: 372 点
热心指数: 394 点
信用等级: 341 点
经验: 15297 点
帖子: 1194
精华: 1
在线时间: 1331 小时
注册时间: 2007-1-11
最后登录: 2023-12-15

楼主

playmore 发表于 2013-4-14 20:35:08 |只看作者 |坛友微信交流群|倒序 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这个宏比较简单，就是检查某个指定数据集中是否存在指定的变量
过去用proc sql查SASHELP.VCOLUMN表格，但是在9.3中发现速度比较慢
于是改用proc contents了，然后速度就比较快了，我也不知道这两个差在哪
望高手指教

%macro ChkVar(SourceTable,InputVar,FlagVarExists);
/**********************************************************************/
/* 此宏的作用是检查某数据表中是否存在指定的变量。其中，SourceTable是 */
/* 原始表格；InputVar是指定的变量，若为多个变量，请用空格分隔；Flag_ */
/* VarExists是标记宏变量名称，=1表示变量存在，否则=0，若有多个InputVar*/
/* 变量，则不同位置上的1或0代表相应的变量是否存在。 */
/* */
/* 最终得到的是宏变量&FlagVarExists，若该数据表包含指定变量，则 */
/* &FlagVarExists=1，否则=0，若为多个变量，则不同位置上的1或0代表相应 */
/* 的变量是否存在。 */
/* */
/* Created on 2012.4.27 */
/* Modified on 2012.9.18 */
/**********************************************************************/
%if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
%let CV_LibName=%UPCASE(%SCAN(&SourceTable,1,.));
%let CV_MemName=%UPCASE(%SCAN(&SourceTable,2,.));
%end;
%else %do;
%let CV_LibName=WORK;
%let CV_MemName=%UPCASE(&SourceTable);
%end;
%ChkDataSet(DataSet=&CV_LibName..&CV_MemName,FlagDataSetExists=CV_FlagDataSetExists);
%if &CV_FlagDataSetExists EQ 1 %then %do;
proc contents data=&SourceTable out=CV_temp(keep=name) noprint;
run;
%global &FlagVarExists;
%if %SYSFUNC(FIND(&InputVar,%STR( ))) NE 0 %then %do;
%SeparateString(InputString=&InputVar,OutputString=CV);
%do CV_i=1 %to &CV_Num;
%let CV_FlagVarExists&CV_i=0;
data _null_;
set CV_temp;
call symputx("CV_FlagVarExists&CV_i",'1');
where UPCASE(name)=UPCASE("&&CV_Var&CV_i.");
run;
%end;
%let &FlagVarExists=&&CV_FlagVarExists1;
%do CV_j=2 %to &CV_Num;
%let &FlagVarExists=&&&FlagVarExists.&&CV_FlagVarExists&CV_j;
%end;
%end;
%else %do;
%let &FlagVarExists=0;
data _null_;
set CV_temp;
call symputx("&FlagVarExists",'1');
where UPCASE(name)=UPCASE("&InputVar.");
run;
%end;
%end;
%else %if &CV_FlagDataSetExists EQ 0 %then %do;
%put ERROR: The DataSet &SourceTable does not exist, please check it again.;
%goto exit;
%end;
%else %do;
%put ERROR: There may be something wrong with the macro ChkDataSet, please contact the writer for help.;
%goto exit;
%end;
/* 若要显示&FlagVarExists的值，请取消下面的注释 */
/*%put &FlagVarExists=&&&FlagVarExists;*/
/* 删除不必要的表格 */
proc delete data=CV_temp;
run;
%exit:
%mend;
%macro Demo();
%let SourceTable=Allretoffund_holding_temp1;
%let InputVar=End_Yr End_Mt End_Dy End_Qt;
%let FlagVarExists=FlagVarExists1;
%ChkVar(&SourceTable,&InputVar,&FlagVarExists);
%let InputVar=End_Yr End_Mt End_Dy;
%let FlagVarExists=FlagVarExists2;
%ChkVar(&SourceTable,&InputVar,&FlagVarExists);
%mend;