SAS基础宏之3：ChkDataSet

百年孤独

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂
) y' H9 L/ R8 k) {' T! E7 L5 ~
, Y9 O  V* w% i4 P0 Q另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流

+ }8 f" }( @( u8 r7 v%macro ChkDataSet(DataSet,FlagDataSetExists);
, [+ q; {  v! M
/**********************************************************************/
+ N/ L1 a8 Z; Z6 g/ f/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
; }3 n. n  `6 J$ T0 }2 F/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
3 M: x1 w% Y+ a$ h/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
" I9 ~8 @/ w8 Q0 N/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
/* */
/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
+ j( M+ p) |5 M; U$ o9 k/* 表相应的数据集是否存在。 */
/* */
/* Created on 2012.11.16 */
1 B( d0 o' P& ?1 k7 w/* Modified on 2012.11.16 */
  k, |/ B+ U1 B0 f0 b0 T/**********************************************************************/

/* 检查DataSet的存在性 */
%if &DataSet EQ %STR( ) %then %do;
! s: H" }( D1 L* V" G%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
%end;

7 V9 }5 Z  M. E5 [- k7 ~' e: c/* 开始进行计算 */
%global &FlagDataSetExists;
1 M# z- T# z0 W
/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
$ a& P2 s- S7 [, ?+ n%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
% d- i7 b( E- H* y8 L%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
%end;
/ }' h6 k8 C$ D* @. ~3 f" p! U%else %do;
%let CDS_LibName=%STR();
%let CDS_DataSet=%UPCASE(&DataSet);
%end;

& i0 Q9 |& y3 D0 ?" K%if &CDS_DataSet EQ %STR() %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
/ k2 [/ p8 ]# h%goto exit;
%end;
6 t7 c* \/ U: }  J8 E; `%else %if &CDS_LibName NE %STR() %then %do;
%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
/ {5 E$ A" B8 s* j: H( {%end;
%else %do;
: w/ w9 F  t- A. R* ~proc sql noprint;
  P: d$ `. ?9 D$ R4 A  bcreate table CDS_temp as
4 v% S; t% t8 Z4 Vselect * from sashelp.vtable
where memname="&CDS_DataSet";
9 q' y7 i: U. v6 l# y5 s: dquit;
! Q& P# Q+ a5 K5 d& w2 {
proc sql noprint;
9 Y2 y- K- V5 v- a+ T( S: h# y4 t( Aselect count(*) into :CDS_DataSetNum from CDS_temp;
quit;
9 F1 Y- c  @5 f: Q- e: t+ D1 ~5 W
7 j# S* y3 S) L8 q%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
* l9 Y$ M4 H: a( Q- t%else %do;
. v5 [: u% X" i! {8 W* q%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;
%end;
$ K/ u, O0 F8 B%end;
/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
* y# u3 n- J1 y5 u, \%else %do;
$ m$ ?* Y# j0 {2 {%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
5 v5 m7 s8 w* ]+ W
%do CDS_i=1 %to &CDS_DateSet_Num;
* Y, ^3 J/ _0 g5 w2 ~+ p/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
% d6 E  q; K4 G4 M9 x%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;
* _9 Q! @& _# }( @. b%let CDS_LibName_&CDS_i.=WORK;
%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;
. v8 G# {" S0 T, t9 c; y/ e$ C. ~! [2 u
%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
$ D* k5 X4 n2 a%end;

+ s0 [6 I% I0 p& y/ Q%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;
* A2 `  e) I! R
/ a  ?+ Y, ]" i: H+ y# e# s9 ~0 F%do CDS_j=2 %to &CDS_DateSet_Num;
" {9 o. [; x/ ~% t2 {5 J0 \( d%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
1 d( Q7 T8 q5 k5 O* Y% M: x%end;
%end;

/ _; g! [9 H- d0 I, w/* 如果想要输出结果，请取消下面的注释 */
) o0 Z/ b0 x) O' d/*%put &&&FlagDataSetExists;*/

5 ~: s+ A% R. r/* 删除不必要的表格 */
proc datasets lib=work nolist;
delete CDS_temp;
! q# N; c  N6 pquit;

% A; `" T- Z6 f
( P  {, Y; L# ^) w( E! M%exit:
%mend;


%macro Demo();
9 r- S. e6 x1 L  L2 N; j$ I
& T8 c6 k$ k4 q- `& q# c%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
2 T$ d0 |- `' N+ t  n; I9 _%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
* j8 x* j: `$ D+ A: M: l- J6 F%ChkDataSet(&DataSet,&FlagDataSetExists);

%put &FlagDataSetExists1;

8 j7 P- s# U+ |& I%mend;