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

16关注
79粉丝

已卖：1645份资源

学科带头人

还不是VIP/贵宾

TA的文库 其他...

R相关

经济学相关

金融工程

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

楼主

playmore 发表于 2013-4-15 20:51:16 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

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

%macro ChkValue(SourceTable,InputVar,Value,FlagValueExists);
/**********************************************************************/
/* 此宏的作用是检查某数据表中是否含有指定变量为某特定值的观测。其中， */
/* SourceTable是原始表格；InputVar是指定的变量，且只能指定一个变量； */
/* Value是指定的值，字符串不需要加引号，可以设为多个值，用空格分隔； */
/* FlagValueExists是标记宏变量名称，=1表示原数据表中含有指定变量为某 */
/* 特定值的观测，否则=0。 */
/* */
/* 最终得到的是宏变量&FlagValueExists，不同位置上的数值表示对应的值是 */
/* 否在原表中的指定变量中存在，=1表示原数据表中含有指定变量为某特定值 */
/* 的观测，否则=0。 */
/* */
/* Created on 2012.11.6 */
/* Modified on 2012.11.12 */
/**********************************************************************/
/* 检查SourceTable的存在性 */
%if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
%let CVL_LibName=%UPCASE(%SCAN(&SourceTable,1,.));
%let CVL_MemName=%UPCASE(%SCAN(&SourceTable,2,.));
%end;
%else %do;
%let CVL_LibName=WORK;
%let CVL_MemName=%UPCASE(&SourceTable);
%end;
%ChkDataSet(DataSet=&CVL_LibName..&CVL_MemName,FlagDataSetExists=CVL_FlagDataSetExists);
%if &CVL_FlagDataSetExists EQ 0 %then %do;
%put ERROR: The DataSet "&SourceTable." does not exist, please check it again.;
%goto exit;
%end;
/* 检查InputVar的唯一性 */
%if %SYSFUNC(FIND(&InputVar,%STR( ))) NE 0 %then %do;
%put ERROR: The InputVar should be only a single variable, please check it again.;
%goto exit;
%end;
/* 检查InputVar的存在性 */
%ChkVar(SourceTable=&CVL_LibName..&CVL_MemName,InputVar=&InputVar,FlagVarExists=CVL_FlagInputVarExists);
%if %SYSFUNC(FIND(&CVL_FlagInputVarExists,0)) NE 0 %then %do;
%put ERROR: The InputVar "%SCAN(&InputVar,%SYSFUNC(FIND(&CV_FlagInputVarExists,0)))" does not exist in SourceTable, please check it again.;
%goto exit;
%end;
/* 开始进行计算 */
/* 拆分Value */
%SeparateString(InputString=&Value,OutputString=CVL_Value);
/* 为&FlagValueExists设置初始值 */
%do CVL_i=1 %to &CVL_Value_Num;
%let CVL_FlagValueExists_&CVL_i.=0;
%end;
/* 检查InputVar的格式 */
%ChkVarType(SourceTable=&CVL_LibName..&CVL_MemName,InputVar=&InputVar,FlagVarType=CVL_InputVarType);
%if &CVL_InputVarType EQ C %then %do;
%do CVL_j=1 %to &CVL_Value_Num;
data _null_;
set &SourceTable;
call symputx("CVL_FlagValueExists_&CVL_j.",'1');
where UPCASE(&InputVar)=UPCASE("&&CVL_Value_Var&CVL_j.");
run;
%end;
%end;
%else %if &CVL_InputVarType EQ N %then %do;
%do CVL_k=1 %to &CVL_Value_Num;
data _null_;
set &SourceTable;
call symputx("CVL_FlagValueExists_&CVL_k.",'1');
where &InputVar=&Value;
run;
%end;
%end;
/* 连接上述多个宏变量，生成&FlagValueExists */
%global &FlagValueExists;
%let &FlagValueExists=&CVL_FlagValueExists_1;
%do CVL_l=2 %to &CVL_Value_Num;
%let &FlagValueExists=&&&FlagValueExists.&&CVL_FlagValueExists_&CVL_l;
%end;
/* 若要显示&FlagValueExists的值，请取消下面的注释 */
/*%put &FlagValueExists=&&&FlagValueExists;*/
%exit:
%mend;
%macro Demo();
%let SourceTable=Allretoffund_holding_temp1;
%let InputVar=End_Yr;
%let Value=2004; /* 字符串不需要加引号 */
%let FlagValueExists=FlagValueExists1;
%ChkValue(&SourceTable,&InputVar,&Value,&FlagValueExists);
%mend;