%let path= D:\test\SASLOG ; /*the path of LOG file*/
filename x pipe "dir &path.\*.log /s /b";
data check_log;
infile x length=len;
input fvar $varying200. len;
length filename fname $ 200;
infile dummy filevar=fvar filename=fname end=last length=len;
do while(not last);
input log $varying400. len;
if upcase(log) in: ('ERROR' 'WARNING') then do;filename=fname;output;end;
end;
run;
proc print noobs;run;
... View more