SAS基础宏之3：ChkDataSet

百年孤独

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

另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
/ X: e4 F$ f/ F% A& n所以大家还要多多交流

/ p& ]. o; |6 K4 F: B* b" ^0 i%macro ChkDataSet(DataSet,FlagDataSetExists);

/**********************************************************************/
" j' _  q0 i  j6 V9 X' m/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
% i8 N/ D; K! I" q$ n/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
: P, l- m/ }. i" x& ], ?' _+ [" {/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
! R. x7 a, C8 Y- g/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
6 [$ X3 s( Q! s9 K$ }/* */
; z2 G! {) w* E* F; W/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
. e3 N4 Z5 T; M9 f2 Z7 M) B/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
/* 表相应的数据集是否存在。 */
3 S) R5 M/ Q$ Q8 r; }/* */
. g7 w! d$ r: [/* Created on 2012.11.16 */
5 G. [& p0 Z9 d) C) u  k/* Modified on 2012.11.16 */
  V, i5 D! p6 }4 S  S$ g' j4 h$ c/**********************************************************************/
3 w4 d( w7 B. O* y0 R3 d! G
/* 检查DataSet的存在性 */
2 d* _' z7 h+ r6 ~/ W, l%if &DataSet EQ %STR( ) %then %do;
  B2 q$ S, z" w2 F1 o%put ERROR: The DataSet should not be blank, please check it again.;
# x6 u5 S+ A1 J& ^) Q%goto exit;
%end;
) G2 @3 }" r0 R" y
/* 开始进行计算 */
%global &FlagDataSetExists;

! @* Q) J% s  n0 O/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
" r$ o7 K( k' P! \+ s/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
/ V" o; w; J7 X. f6 {  _%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
! |+ r# u9 S$ Q0 M4 T' h2 j%end;
%else %do;
%let CDS_LibName=%STR();
%let CDS_DataSet=%UPCASE(&DataSet);
%end;

. e. B( c+ r) u9 c, c6 V%if &CDS_DataSet EQ %STR() %then %do;
$ [1 r7 \9 D) w6 d% R; v  `%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
%end;
3 V2 a2 E1 }) M; B%else %if &CDS_LibName NE %STR() %then %do;
%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
  e+ I( j1 [$ c6 b1 y%end;
%else %do;
proc sql noprint;
' b1 m1 s+ `* F1 z& H( O7 [create table CDS_temp as
+ X6 S/ P# v! ?, t- D' `1 w" eselect * from sashelp.vtable
where memname="&CDS_DataSet";
quit;
- ]* l  `# f1 r2 g4 w. a7 t
proc sql noprint;
select count(*) into :CDS_DataSetNum from CDS_temp;
* l6 ?% B* l7 |' ^quit;
/ [+ q* E% |" {
2 J+ ^$ \& {6 B  ~+ B%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
  Z$ g1 O, g+ I! `. G%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
( D( G8 h9 _$ C3 {3 ?4 L. |%else %do;
1 ~2 e& H; e9 W9 l%put ERROR: There could be more than one DataSets with the same name appointed in different libraries, please reassign a LibName first.;
6 I5 `. B+ ~' i%goto exit;
%end;
%end;
%end;
/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
7 r1 }) Q2 L4 x+ z%else %do;
2 r# X0 |3 F7 }8 g%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);

%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
0 k( _' j5 u; H/ J/ z%let CDS_LibName_&CDS_i.=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,1,.));
5 q' p& y+ j' V1 t9 `2 _& W, @%let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
%end;
# `0 T) O- g1 T4 l%else %do;
%let CDS_LibName_&CDS_i.=WORK;
%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;

%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
%end;

, z- y/ r* {: [- A9 Z%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;

- N! y5 c! V) u8 `1 @%do CDS_j=2 %to &CDS_DateSet_Num;
8 Z' y; ?, @- M6 N( _5 l%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
%end;
%end;

. ]3 C4 h& G6 Z( U" v7 P/* 如果想要输出结果，请取消下面的注释 */
8 R% s6 \4 M/ {+ u6 u/ t2 y' w/*%put &&&FlagDataSetExists;*/

/* 删除不必要的表格 */
proc datasets lib=work nolist;
delete CDS_temp;
quit;


%exit:
%mend;


# E8 A' @' o) i5 }; W! j7 v+ o7 ^$ ?%macro Demo();

%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
$ A; d% q  S9 b' W%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
%ChkDataSet(&DataSet,&FlagDataSetExists);
; m" o4 v% z8 l
%put &FlagDataSetExists1;

%mend;