У меня проблемы со следующим кодом, и я не могу найти много информации, которая могла бы помочь мне в этом разобраться. Я пытаюсь записать некоторые имена файлов из каталога в набор данных, а затем создать zip-файл из этих файлов. Он работает нормально, пока я не дойду до шага данных с инструкцией infile. Я получил следующую ошибку ...
ОШИБКА: нет логического присвоения имени файла DIRLIST.
Вот мой код ...
%macro get_filenames(location);
filename _dir_ "%bquote(&location.)";
data filenames(keep=fname);
handle=dopen( '_dir_' );
if handle > 0 then do;
count=dnum(handle);
do i=1 to count;
fname=dread(handle,i);
output filenames;
end;
end;
rc=dclose(handle);
run;
filename _dir_ clear;
%mend;
%get_filenames(c:\temp\);
data dirlist;
set filenames;
where fname like 'scra%.txt';
run;
ods package(testfile) open nopf;
data _null_;
infile dirlist pad lrecl=80;
input @1 filename $80.;
call execute
(catx
(' ',
'ods package(testfile)',
'add file=',
quote('c:\temp\' || trim(filename)),
';'
)
);
run;
ods package(testfile) publish archive
properties(archive_name='testfile.zip'
archive_path='c:\temp\' );
ods package(testfile) close;