批量导入一批文件，格式.xls，每个里面包含代码，名称，交易日和收盘价

通过下面的程序出现了相应的sas数据集但记录为空，查看日志说cards丢失，不知道怎么处理？恳请各位高手指点

data a;
 length files $9;
 infile 'D:\a\bdata\outlist';
 input files $;
 if files='outlist' then delete;
run;

/*创建目录bdate下全部代码的宏文本bcode.txt*/
data _null_;
 set a;
 bcode=substr(files,1,6);
 a='%a(';
 c=');';
 file "bcode.txt";
 put a $ bcode $ c $;
run;

%macro a(bcode);
data _&bcode;
infile "D:\a\bdata\&bcode..xls" ;
input bcode $  bname $ tday   clp;
informat tday time.;
format tday time.;
run;
%mend a;
%include "bcode.txt";
run;

NOTE: Infile "D:\a\bdata\126018.xls" 是：
      文件名=D:\a\bdata\126018.xls,
      RECFM=V,LRECL=256

NOTE: CARD 丢失。
bcode=邢唷?bname=  tday=. clp=. _ERROR_=1 _N_=1
NOTE: 1 条记录已从 Infile "D:\a\bdata\126018.xls" 读取。
       最小记录长度是 6。
       最大记录长度是 6。
NOTE: INPUT 语句到达了行的末尾后，SAS 进入了新的一行。
NOTE: 数据集 WORK._126018 有 0 个观测和 4 个变量。
NOTE: DATA 语句 所用时间（总处理时间）:
      实际时间         0.01 秒
      CPU 时间         0.01 秒