SAS基础宏之3：ChkDataSet

百年孤独

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
$ I6 h6 t1 g8 n1 e' t) a, y这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂
9 j% [7 x3 A$ a
8 O# g+ ?' G7 S( s; t1 I另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
- R) a: i& \; ?" F6 U+ k0 j0 U! |所以大家还要多多交流

%macro ChkDataSet(DataSet,FlagDataSetExists);
1 l( |+ _! \$ I$ W4 t; ^1 P/ y
0 P0 t1 X0 E, W1 {$ ~/**********************************************************************/
6 T; E( \: _" a/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
, {7 e6 l$ Y2 m" Q, a) d/ J/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
5 }" n: q+ s4 R2 W0 X/ M  o/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/ t" p1 c" _) X7 C* l% d  k; `9 @/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
* z; u  f) ?  N# q/ [4 y/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
; w4 d- z1 r8 y; c$ z' G( U/* */
' Y" j7 `# B" s2 B4 W: e/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
/* 表相应的数据集是否存在。 */
/* */
3 G* b/ s3 P/ W/* Created on 2012.11.16 */
/* Modified on 2012.11.16 */
/**********************************************************************/
& `% ~; O( W5 o0 A4 ^' W5 m
/* 检查DataSet的存在性 */
8 G* J1 S6 C) s1 K' }$ K: b%if &DataSet EQ %STR( ) %then %do;
8 ~+ |+ \8 n: D8 t  F, L/ ^%put ERROR: The DataSet should not be blank, please check it again.;
" y* ^, X; f# L; c9 I, L%goto exit;
%end;
2 K1 p/ n) t, ?6 Y
/* 开始进行计算 */
%global &FlagDataSetExists;
* n% p, l6 d7 g  }
/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
' M2 U9 M& |( Z3 m) e%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
7 G1 |+ A. n; Z# g: G; t7 r, E%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
, E) w. K  m; Y%end;
%else %do;
%let CDS_LibName=%STR();
%let CDS_DataSet=%UPCASE(&DataSet);
%end;

& k8 u: z; y/ D. x2 g- h  i# r%if &CDS_DataSet EQ %STR() %then %do;
( k; W; Y% s' [9 C0 x%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
%end;
% B6 B& D8 s9 D! D' n%else %if &CDS_LibName NE %STR() %then %do;
' m  Z/ B' U+ X2 B%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
%end;
%else %do;
proc sql noprint;
create table CDS_temp as
select * from sashelp.vtable
( t4 o- x; _  n  v4 T. pwhere memname="&CDS_DataSet";
quit;

: C/ c2 m) {! N# u2 Iproc sql noprint;
select count(*) into :CDS_DataSetNum from CDS_temp;
  t2 J$ c" H0 ~; Fquit;
& J, p! }, X7 C1 H" r2 N% d
%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
0 q) ^# j+ K7 ^$ R2 b& \%else %do;
1 o3 A) e' p3 W  h" x%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;
" z" k) T+ M* b$ f' l  u7 p%end;
6 q3 e0 d  K+ f( f, h8 Q7 F%end;
* R# G4 c8 `% U- J6 H4 A6 v/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
* W. V3 J" ~# D/ o% t%else %do;
%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
) n* b0 D& z. _. z5 g4 D
! v( f0 i* N* K%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
/ J2 v9 d% I3 w7 U' V( J  W+ K' W%let CDS_LibName_&CDS_i.=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,1,.));
" n: P* O* |: X+ x( M%let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
%end;
3 {" q3 K* q( ?' ?  l8 V%else %do;
%let CDS_LibName_&CDS_i.=WORK;
- K. v3 @! ~( A%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;

3 r5 o& O( w4 Q%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;
%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
2 {3 X. a2 l/ J" y) G8 t4 n%end;
) `  F7 N( D: I, W%end;
& E. S# {' O. W0 n: l
3 X3 u( D# ]; T/ y3 k  D! g6 R/* 如果想要输出结果，请取消下面的注释 */
" B5 S7 c4 _% s# C: M/*%put &&&FlagDataSetExists;*/
: d  Q; ]4 l$ F' Z3 q; l" ?
  {  m( z3 Y& W( A. x( b5 Z/* 删除不必要的表格 */
proc datasets lib=work nolist;
* K7 c9 h! a) n3 z& [2 E) cdelete CDS_temp;
; Y9 A2 ?5 T- I! ]9 n( J0 Xquit;

- {$ d2 o' f% u$ {0 c! N, G7 M. r
' b( r* |" a7 r# c%exit:
) d6 M* g2 e" w8 N$ \  |%mend;

; z6 A' [. h! g/ x9 u1 P1 i* Y
%macro Demo();
, y$ ?- i( g% w
%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
  X( H4 Q, B3 n$ B1 u%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
  G; s1 A: J! `: j7 L5 _%ChkDataSet(&DataSet,&FlagDataSetExists);

%put &FlagDataSetExists1;
) B& x- f& w8 _6 m- H
%mend;