SAS基础宏之3：ChkDataSet

百年孤独

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂
( ]+ B2 S  e" s1 N. @8 `
另外，如果有更好的解决我写的宏的方法，欢迎指教
$ N  _( O6 ?$ B6 D3 B3 d话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流

%macro ChkDataSet(DataSet,FlagDataSetExists);
; T$ \) L% g8 K4 V/ R
) P6 F# Z  p& ?0 v/**********************************************************************/
/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
$ n: h4 u: j  G# q& M/* */
/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
: w- g  Z+ s; @0 {* K, X1 M/* 表相应的数据集是否存在。 */
/* */
/* Created on 2012.11.16 */
/* Modified on 2012.11.16 */
/**********************************************************************/
) t2 W* @; y7 y' G3 A4 s
, w1 j& `, G3 |# ?/* 检查DataSet的存在性 */
%if &DataSet EQ %STR( ) %then %do;
9 q  u& ]2 s2 l7 ^. |' Q%put ERROR: The DataSet should not be blank, please check it again.;
! k0 O, d: u8 m%goto exit;
%end;
: a7 _8 F- g, B& {' H7 l$ ]8 j
/* 开始进行计算 */
' C* j0 v" ]4 f' W% g" t- y%global &FlagDataSetExists;

/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
# P0 k8 L+ z. x( d/* 检查DataSet的合法性 */
* g9 r, r- I& S/ ^8 q%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
%end;
( V1 A) W  R& k%else %do;
%let CDS_LibName=%STR();
; ]+ L  ~9 t( C; w9 f%let CDS_DataSet=%UPCASE(&DataSet);
%end;
1 K4 Q( K) d; s
%if &CDS_DataSet EQ %STR() %then %do;
/ E& l( ^+ Y. V, {%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
%end;
%else %if &CDS_LibName NE %STR() %then %do;
%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
. w/ B. u% q, ]& ^& j9 C%end;
%else %do;
3 w+ R9 N. }) T6 S( gproc sql noprint;
  c# S1 b3 b( {& _7 ^3 [create table CDS_temp as
8 m1 P0 d  |9 W# L0 O5 Jselect * from sashelp.vtable
( a( h: o# F) z8 Hwhere memname="&CDS_DataSet";
6 D6 Y" c8 ~/ Aquit;

proc sql noprint;
' ?* `2 k  F1 N9 bselect count(*) into :CDS_DataSetNum from CDS_temp;
quit;

%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
* k: K! Z$ K" }( f%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
%else %do;
  g. `0 @6 D; w8 ^7 p: |5 A%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;
5 p; W+ s$ g8 z, ?8 g$ s+ L%end;
  j2 F. A# V  q# r! M) @%end;
+ s& R: M4 V6 s  Q9 p/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
%else %do;
%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
% G( k6 @7 U5 V% z  i
7 V* E2 }4 G' y7 b7 `%do CDS_i=1 %to &CDS_DateSet_Num;
0 y! o: `. U, }' {1 R/* 检查DataSet的合法性 */
2 x' K5 |* v& Q+ S%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
%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;
%else %do;
%let CDS_LibName_&CDS_i.=WORK;
%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
# L  R  C$ w: b%end;
# @1 p4 v  z* k; K; Q1 l& ]
- a' L, g) m6 f%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
%end;

9 z# ~0 A- A; @2 F- E; M%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;
, N* h2 v5 F# W. R- x7 \' i
%do CDS_j=2 %to &CDS_DateSet_Num;
%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
%end;
6 E, v) S: q! ~- O%end;

* ~4 ?% h+ E0 Y: s/* 如果想要输出结果，请取消下面的注释 */
/*%put &&&FlagDataSetExists;*/
6 q/ ?. H- e, Z, J2 P3 N
- R, C+ f  ~' S8 V$ v7 U; _# @/* 删除不必要的表格 */
3 b& p  f' M: @  U+ m. l, Nproc datasets lib=work nolist;
delete CDS_temp;
1 U: c- e9 `1 b  {. e* Y" Equit;
* t( S2 R/ n/ S5 T. L0 }: b

0 @1 d6 C- F+ I& o%exit:
5 b, G  q; X) D) Z+ ]' |# v: ^6 a+ l%mend;
: |8 w) Z% q5 t6 P

) }& A8 w, y; j%macro Demo();
' k4 s) c4 u. p* ?; I( r
2 ^2 Y: f' A6 X%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
%ChkDataSet(&DataSet,&FlagDataSetExists);

%put &FlagDataSetExists1;
! ^8 K+ p8 G5 p
3 k* }3 o" E7 v/ U6 Q1 G%mend;