SAS基础宏之3：ChkDataSet

百年孤独

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂
2 G/ r! p. s0 C0 D% Z" i! d4 _
1 u+ U+ V. M: X另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流
/ m* o. m5 x1 U6 t  J
7 U/ @, ]& f: l%macro ChkDataSet(DataSet,FlagDataSetExists);
+ a* s3 X, _, |" L$ v
/**********************************************************************/
/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
! F/ V- L$ M& ^0 F3 \2 f& Q) r/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
+ Z+ Z, c5 H: h0 U- a/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/ J3 p. R. M( o/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
" x  ~  Q1 b; r. ?! D, n/* */
/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
/* 表相应的数据集是否存在。 */
/* */
- Z8 M$ j0 Z& D  a  l/* Created on 2012.11.16 */
# O" I; Z+ t$ N! C7 x! M/* Modified on 2012.11.16 */
/**********************************************************************/

/* 检查DataSet的存在性 */
%if &DataSet EQ %STR( ) %then %do;
$ q# ]9 f4 K. r6 T& y%put ERROR: The DataSet should not be blank, please check it again.;
* _8 H9 i0 S. D! ?' Y# ?%goto exit;
& ^! p& H, l) W( _- G% c%end;

/* 开始进行计算 */
%global &FlagDataSetExists;

/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
. T: |) f8 ~2 n# F%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
6 \) ~7 c2 x) u6 s* v%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
4 H* ]" ]8 t7 S( V) A- H" @! B%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
9 p( _$ c  O, V8 }%end;
%else %do;
; `0 _. [+ e: c# a$ \%let CDS_LibName=%STR();
%let CDS_DataSet=%UPCASE(&DataSet);
%end;

%if &CDS_DataSet EQ %STR() %then %do;
( B' w3 E9 C6 `8 \) ]0 w%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
, W! |% |- L, Q* {* }. U( k%end;
%else %if &CDS_LibName NE %STR() %then %do;
%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
%end;
%else %do;
. U: G8 M- d5 z7 z: q/ cproc sql noprint;
7 C8 S5 B& ]/ |create table CDS_temp as
select * from sashelp.vtable
% W8 V$ U9 j6 T8 X; j* F* Uwhere memname="&CDS_DataSet";
quit;

9 F4 Q' s9 e7 q0 a& [, G, lproc sql noprint;
5 \) }8 b0 W% I) Bselect count(*) into :CDS_DataSetNum from CDS_temp;
quit;

%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
! x9 L1 Y2 e3 v* p%else %do;
%put ERROR: There could be more than one DataSets with the same name appointed in different libraries, please reassign a LibName first.;
%goto exit;
%end;
0 j, J' A8 ^5 \$ ~" F%end;
%end;
/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
%else %do;
%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
2 X$ q2 ?7 S  {- |
9 H( c, q3 g1 s" c' G  b%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
( {9 b( {  ?) E%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
+ ?9 \( H( t" n- d+ u1 O, m3 ~%let CDS_LibName_&CDS_i.=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,1,.));
%let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
%end;
9 y4 ?% b: g& Z) V. f* G  @%else %do;
%let CDS_LibName_&CDS_i.=WORK;
% E/ U5 t& U. x* G%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;
2 ]% ?9 r3 v# G0 d0 R
%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
- x3 m: }7 l# P: H" y3 U) k%end;
! _( r) J- y# O+ R* U
%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;

%do CDS_j=2 %to &CDS_DateSet_Num;
%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
  d( z( |7 K9 ?1 q7 _  }%end;
2 I3 O# d/ _8 Z7 L6 M7 B+ c%end;
, S# V& v" t( g2 T# @7 L
/* 如果想要输出结果，请取消下面的注释 */
/*%put &&&FlagDataSetExists;*/
+ d7 d3 }0 {1 x# s% T
/* 删除不必要的表格 */
proc datasets lib=work nolist;
4 c% X4 U" y& b. z% udelete CDS_temp;
quit;
1 t8 D& O% \1 L4 |$ C
; ]8 Y* z. ?9 \( t
%exit:
%mend;
  l& d  o1 ~$ n9 M1 i
1 M! G1 e+ {9 Y4 |
%macro Demo();
0 {) C% s  {% ~, W; l5 m
* F: |3 G! ]. W%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
%ChkDataSet(&DataSet,&FlagDataSetExists);

& T9 \/ @: f, u6 `' a# D%put &FlagDataSetExists1;

%mend;