【转载】format 与宏

%macro crackman;
%local rcount i;
data a;
set sashelp.class end=no_more;
call symput("range"||left(_n_),trim(left(Name)));
call symput("label"||left(_n_),trim(left(Sex)));
if no_more then call symput("rcount",_N_);
run;
proc format;
value $Gender
%do i=1 %to &rcount;
"&&range&i"="&&label&i"
%end;
run;
%mend crackman;
options mprint;
%crackman

proc format;

value agell;

0-5=1

6-10=2

11-30=3

;

run;
data b;
set a;
age1=age;
informat age1 age11;
run;

 

%macro crackman;
data _null_;
set sashelp.class end=no_more;
call symput("range"||left(_n_),trim(left(Name)));
call symput("label"||left(_n_),trim(left(Sex)));
if no_more then call symput("rcount",_N_);
run;
%mend crackman;
%crackman
%macro crackman1;
data b;
%do i=1 %to &rcount;
d="&&range&i";
b="&&label&i";
c=d||b;
output;
%end;
run;
%mend crackman1;
%crackman1