Upcase all variables

data mh_upcase;
set mh_5;
array all_char[*] _character_;
do i=1 to dim(all_char);
all_char[i]=upcase(all_char[i]);
end;
drop i;
run;