%macro checklist(dirname);
%let rs=%sysfunc(filename(filref,&dirname));
%let did=%sysfunc(dopen(&filref));
%let nobs=%sysfunc(dnum(&did));
%do i=1 %to &nobs.;
%let inname=%qscan(%qsysfunc(dread(&did,&i)),1,.);
data a;
infile &dirname\&inname..txt firstobs=1 TRUNCOVER;
input var0 $200.;
run;
%end;
%let rc=%sysfunc(dclose(&did));
%mend checklist;
%checklist(D:\try);
如果文件夹在本地,读取没有问题。但是在读取FTP上数据时我用了下面的程序,其中%let rs=%sysfunc(filename(filref,dirname);语句报错,不知问题出在哪,求教各位,万分感谢!
filename dirname FTP "/upload/data" dir host='192.168.x.xxx' user='xxx' pass='xxx';
%macro checklist2;
%let rs=%sysfunc(filename(filref,dirname));
%let did=%sysfunc(dopen(&filref));
%let nobs=%sysfunc(dnum(&did));
%do i=1 %to &nobs.;
%let inname=%qscan(%qsysfunc(dread(&did,&i)),1,.);
data a;
infile dirname(&inname..txt) firstobs=1 TRUNCOVER;
input var0 $200.;
run;
%end;
%let rc=%sysfunc(dclose(&did));
%mend checklist2;
%checklist2;



雷达卡




京公网安备 11010802022788号







