SAS基础宏之3：ChkDataSet

百年孤独

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

另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流
' {' Q+ n& n) }. E
2 L) n" r6 W7 F: Q%macro ChkDataSet(DataSet,FlagDataSetExists);
3 N/ \* c6 w  ]# e& z4 x
/**********************************************************************/
" [! D6 X6 D. G9 c* R. h) E( `+ n/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
8 k6 A2 Z, M5 G7 G. j/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
  @& Q& X# P. k0 q8 Y/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
. Z0 v0 b; c  l9 }4 s( R; t/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
/* */
( V1 V" Z8 B$ J5 E4 y/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
+ _. p' H! h3 t% I8 n/* 表相应的数据集是否存在。 */
/* */
! S  @$ a  k% {4 Y1 |/* Created on 2012.11.16 */
6 a: y8 v, K1 o; ~1 E+ J5 A5 D/* Modified on 2012.11.16 */
1 ~" X1 q" b  U- ]; a- ^/**********************************************************************/

/* 检查DataSet的存在性 */
%if &DataSet EQ %STR( ) %then %do;
8 n$ M, j7 I, g2 |9 \%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
) l: f0 ^! ?- d3 T; O8 A$ g%end;
2 `9 H& a4 L# _1 G
+ W; j8 ~, c. S+ m( I; ]/* 开始进行计算 */
+ @9 d; C) z, ^" K4 n* w, v* ?%global &FlagDataSetExists;

" i7 J9 a: l4 [( z0 f! I+ b/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
7 P3 u# t  k; g, z- t+ r" D%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
7 D/ W- z! K; ~- ]%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
0 _% n; H9 [9 n2 Y1 f( m" j%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
- Z5 T: _& t) R: e0 F%end;
. U$ a, g% m' v5 t8 e%else %do;
%let CDS_LibName=%STR();
%let CDS_DataSet=%UPCASE(&DataSet);
%end;

%if &CDS_DataSet EQ %STR() %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
- @. s4 T9 \" f! J+ |%goto exit;
* R3 t% ^  I; }5 l! V4 d9 n- q%end;
" K1 e7 ^7 R5 }6 x%else %if &CDS_LibName NE %STR() %then %do;
, m* L6 f2 L, b, w3 P7 t%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
) p' D+ i/ |4 W$ L5 w3 g5 K: F& E%end;
0 T. {& L; C7 D; c%else %do;
' a, D* \+ M5 k+ kproc sql noprint;
# d2 {) c2 ?! c# B# L' ^create table CDS_temp as
/ P# v5 q( R+ o, g' Gselect * from sashelp.vtable
3 q6 C2 O4 h2 m! G  ~  ~4 L3 N% Kwhere memname="&CDS_DataSet";
quit;
: b- v) \/ Z/ h, R  _8 A
) o, {5 u; s7 U8 lproc sql noprint;
& C" w8 ~8 Z$ h7 Uselect count(*) into :CDS_DataSetNum from CDS_temp;
quit;
% Z/ R1 Q( p, Q% S. V8 [1 |' I
; }% p( V% K/ r5 Y& z%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
$ z0 E/ N! t  ?( N%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;
  ^$ T7 F/ {: h  t1 O%end;
5 z; m- L/ [( |%end;
%end;
- T1 v9 n) |. n9 v/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
; h" v; q& i, m( I+ ]%else %do;
; C. i' D8 L' U%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
8 @4 [' w0 @# ?% d0 P
%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
, W% O% C/ }3 g1 e: M%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;
+ a/ m! Y" x1 ]8 b' i%else %do;
%let CDS_LibName_&CDS_i.=WORK;
%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;

$ F& q0 E1 c; W9 \1 K: Y%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
# J2 `5 |. c- _) n4 F%end;

%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;

%do CDS_j=2 %to &CDS_DateSet_Num;
/ c7 m( ~$ g; B%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
%end;
! x: v* H) q1 X  k# V' F5 a%end;

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

, @  G( A- u1 \! n4 s/* 删除不必要的表格 */
proc datasets lib=work nolist;
. O/ p! Z* N/ t8 wdelete CDS_temp;
quit;


4 y. R/ l* f# E' ?2 {, g( m0 D%exit:
" D! U. n; H  u%mend;
  ?3 q4 W5 o: \# W7 [- o1 o# @

%macro Demo();

%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
- V3 @: G2 l; i; C%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
/ A. }, g( v  e$ m) L%ChkDataSet(&DataSet,&FlagDataSetExists);

) i9 C8 r' u' n4 N%put &FlagDataSetExists1;

%mend;