SAS基础宏之3：ChkDataSet

百年孤独

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

& I# }( _: Z* H9 V! M* U另外，如果有更好的解决我写的宏的方法，欢迎指教
! @; b: ^  V1 W% i! E话说我很久之前吭哧吭哧写的一个标准化的宏，后来才发现有proc stdize
4 Q3 F% i0 ~5 Z5 \- g! f所以大家还要多多交流

3 J- l5 _: F8 F8 S3 \# E' H%macro ChkDataSet(DataSet,FlagDataSetExists);
8 B2 H' B. P. _2 j9 G6 L. I
: u5 }: k: J; }! \/ _/**********************************************************************/
" D' V. \% \/ [! e/* 此宏用于检查指定的数据集是否存在。其中，DataSet是指定的数据集，若 */
/* 需要指定具体的逻辑库，则采用逻辑库.数据库的格式，可设多个数据集， */
/* 用空格分隔；FlagDataSetExists是标记宏变量名称，=1表示数据集存在， */
; ~* B2 Z. U' Y0 b+ G6 ]# |/* 否则=No，若指定了多个数据集，则不同位置上的1或0代表相应的数据集是 */
/* 否存在。另外需要注意，第一，当仅指定一个数据集时，若不指定逻辑库名 */
/* 称，而只指定数据集名称，此时若在SAS环境中只包含一个指定的数据集， */
/* 则标记宏变量FlagDataSetExists=1，若包含多个同名的数据集，则会报错；*/
# G4 n9 c  A( Z4 _" N% I- }/* 第二，当指定多个数据集时，若不指定逻辑库名称，则默认为WORK逻辑库。 */
( p$ G5 _% i2 d* D! D0 n& L/* */
7 J  v+ N4 g; I' r) I/* 最终得到的是宏变量&FlagDataSetExists，若指定数据集存在，则有 */
/* &FlagDataSetExists=1，否则=0，若为多个数据集，则不同位置上的1或0代 */
; ]% B2 C) t2 N! s$ l/* 表相应的数据集是否存在。 */
/* */
! w; ^, x. y5 J; L3 a/* Created on 2012.11.16 */
/* Modified on 2012.11.16 */
9 B! A. s2 ]3 @% V" O9 d/**********************************************************************/

/* 检查DataSet的存在性 */
! b% r& c. j, g2 g7 {8 U%if &DataSet EQ %STR( ) %then %do;
%put ERROR: The DataSet should not be blank, please check it again.;
0 a, Q1 O8 P% |: Z1 X( F%goto exit;
%end;
0 b# W0 l; R3 A7 z
5 V: K, h1 W" d/* 开始进行计算 */
% ]; Q; C& G0 f2 z%global &FlagDataSetExists;

/ |! G& p, ]! u+ z$ u/* 情形一：仅设定一个数据集，此时若省略逻辑库名，则在所有逻辑库中查找同名的数据集并予以报告 */
$ u8 |1 ], n# h% `# c8 b0 U%if %SYSFUNC(FIND(&DataSet,%STR( ))) EQ 0 %then %do;
/* 检查DataSet的合法性 */
%if %SYSFUNC(FIND(&DataSet,.)) NE 0 %then %do;
%let CDS_LibName=%UPCASE(%SCAN(&DataSet,1,.));
%let CDS_DataSet=%UPCASE(%SCAN(&DataSet,2,.));
- n) x9 m& v/ i" ~% z, Z%end;
%else %do;
%let CDS_LibName=%STR();
%let CDS_DataSet=%UPCASE(&DataSet);
%end;

