%macro genfact(index=,delim=%str(,));



%let i=1;
%do %while(%scan(%quote(&index),&i,%quote(&delim)) ne );
%let Nindex=%scan(%quote(&index),&i,%quote(&delim));



%let i=%eval(&i+1);
%end;


%mend;

%genfact(index=%str(fratio54,fratio5b4,analystz10b,mrsquare3b,cashvot14,cashvot1b4,gsvot54,turnr3 ,profit54 ),
delim=%str(,));

这个是分别调用fratio54,fratio5b4,analystz10b,mrsquare3b,cashvot14,cashvot1b4,gsvot54,turnr3 ,profit54。