外部ファイル、ディレクトリまたはディレクトリメンバを閉じます。
カテゴリ: | 外部ファイル |
%let filrf=myfile;
%let rc=%sysfunc(filename(filrf, physical-filename));
%let fid=%sysfunc(fopen(&filrf));
%if &fid > 0 %then
%do;
%let rc=%sysfunc(fread(&fid));
%let rc=%sysfunc(fclose(&fid));
%end;
%else
%do;
%put %sysfunc(sysmsg());
%end;
%let rc=%sysfunc(filename(filrf));