求教各位老师：
%macro directory(dir=);
%let rs=%sysfunc(filename(filref,&dir));
%let did=%sysfunc(dopen(&filref));
%let nobs=%sysfunc(dnum(&did));
%do i=1 %to &nobs.;
%let name=%qscan(%qsysfunc(dread(&did,&i)),1,.);
%let ext=%qscan(%qsysfunc(dread(&did,&i)),-1,.);
proc import out=&name. datafile="&dir.\&name..&ext"
dbms=tab replace;
getnames=no;
run;

/*这段程序是我加的*/
/*E:\股票数据 文件夹中的文件名为gp000001 , gp600012 , gp300010 等。。 每个文件的格式一样*/
/*想将导入的每个文件做一些处理，如gp000001，增加一变量（名称） 变量值等于000001，
再删除最后一行数据，或保留一段时间的数据*/
data a&name.;  
set &name.;
micheng=000001;
run;
/*另外再请教如何将处理过的数据集，全部串接到一个数据集中*/

%end;
%mend;
%directory(dir=E:\股票数据);


谢谢各位！！