SAS Macro小技巧—获取文件路径

%macro getpath;
%global currentroot PGMLIB Path Project;
%let currentroot= %sysfunc(getoption(sysin));
%if "&currentroot" eq "" %then %do;
%let currentroot= %sysget(sas_execfilepath);
%let Path=%sysfunc(PRXCHANGE(s/(.*)\\.*/\1/,-1,&currentroot));
%end;
%let PGMLIB=&Path.\macro\;
%put NOTE:PGMLIB =&PGMLIB.;
%put NOTE:Path   =&Path.;
%inc "&PGMLIB.\*.sas";
%mend;
%getpath;

/*获取系统时间*/
 data _null_;
 call symput("date",left(compress(put("&sysdate"d,yymmdd10.),"-"," ")));
 run;
/*以时间命名的新建文件夹*/

data _null_;
    NewDir=dcreate("&date.","D:\");
run;

<如果我们需要在data step中对某一类变量实现类似的操作>
<如：很多变量都有类似的 if 语句的判断>
first:
proc  contnets 获取变量列表 并筛选出你需要变量。
利用data Step  对name 进行一些连接
data _varstemp12;
 set _varstemp10;
 NAME1=strip(left("input("))||strip(left(NAME))||strip(",??yymmdd10.)");
 Cond="if length("||strip(left(NAME))||")=7 then "|| strip(NAME)||left("=compress("||strip(NAME)||left("||'-15')"));
run;
对所有不完整日期的变量进行补充“-15”操作
  proc sql noprint;
    select NAME1 into:varlist1 separated by ";" from DATALIB._varstemp12   ;
  quit;
data RAWDATA2;
 set RAWDATA1;
 &varlist1.;
run;