[code:qcsqoz5d]
data file; run;
filename folder pipe 'dir f:\DATA /b';
data filelist;
infile folder truncover;
input fname $15.;
filename=scan(fname,1,'.');
run;
%macro imp(filename);
proc import datafile="f:\DATA\&filename..tsv" out=file1 dbms=tab replace;
getnames=no;
DATAROW=2;
GUESSINGROWS=1000;
RUN;
data file1;
date=&filename.;
set file1;
******************************************************
including some steps to revise the variables
******************************************************;
run;
data file; set file file1; run; *把每个file1写到一个总file中;
%mend;
data _null_;
set filelist;
call execute('%imp('||filename||')');
run;