SAS 指定当前文件夹路径

   data _null_;
     set sashelp.vextfl;
     where index(lowcase(xpath),'.sas')>0;
     pgm_path=substr(xpath,1,find(xpath,'\',-length(xpath)));
     if index(lowcase(xpath),'autoexec.sas') then call symputx('pgm_path',pgm_path);
   run;