获得sas程序的名称，及提取包含特定字段的行 Get then names of some programs and get rows which contain specify fields

filename fn "C:/Documents and Settings/yxg/My Documentsmeeting/*.SAS";
data t(keep =str name);
 length sd $255. ;
 length name $255.;
   infile fn filename=sd ;
    *注意这里的赋值
   name=sd;
   name=substr(compress(name),length(compress(name))-10);
 input str $255. @@;
  re = prxparse("/a1/");
  re2 = prxparse("/a2/");
  re3 = prxparse("/a3/");
  dofind = 0;  /**//*用于查找多个源*/
 if prxmatch(re, str) then do;
  output;
 end;
 if prxmatch(re2, str) then do;
  output;
 end;
 if prxmatch(re3, str) then do;
  output;
 end;
run;