%macro good;
data _null_;
set analyst end=last;
if last;
call symput ('num',_n_);
run;
%do index=1 %to #
data _null_;
set analyst ;
if _n_=&index;
call symput ('code',stkcd);
t1=substr(rptdt,1,4);
t2=substr(rptdt,6,2);
date=compress(t1!!t2);
call symput ('date',date);
if substr(stdcd,1,1)='6' then %let list='shl1'; else %let list='szl1';
run;
data sampe1;
set &date..&list._taq_&code._&date;
/*--------*/
run;
%end;
%mend;
%good;


雷达卡


京公网安备 11010802022788号







