SAS基础宏之3：ChkDataSet

百年孤独

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

0 H3 j( E! d, |* c+ n( W* D0 {, @另外，如果有更好的解决我写的宏的方法，欢迎指教
话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
所以大家还要多多交流

%macro ChkDataSet(DataSet,FlagDataSetExists);

/ l7 M/ l4 C! n) W( V/**********************************************************************/
& a$ [8 o; F  a# ^$ a. ^. |/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
; m# T1 X$ x! F, y! b" Y6 U. A: O/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
+ P4 i7 R. _% F! c/ C7 V1 \5 Q/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
1 ]( ~2 J( b0 Z6 t( @/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
) c( u9 m7 F9 e$ {" D. }/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
/* */
/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
$ d4 J. R  z$ y! o/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
' @, L7 S7 k2 Z! s1 ?/* 表相应的数据集是否存在。 */
8 ?# F0 T, L3 m+ u  s, q( V/* */
" V7 e# [& G+ Y, X" Y# I/ H* ~* N0 M/* Created on 2012.11.16 */
$ n6 o. b2 C2 @9 a3 ^/* Modified on 2012.11.16 */
' S, `; Y: W8 Q3 ]: _* m/**********************************************************************/

/* 检查DataSet的存在性 */
' Z5 q& }$ b- j%if &DataSet EQ %STR( ) %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
%end;
& ^  L7 L+ R* |& G( e
1 p: V5 |2 k1 |4 A# l/* 开始进行计算 */
6 d2 g+ y$ C8 O. K  t%global &FlagDataSetExists;

/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
0 r7 N; w4 c7 K2 Z%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
% R; R( |; _- d%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
% X% d8 x0 _# z( j& C1 N% ?7 V$ R%end;
. A1 I# Z5 h7 T+ j3 t%else %do;
; K$ c" R$ ?% A- D%let CDS_LibName=%STR();
9 F! S3 j; D) Q6 B" W9 ]7 I%let CDS_DataSet=%UPCASE(&DataSet);
. T+ n) i: ?3 a/ ^+ w) E( ^! \& ~! z%end;
' }  _0 @/ V$ s2 s5 N
8 S* Y; s  o% l5 \  a8 G%if &CDS_DataSet EQ %STR() %then %do;
8 m: M& f5 W( s1 ?. C' \%put ERROR: The DataSet should not be blank, please check it again.;
  Q. }  ?1 G; `( K4 I  N5 ?& F%goto exit;
%end;
7 m& N. B4 U5 J3 R%else %if &CDS_LibName NE %STR() %then %do;
%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
5 K; J+ A8 {- g$ F. q- B5 Y" s%end;
8 S2 v: F& g% w, H%else %do;
& l+ A, L/ A  z5 ?7 F0 iproc sql noprint;
4 B% h! h) S4 x' z" pcreate table CDS_temp as
select * from sashelp.vtable
6 G& Y+ X! _& u+ _. J; _# ~4 Kwhere memname="&CDS_DataSet";
2 y6 g7 Z4 g& G& a1 r( M/ aquit;

% y! c: L, |1 e: _: Pproc sql noprint;
& B2 r* ?$ ?" A7 Q$ L! Rselect count(*) into :CDS_DataSetNum from CDS_temp;
quit;

7 }! n. ?- ?& V%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.;
%goto exit;
%end;
( r4 _! W3 C* f" h%end;
%end;
/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
%else %do;
  Z" O/ h) k, J3 m4 c( e  t+ f%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;
%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,.));
" P7 K9 ]0 ?7 l1 d& w%end;
. M3 w5 s- t" ~' \& y( Y8 J%else %do;
! o& B9 C4 n* r%let CDS_LibName_&CDS_i.=WORK;
6 r: `( h# e* f5 C# Y%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
* A, P' Y" w& f+ n% a%end;

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

%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;
6 s" H8 M) g. d+ Z  w4 q9 ~, N
4 V7 D3 N8 w) v" b0 A6 T%do CDS_j=2 %to &CDS_DateSet_Num;
! H7 @6 ~5 \- j* Y( ?( |%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
" a# F2 ^( h5 e( T3 G%end;
; Z, M) e( i* W5 j%end;
" C  f4 [" V" b6 V. N
/* 如果想要输出结果，请取消下面的注释 */
1 z9 k/ ~) c% G5 E! l0 A1 n/*%put &&&FlagDataSetExists;*/
6 `' ?. A9 P1 W' U0 U7 w1 H
/* 删除不必要的表格 */
proc datasets lib=work nolist;
' H$ V1 H# K) x4 U, U* V1 u, ~delete CDS_temp;
, q1 S4 A- [* n4 |quit;

6 j# Y) M" L9 S$ b6 s# f- Y* L
%exit:
) w. D6 V2 Q4 Z: q, \+ q5 e: }4 {0 l' A4 L%mend;
* t( y& T4 S$ }4 E- O

" A  t1 e1 ?7 h2 r/ ]%macro Demo();
2 ^4 U- }+ b. F  b  {# r
9 ]: P) d- ?# @1 {: X  `%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
7 B: w( w' i4 ]5 @+ g. H%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
' a" R) {2 i/ r+ k/ T%ChkDataSet(&DataSet,&FlagDataSetExists);

%put &FlagDataSetExists1;

/ K0 ~1 @& ?5 A+ q# ]  N) j! r%mend;