SAS基础宏之3：ChkDataSet

百年孤独

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
1 h) |/ a) |( k( c5 b% a这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂
* F. I0 V5 r( w: F' }0 b, }
% p1 \, z7 A; Z# v. g* |另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流
" s5 P: _8 z' n8 x# _# P
%macro ChkDataSet(DataSet,FlagDataSetExists);

/**********************************************************************/
$ X0 c- Q  Z0 X1 [4 p/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
2 \% z; v' |- _: ]* M& F/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
4 t: B( K' Y6 ^( Q% S/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
* W! W+ q( W9 m2 a1 c9 _9 R/ C/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
% y0 R0 @, p) j: s4 t/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
2 {: `; N5 y) U# W( f( P& x/ x' e/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
/* */
2 J. q( O1 _0 O+ w! [4 Q6 `+ _/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
/* 表相应的数据集是否存在。 */
! ?: d6 S. M1 U  A% B/* */
: v2 s! E- t: l" t5 |/* Created on 2012.11.16 */
/* Modified on 2012.11.16 */
+ y: t2 W7 ?4 }8 ~/ _  R1 Y+ o/**********************************************************************/
6 m. j! c. b- f, d
2 n0 w4 l3 ?6 u; u+ o; L2 H/* 检查DataSet的存在性 */
3 i: u2 Y: _. C; i+ k/ s: O%if &DataSet EQ %STR( ) %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
% X- H5 i" k( M/ W. n: L% L%goto exit;
0 ~: O1 {9 G: B  g+ {1 {$ F+ v%end;
& a4 O- ^! G* x6 z$ m; ^! K
4 c1 y/ h( D1 w& y  f7 `7 {/* 开始进行计算 */
; }2 J4 X4 p1 |* s0 S+ C) r%global &FlagDataSetExists;

/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
- x% _7 ~/ B$ P7 @$ w%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
( }6 r2 K1 f) |, @" U) x%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
  g. Y  s& G+ E$ u+ b/ H) s%end;
! [" A5 z* b7 W2 Y%else %do;
%let CDS_LibName=%STR();
8 ]  s( u$ ^7 W- O%let CDS_DataSet=%UPCASE(&DataSet);
%end;

%if &CDS_DataSet EQ %STR() %then %do;
: d. ]/ |. G* ~6 G%put ERROR: The DataSet should not be blank, please check it again.;
; e3 R* c) A* v%goto exit;
%end;
%else %if &CDS_LibName NE %STR() %then %do;
1 K6 B: v; \( |%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
%end;
5 q* b- D! x; s8 N%else %do;
3 n" N" _) Q8 Iproc sql noprint;
) W2 K7 b! B" k  Zcreate table CDS_temp as
select * from sashelp.vtable
where memname="&CDS_DataSet";
7 w. M* D2 {; n1 T" Hquit;

proc sql noprint;
- ^7 v7 S3 @! z4 u8 ]select count(*) into :CDS_DataSetNum from CDS_temp;
  }( v( A' o& X1 n0 l: S* q; j' [" Rquit;

# Z, V2 f& T$ X%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
; T5 [/ ]; f. A) t/ s( }: E%else %do;
%put ERROR: There could be more than one DataSets with the same name appointed in different libraries, please reassign a LibName first.;
" g& J* v0 r/ u! ]: v( s( C%goto exit;
%end;
; V$ b, r$ p0 _, h0 j! i5 v%end;
' q5 L4 U- |/ k. E. c' w%end;
" v, L$ T. W+ x/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
%else %do;
%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
* L( _/ A' c/ {! `
3 k+ Y, Z7 e. m: \%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
2 @4 L% k( V. Q/ m3 C. K' z%let CDS_LibName_&CDS_i.=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,1,.));
" v8 N( X) h1 W& g5 ?%let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
6 J- v2 ~( F' d/ ^%end;
: F3 {& K4 r5 F! X: J& q%else %do;
0 _: Z. \. _, a; I" R8 c1 O! z%let CDS_LibName_&CDS_i.=WORK;
. a; @2 L- e% `6 m5 x4 {$ Z' l: f%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
1 K# F. a8 m9 ~6 Y9 J" O' J' X%end;
, h+ c) m' B! o8 ?
%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
%end;

& Y0 a9 q* @' m9 u7 N8 S' J%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;

: g+ C6 u5 d( |%do CDS_j=2 %to &CDS_DateSet_Num;
4 \/ R' W  |9 r$ i3 z%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
2 X& I+ j) n, e6 A6 K8 ^' G- g%end;
%end;
  w/ [6 |3 T4 X. A- o' L* K- g: O
1 E7 H/ S- d6 M/ a/* 如果想要输出结果，请取消下面的注释 */
$ t; \9 V" O8 e# f/*%put &&&FlagDataSetExists;*/

/* 删除不必要的表格 */
& j* g" ^. |' Z+ B: F! t) y5 ~proc datasets lib=work nolist;
delete CDS_temp;
% ?  \. P4 h& U$ B( W, ]. u3 jquit;
! `4 d$ l0 c4 U. N. Z& T9 U: V
( V4 r3 z8 b( V6 i# l! C9 _
! A% o( `2 |  w9 U! l) D' e%exit:
%mend;
# R! I2 g! C9 a
+ u* G- o2 ^3 ]8 \' I4 S2 w( w1 p
%macro Demo();

. w8 ~6 c+ o0 @0 E: Q9 H3 j%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
* A' c. p8 j) z& J7 c%ChkDataSet(&DataSet,&FlagDataSetExists);
$ V, h/ U+ N( P+ D# a2 @& `
; O+ z& n1 i* ^4 ]  |$ C4 u* |%put &FlagDataSetExists1;

%mend;