SAS基础宏之3：ChkDataSet

百年孤独

这个宏就简单了，输入一个或多个数据集，输出1或0，分别表示该数据集是否存在
) O' d+ P6 Y0 n! p这个宏用于在其他宏中保持robust用的，如果不先确定下数据集是否存在，到时候SAS在log窗口报的错可不是那么好懂
% M' v2 w5 C0 S' g# S: {  k
另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流
- F* x( w  I. A: P8 _; _6 z
& P/ \1 q* G  J( j%macro ChkDataSet(DataSet,FlagDataSetExists);
) K/ U" e) F: C" {- u
, A2 q2 r# x5 Y! a7 g/**********************************************************************/
9 u" X$ \1 I" \- z/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
" c6 \7 c3 d* k) h- y/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
; ~- e" F5 W* i  ?$ i& O/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
) a/ |3 e+ I* y$ F# Q/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
/* */
/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
/* 表相应的数据集是否存在。 */
/* */
/* Created on 2012.11.16 */
/* Modified on 2012.11.16 */
/**********************************************************************/

/* 检查DataSet的存在性 */
' H7 o% T) ?9 i6 t8 s1 A1 x%if &DataSet EQ %STR( ) %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
6 v4 E* c* D6 E, K6 Z- a) Y%goto exit;
$ Y4 @! _. ]( |. [0 A! X1 [%end;

  y( j4 z2 A! a4 c, v/* 开始进行计算 */
$ m: k9 `" o! x9 V%global &FlagDataSetExists;

/ C+ h  R8 l+ W3 `+ H/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
, p2 c1 n4 k2 d: \4 X3 x%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
7 \9 Z0 K" h5 ]9 c%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
%end;
%else %do;
' Y: w5 l: e) [9 Z9 D2 Q%let CDS_LibName=%STR();
%let CDS_DataSet=%UPCASE(&DataSet);
* c, o& f* ^; k% P& }& Z# ?5 u( Z# e- [%end;
  f1 y" q/ K/ z+ S: [0 E4 b
# F  F" @4 J4 L5 w" R%if &CDS_DataSet EQ %STR() %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
2 S% W8 `: I. l' R! i! L0 c' n$ S%goto exit;
%end;
%else %if &CDS_LibName NE %STR() %then %do;
%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
%end;
%else %do;
proc sql noprint;
, Y# J  ~8 q  G, R( P" w  {1 o8 Tcreate table CDS_temp as
select * from sashelp.vtable
where memname="&CDS_DataSet";
3 m9 o9 y8 X4 {, A: l9 Hquit;

proc sql noprint;
select count(*) into :CDS_DataSetNum from CDS_temp;
quit;

%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
" H2 V5 q7 J. N) G) N%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
%else %do;
' K- [7 O3 H- ]7 u2 Z%put ERROR: There could be more than one DataSets with the same name appointed in different libraries, please reassign a LibName first.;
1 Y1 a: f- n/ q%goto exit;
: f% I/ Z- ?9 j2 g2 i, V& `%end;
- J7 G. h. l. p/ B- O: v%end;
%end;
$ n, u: D5 q1 ]3 I) d: z# q/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
2 r0 h2 S1 N0 w  ^: [%else %do;
; Z6 x: l5 L2 _! Z%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
! `$ D4 g, k7 `" J
%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
( F8 M' F9 ^+ A5 Y5 q5 D%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
2 N! @$ z$ R7 g3 O%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,.));
8 f8 \. y) x2 O5 A%end;
%else %do;
%let CDS_LibName_&CDS_i.=WORK;
%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;
+ G  j% J, O& l. X9 r4 B  @
" v( c& P4 n. o/ U. s* q%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
%end;

% \! n. J% g$ I%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;

0 b) W( d; E4 c9 X! {%do CDS_j=2 %to &CDS_DateSet_Num;
%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
, S# @8 B# M; }3 U( T! n%end;
%end;

/* 如果想要输出结果，请取消下面的注释 */
: b, o/ X; @, n2 @, V/*%put &&&FlagDataSetExists;*/

/* 删除不必要的表格 */
; [% J! T3 n" G" T; \! Nproc datasets lib=work nolist;
delete CDS_temp;
quit;


2 e: U/ p* k! J) [  H8 `%exit:
%mend;
7 H! S! ~3 V5 U$ O: Z0 p$ C0 g
( Q2 E  Y$ T5 |% d
2 b& K. c2 V  F4 v( P% {%macro Demo();
/ X2 f  U' [" V. S
%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
4 ?+ L; Q( g7 T* ?%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
  K$ T# v0 ?+ P  k2 Q%ChkDataSet(&DataSet,&FlagDataSetExists);

%put &FlagDataSetExists1;
+ K3 z+ }5 T0 [; E$ o8 m
%mend;