最後に読み込まれたレコードのサイズを返します。出力のためにファイルが開かれている場合は、現在のレコードサイズを返します。
| カテゴリ: | 外部ファイル |
%let fid=%sysfunc(fopen(myfile));
%let min=0;
%let max=0;
%if (%sysfunc(fread(&fid))=0) %then
%do;
%let min=%sysfunc(frlen(&fid));
%let max=&min;
%do %while(%sysfunc(fread(&fid))=0);
%let reclen=%sysfunc(frlen(&fid));
%if (&reclen > &max) %then
%let max=&reclen;
%if (&reclen < &min) %then
%let min=&reclen;
%end;
%end;
%let rc=%sysfunc(fclose(&fid));
%put max=&max min=&min;