SAS:多个LOG的批量查询

OPTIONS PS=MAX LS=MAX NOCENTER SASMSTORE=SASUSER MSTORED MAUTOSOURCE;

/*获取指定文件夹的指定类型的所有文件*/

%MACRO GET_NAME(DIRNAME,TYP,OUT_TABLE)/STORE;/*参数有两个：路径，文件类型后缀*/

%PUT %STR(----------->DIRNAME=&DIRNAME) ;

%PUT %STR(----------->TYP=&TYP) ;

DATA TEMP;

RC=FILENAME("DIR","&DIRNAME");/*把&DIRNAME值传给文件引用符“DIR"*/

OPENFILE=DOPEN("DIR");/*得到路径标示符OPENFILE，DOPEN是打开directory的sas内置函数*/

IF OPENFILE>0 THEN DO;/*如果OPENFILE>0表示正确打开路径*/

NUMMEM=DNUM(OPENFILE);/*得到路径标示符OPENFILE中member的个数nummem*/

DO II=1 TO NUMMEM;

NAME=DREAD(OPENFILE,II);/*用DREAD依次读取每个文件的名字到NAME*/

filepath="&DIRNAME"||NAME;

fnum=compress(NAME,".xml","");

fnum=compress(fnum,"user_case","");

OUTPUT;/*依次输出*/

END;

KEEP NAME filepath fnum;/*只保留filepath、fnum列*/

RUN;

PROC SORT DATA=TEMP;/*按照NAME排序*/

BY DESCENDING NAME;

%IF &TYP^=ALL %THEN %DO;/*是否过滤特定的文件类型&TYP*/

WHERE INDEX(UPCASE(NAME),UPCASE(".&TYP"));/*Y,则通过检索NAME是否包含&TYP的方式过滤文件类型*/

%END; RUN;

DATA &OUT_TABLE(KEEP=NAME ID);

SET TEMP;

ID=_N_;

RUN;

PROC PRINT DATA=&OUT_TABLE;

RUN;

%MEND;

/*查询LOG中的error与warning*/

%MACRO CHECK_LOG0(P,LOG_PATH)/STORE;

%IF &P=1 %THEN;

%ELSE %DO;

DM 'log;"clear";'; RUN; QUIT;

%END;

%PUT CHECK AT &SYSDATE;

%PUT CHECK AT &SYSTIME;

%PUT #####################;

DATA _NULL_;

INFILE "&LOG_PATH" END=LAST;

RETAIN LINE 0;

INPUT Key$ @@;

line+1;

IF line=1 THEN PUT"================================";

IF Key in("ERROR:","ERROR","WARNING:") THEN DO;

INPUT desc & $100.;

PUT Key=desc;

OUTPUT; END;

ELSE IF Key ="CHECK" THEN DO;

INPUT desc & $10.;

PUT "Above was check" desc "----------------------";

PUT; END;

ELSE INPUT Key $; RUN;

%MEND;

%MACRO CHECK_LOG(INPUT_TABLE,LOG_PATH)/STORE;

DATA _NULL_;

SET &INPUT_TABLE NOBS=NOBS;

CALL SYMPUTX('NUM',NOBS);

STOP; RUN;

%DO I=1 %TO &NUM;

DATA _NULL_; SET &INPUT_TABLE;

IF ID=&I;

CALL SYMPUTX('LOG_NAME',NAME);

STOP;

RUN;

%PUT #####################;

%PUT CHECK &LOG_NAME;

%CHECK_LOG0(1,&LOG_PATH.&LOG_NAME.);

%END;

%MEND;

/*调用宏*/

OPTIONS PS=MAX LS=MAX NOCENTER SASMSTORE=SASUSER MSTORED MAUTOSOURCE;

LIBNAME S '.DATA';

%GET_NAME(.DATA,log,S.DIR); /*参数1：log文件所在位置参数2：读取文件类型参数3：log文件名存储的数据集名称*/

%CHECK_LOG(S.DIR,.DATA); /*参数1：log文件名存储的数据集名称参数2：log文件所在位置*/