%macro test;
%let string=a*b*c*d;
%let i=1;
%do %while(%scan(&string,&i,*) ne );
%let char=%scan(&string,&i,*);
%put char &i: &char;
%let i=%eval(&i+1);
%end;
%mend;
%test