%if &CDS_DataSet EQ %STR() %then %do;
6 u/ u- t& l1 J. U% @%put ERROR: The DataSet should not be blank, please check it again.;
%goto exit;
" r/ x: J) g: B' w- X%end;
& g  X/ S5 l4 ^' I%else %if &CDS_LibName NE %STR() %then %do;
' R) g3 i& t: O4 s+ a; c%let &FlagDataSetExists=%SYSFUNC(EXIST(&CDS_LibName..&CDS_DataSet.));
%end;
7 z: y3 R& |2 f+ x% o1 q%else %do;
: h- |; x& c/ r7 I  Uproc sql noprint;
create table CDS_temp as
, h* Z# ]: j3 {select * from sashelp.vtable
, s% a$ d+ l; F8 K" `where memname="&CDS_DataSet";
# y% J+ T2 S' A: z8 c  Equit;
0 C( K# [: I$ [  q
proc sql noprint;
6 t( S8 l" n$ _9 _7 Wselect count(*) into :CDS_DataSetNum from CDS_temp;
quit;

% ~% d; R) }0 Z* p/ Y7 @%if &CDS_DataSetNum EQ 0 %then %let &FlagDataSetExists=0;
%else %if &CDS_DataSetNum EQ 1 %then %let &FlagDataSetExists=1;
( S4 g7 A, R; s%else %do;
9 m$ ]& R# v3 j( h%put ERROR: There could be more than one DataSets with the same name appointed in different libraries, please reassign a LibName first.;
7 `( z3 r$ r: P: j%goto exit;
/ H  E' h# P& Z7 e$ s! R%end;
%end;
3 H, e* u" Q3 Q. q8 {%end;
2 v3 M2 ^7 O! K8 d/* 情形二：设定多个数据集，此时若省略逻辑库名，则默认为WORK逻辑库 */
2 g6 T- H( u! j! |) X; R%else %do;
%SeparateString(InputString=&DataSet,OutputString=CDS_DateSet);
4 y" Q/ _" L, T: \/ _
- u( D: `, l3 A/ Z+ U( F%do CDS_i=1 %to &CDS_DateSet_Num;
/* 检查DataSet的合法性 */
& o1 C6 ^+ H' o6 ^0 Q/ }# s%if %SYSFUNC(FIND(&&CDS_DateSet_Var&CDS_i,.)) NE 0 %then %do;
1 ^/ r6 Y2 \' [/ @%let CDS_LibName_&CDS_i.=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,1,.));
( M' C0 [  g& X% U8 \6 W2 T%let CDS_DataSet_&CDS_i=%UPCASE(%SCAN(&&CDS_DateSet_Var&CDS_i,2,.));
+ |) ~' ^+ [' [* I, d0 ?" U%end;
/ H+ B5 Q4 y$ u, Q) Z9 ^& G%else %do;
%let CDS_LibName_&CDS_i.=WORK;
7 _0 n9 O4 e/ A8 ?# p9 T/ t. p%let CDS_DataSet_&CDS_i.=%UPCASE(&&CDS_DateSet_Var&CDS_i);
%end;
% Y0 S0 z0 g$ {, B; {
%let CDS_FlagDataSetExists_&CDS_i.=%SYSFUNC(EXIST(&&CDS_LibName_&CDS_i...&&CDS_DataSet_&CDS_i.));
%end;

' ]4 ^( K- e7 H) f%let &FlagDataSetExists=&&CDS_FlagDataSetExists_1;
) U% a# ~" i% n2 T2 O% w
%do CDS_j=2 %to &CDS_DateSet_Num;
, r& J# V9 Z. n) s9 d  O5 `%let &FlagDataSetExists=&&&FlagDataSetExists.&&CDS_FlagDataSetExists_&CDS_j;
%end;
%end;

8 I; p  A4 N; M  a  L+ Q' w/* 如果想要输出结果，请取消下面的注释 */
/ |* U3 H$ M* a1 k, ^/*%put &&&FlagDataSetExists;*/
  @2 Q% Z- v- O5 n2 f# [8 m
/* 删除不必要的表格 */
; ^/ q' f, B& M, t& Z# _( Jproc datasets lib=work nolist;
# V& Q& C8 Z) K! C4 A/ bdelete CDS_temp;
quit;


%exit:
%mend;
" W. G) g: [# R; L( _, s8 r
" s/ G+ f' r) j7 ?5 F7 P# h
1 F' a$ a; r8 o0 t6 j%macro Demo();

6 i8 @6 q. z5 w- a%let DataSet=Gfl_fundcodelist_mgrname Gfl_managersoffund; /* 数据集名称，可设为多个，用空格分隔 */
6 h2 l$ n. ?! A/ z' y* ?7 `6 ?% d1 t%let FlagDataSetExists=FlagDataSetExists1; /* 宏变量的名称，注意不能与参数名称相同*/
4 F+ n! P2 _' L%ChkDataSet(&DataSet,&FlagDataSetExists);

%put &FlagDataSetExists1;
4 l& U+ n3 N; q1 e" t" Y+ g1 a) B
%mend;