%macro aaa(vars=);
%let i=1;
%do %until (%qscan(%superQ(vars), &i., %str(,))=);
        %let var=%qscan(%superQ(vars), &i, %str(,));
            %put &var.;
        %let i=%eval(&i+1);
%end;
%mend;
%aaa(vars=gender,1 2);

调用出错！

%macro test (vars);
%if %index(&vars,%str(,))^=0 %then %do;
   %let i=1;
     %do %until (%scan(&vars,&i,%str(,))=);
           %let a=%scan(&vars,&i,%str(,));
           %put &a;
           %let i=%eval(&i+1);
     %end;
%end;
%else %put There is no comma in "&Vars";
%mend;

%test(%str(gender, 1 2))
%test(%str(gender 1 2))

%macro aaa(vars=);
   %let j=1;
   %do %until (%qscan(%quote(&vars),&j,',')=);
      %let var=%qscan(%quote(&vars),&j,',');
          %put var&j. = &var;
          %let j=%eval(&j+1);
        %end;
%mend;
%aaa(vars=%quote(&vars.));

学习了%quote，%qscan，谢谢。

用%aaa(vars=%str(gender,1 2));