%macro dataset_exist_macro(ds);
    %let ds_flag = %sysfunc(open(&ds,is));  
    %if &ds_flag. eq 0 %then %do;  
        %put '数据集不存在';  
    %end;  
    %else %do;  
        %let ds_close = %sysfunc(close(&ds_flag.));  
        %put '数据集存在';
    %end;
%mend;