if find(infosource,'年报') | find(infosource,'年度报告') | find(infosource,'中报') |find(infosource,'中期报告') | find(infosource,'定期报告');

data input;
        input infosource $50.;
        cards;
        第一股东股权划转公告
        2001年年报
        2002年半年报
        2002年年度报告
        2003年中期报告
        2004年中报
        定期报告
        ;
run;

data out;
        set input;
        where prxmatch('/年报|年度报告|中报|中期报告|定期报告/', infosource)>0;
run;