%macro special_char(unicode=, name=);
 %global &name;
 data _null_;
 A=input("&unicode."x,$UCS2B4.);
 call symput("&name.",trim(left(A)));
 stop;
 run;
 %put Note: special_char: &name = ->|&&&name.|<- ;
%mend;

%*special_char(unicode=00A0,name=non_breaking_blank);
%*special_char(unicode=00AE,name=registered_trademark);
%*special_char(unicode=00B1,name=plus_minus);
%*special_char(unicode=2122,name=trademark);

*title “Title with trademark symbol &trademark”;