SAS基础宏之3：ChkDataSet

百年孤独

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂

另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
" c* @/ \1 j8 y, A* s所以大家还要多多交流
! z7 f4 [2 q5 D' T2 h5 M0 R% O
%macro ChkDataSet(DataSet,FlagDataSetExists);

/**********************************************************************/
/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
2 [% x" |7 w4 M0 |: f/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
- i# e- f4 S6 J$ ^/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
" ~7 E8 o+ m: j! e# x/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
! f, \2 M" N, {/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
* b7 {- I/ _6 c, \/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
/* */
/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
. c  u* h* [. j" V8 g  E/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
2 R2 ], O9 }0 K6 s3 Y/* 表相应的数据集是否存在。 */
/* */
2 W. q5 B* Y0 w  T; r/* Created on 2012.11.16 */
: D" t2 x0 }) M2 ^5 c6 G! q/* Modified on 2012.11.16 */
/**********************************************************************/

/* 检查DataSet的存在性 */
%if &DataSet EQ %STR( ) %then %do;
# u! j7 L" ~, a$ X' t* [  `; b: ?%put ERROR: The DataSet should not be blank, please check it again.;
. }  x- o5 Y5 I7 y7 i4 k8 w/ ^%goto exit;
%end;

/* 开始进行计算 */
%global &FlagDataSetExists;
! h# Q+ @: t# G
. R% o# M/ ~; @1 L9 @4 A. }/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
# `7 B$ u) l  C7 p( y%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
* ], ?2 Z. M+ G$ H" t  x%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
( Z% B: M6 Y; [%end;
%else %do;
%let CDS_LibName=%STR();
; `: b  M+ o- F%let CDS_DataSet=%UPCASE(&DataSet);
# o' t5 k' x* d# @4 A. D# y%end;

%if &CDS_DataSet EQ %STR() %then %do;
3 b7 D6 ~! J4 v%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
%end;
& B9 P: r+ K2 h( |" j+ t- _%else %if &CDS_LibName NE %STR() %then %do;
& \6 X3 s" X' \) G" @%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
%end;
%else %do;
* r0 c' }" p- n' w0 `/ |+ tproc sql noprint;
create table CDS_temp as
+ S- F: t2 t9 T% P- ^  F) kselect * from sashelp.vtable
. M9 w) J' ^/ j" V  T) I0 Y+ `where memname="&CDS_DataSet";
& e; G9 N& i! u, L. Mquit;

proc sql noprint;
: [% @" {, B# f" }select count(*) into :CDS_DataSetNum from CDS_temp;
- E! O% e, K# d- c% Wquit;

  x! o2 Z, [1 W8 N%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
' f1 r' e6 q0 [%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
%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;
, z9 U! G  I' P- w9 G; F%end;
. B& ^% T8 K: a' h8 C* x1 O6 B%end;
%end;
/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
4 ~' B% B) @' f. t& F  x  n- S0 z. R%else %do;
%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);

%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
% ]" Z2 X1 K0 b4 F% ]& N+ v%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,.));
+ l1 I, r) {# n%let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
3 X1 X4 Q/ Y' @7 @$ G* D%end;
; `# |2 Q! R8 p# c0 }1 g%else %do;
%let CDS_LibName_&CDS_i.=WORK;
%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
; ~5 s/ b8 y9 O%end;

' n, U! Z! v4 `%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
%end;

%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;

%do CDS_j=2 %to &CDS_DateSet_Num;
) M# }. N+ |& o- k* {  H%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
%end;
%end;

/* 如果想要输出结果，请取消下面的注释 */
/*%put &&&FlagDataSetExists;*/

/* 删除不必要的表格 */
proc datasets lib=work nolist;
delete CDS_temp;
quit;
6 T' n& \0 \0 Q/ {. N( ?2 g
+ e$ f4 m1 h( l0 s: K3 |7 l5 W
%exit:
. n! p+ j! k* c+ X+ q( ^, r%mend;

% o; g! v- _: i7 z) q9 ~
% o3 f4 Z6 i6 z5 {3 U& M) Q, K%macro Demo();
- H; @# l5 R; D# l% t9 V
%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
' u9 ^3 J+ _: p6 i%ChkDataSet(&DataSet,&FlagDataSetExists);

%put &FlagDataSetExists1;

$ S; j- G: N% h  n' I! Q2 ?%mend;