SAS基础宏之3：ChkDataSet

百年孤独

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

8 ?/ B" L+ n' m另外，如果有更好的解决我写的宏的方法，欢迎指教
) b8 z9 p5 d2 x' p5 L话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流
) ~8 d* z9 A# ?( ~0 x- g
  l* u. |0 C2 V! [7 h%macro ChkDataSet(DataSet,FlagDataSetExists);
7 ~; [% l0 L  y1 y% g! _% N0 H
+ X- ^. s. Y7 q7 e/**********************************************************************/
0 |1 |1 A0 |' {, ], w% Z/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
3 P3 q7 ^7 Z$ ~: s/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
; A6 E7 B! J7 L/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
/* */
/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
9 f* u5 H! I5 E. k/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
2 T* e. z/ d* v$ q/* 表相应的数据集是否存在。 */
/* */
( s! h7 ?0 W) L. D) M6 n/* Created on 2012.11.16 */
8 f  @: H8 G9 k8 O; D) T# c4 a  {3 P8 Z9 X/* Modified on 2012.11.16 */
/**********************************************************************/

/* 检查DataSet的存在性 */
%if &DataSet EQ %STR( ) %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
! u( I1 i& j3 h7 d%end;
$ E1 d% _& B5 ~+ j
* o! ]/ F% D: {% N9 K0 a/* 开始进行计算 */
- J: e$ f* t% @$ o%global &FlagDataSetExists;
3 J! e. m6 _+ t+ X
/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
, B5 M, W$ j4 e: M; s+ G4 E8 a/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
0 x$ m1 r# A8 u8 a/ A8 V%end;
6 s4 l, I) r% `: Y1 d. k%else %do;
%let CDS_LibName=%STR();
. s, @+ J) P# ^' j9 i, r%let CDS_DataSet=%UPCASE(&DataSet);
%end;

%if &CDS_DataSet EQ %STR() %then %do;
  \! B* [) Y1 R# i%put ERROR: The DataSet should not be blank, please check it again.;
0 I- o2 U  ~% M5 k/ ]- I- b3 u6 H- Q%goto exit;
, V' U- ^" e6 i2 r7 w%end;
%else %if &CDS_LibName NE %STR() %then %do;
: W/ [! S; C$ R3 q4 ^" J%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
4 \; `! P4 M; g4 k%end;
%else %do;
proc sql noprint;
7 y1 |  m0 J+ u3 V% m0 Y$ ]create table CDS_temp as
& X+ R1 ?6 l1 K" _9 N4 uselect * from sashelp.vtable
$ r  P9 T4 A' g. j7 Lwhere memname="&CDS_DataSet";
5 Q6 Y* G/ T& |( ~% J7 s4 q# T3 H& fquit;
4 t* q9 P7 Q3 Y* M9 f- Q9 [6 G
proc sql noprint;
select count(*) into :CDS_DataSetNum from CDS_temp;
quit;
3 V4 `. [- A0 A. u& R( ~
" s2 F* L5 @* a/ u%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
%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.;
! p' ]  v4 W7 _# c2 [  _& ~%goto exit;
%end;
; ~' a9 X( h$ q- H& s( k%end;
4 B; I: V/ j" s! j! g9 t3 Y  z%end;
8 D# D( Q# m2 `3 q* l, f+ K( F( B/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
%else %do;
3 Z6 M! _( M, N%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
$ l( B& J" ^- I# I2 w- U) X- n9 R
" v0 k% r& W2 {4 H5 b! {%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
8 k" C5 p3 ?( i, w# G* ]* B# i%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,.));
%let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
%end;
%else %do;
  s0 p% U. G8 E) \$ e- I: Z, F%let CDS_LibName_&CDS_i.=WORK;
%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;
# F) y% I4 F- w- y2 p
2 d. [. H# Y( i# J& J. h2 n%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
" H5 K# c7 G( q% D" V%end;

%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;
0 O9 D1 a8 J9 e# P' \$ C' O
2 E2 f6 B9 X" ?: J%do CDS_j=2 %to &CDS_DateSet_Num;
+ C9 F% p9 w" ~- a, \. {4 p4 ?' @%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
%end;
%end;
! B9 h* W6 z/ v( H4 K2 }
2 \* L# P( A: x" H/* 如果想要输出结果，请取消下面的注释 */
/*%put &&&FlagDataSetExists;*/
( S1 F/ {6 ^' q' H
! n0 l) q8 y. l- A6 |/* 删除不必要的表格 */
proc datasets lib=work nolist;
delete CDS_temp;
quit;
+ F+ |  k7 W5 \& m0 U3 O" w9 _7 \

%exit:
* A% N; r  }' ^$ m! ^+ L( @%mend;
7 n$ E7 {% @+ r
- M6 l: f, k& F  M' K
%macro Demo();

7 {4 ?' b+ P( P( l' K%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
" d/ z9 U  f& R. |' k% g%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
& D  U; t+ v- j( R0 c7 m+ j%ChkDataSet(&DataSet,&FlagDataSetExists);

6 M+ \# ~9 v0 m0 N* j/ j%put &FlagDataSetExists1;

- p0 M7 [9 n6 u+ c  `& |6 \1 F%mend;