%macro top25 (ymonth=);
    data t2;
             set t1;
            if ymonth=&ymonth;
            proc sort data=t2;by descending Msmvttl;run;
            proc print data=t2(firdtobs=1 obs=25);
            title "总市值前25名，%ymonth";
            var stkcd ymonth Msmvttl Mretwd;
         run;
%mend;