Returns total number of words in a macro variable delimited by non-blanks see also %wordcount

%macro wordcount_blank(list=,sep=blank);
%eval(%sysfunc(countc(&list,&sep))+1)
%mend ;
%do i=1 %to %wordcount_blank(list=&footer,sep=%str(^));
footnote&i j=l bold "%scan(&footer,&i,%str(^))";
%end;
The snippet above creates a footnote for each string in a macro call with the footnotes seperated by ^

%amacro(footer=this is footnote 1^footnote2^^footnote3 etc);