This should work, I have solved for the numeric variables and left the char one as an exercise.
options symbolgen mlogic mprint; /* for debugginf macros, but the good stuff into the log */
data test; /* example dataset */
input string $ 1-4 gender $6 age 8-9 stat 10-14;
datalines;
abcd M 22 1500
qwer M 32 5000
asdf F 21 100
tyui F 33 6500
jklm M 45 800
fght F 18 4000
fgtn F 28 4050
;
data nums; /*subset numeric*/
set test(keep=_numeric_);
run;
data chars;/*subset character*/
set test(keep=_character_);
run;
/*get list of numeric variable names, shove them into a macro */
proc transpose data=nums out=numst;
run;
proc sql;
select _NAME_ into :numvars seperated by "*" from numst;
quit;
%let cardnumvars= %sysfunc(countw(&numvars.,*));
%put numvars.=&numvars;
%put cardnumvars.=&cardnumvars.;
%macro numstats;
proc sql;
/*for each numeric variable create table with the stats */
%do i=1 %to &cardnumvars.;
%let var = %scan(&numvars.,&i.);
create table num&i. as
select
"&var " as variable, /* hacking to stop truncation of name variable, needs better fix for general use */
min(&var) as min,
max(&var) as max,
avg(&var) as mean,
std(&var) as std
from nums
;
%end;
quit;
%mend numstats;
%numstats
/*put all the small stats tables together */
%macro lister;
%do i=1 %to &cardnumvars.;
num&i.
%end;
%mend lister;
data numstats;
set %lister ;
run;
/* print the output */
proc print data=numstats;
run;
/* similar proccess can be used for character variables, left as exercise */
