SAS程序问题，请教高手指点-经管之家官网！

我的一段SAS程序如下：
（注：该部分程序改自于人大经济论坛的程序。程序的主要目的是想读入在某个文件夹下的所有xls文件。论坛上高手比较多，请教高人指点下）
filename y "C:\Documents and Settings\ibm\My Documents\My SAS Files\9.2\li0oi3pj1\";
%let dir=%str(C:\Documents and Settings\ibm\My Documents\My SAS Files\9.2\li0oi3pj1\);
%macro test(filname);
%let filrf=&filname;
%let did=%sysfunc(dopen(&filrf));

%let listname=;
%let memcount=%sysfunc(dnum(&did));
%if &memcount gt 0 %then %do i=1 %to &memcount;
%let listname=%sysfunc(dread(&did,&i));
%if %sysfunc(scan(&listname,-1,'.')) eq 'xls'
%then %do;
PROC IMPORT OUT= w_&i
DATAFILE= "&dir.\&listname"
DBMS=Excel REPLACE;
GETNAMES=NO;
MIXED=NO;
SCANTEXT=YES;
USEDATE=YES;
SCANTIME=YES;
RUN;
%end;
%end;
%else %do;%let rc=%sysfunc(dclose(&did)); %end;
%let rc=%sysfunc(dclose(&did));
%mend;
%test(y);
程序的运行结果是：只在日志窗口出现以上程序代码，其他的什么也没有。就连通常情况下错误或CPU工作时间等信息都没有。我不知道问题出在哪里了。所以请教高手指点，不甚感激。先谢谢