根据数据集得到format

1. data aaa;
   
2. input var1 var2$;
   
3. cards;
   
4. 1 f
   
5. 2 m
   
6. ;
   
7. run;

复制代码

如何根据aaa得到format? 谢谢！proc format;
value x 1="f"
          2="m";
run;

data fmt;
set aaa;
retain fmtname 'sexfmt';
rename var1=start var2=label;
run;

proc format cntlin=fmt;
run;

data aaa;
input var1 var2$;
cards;
1 f
2 m
;
run;

proc sql;
create table codefmt as
select var1 as start, var2 as label, 'ctcode' as fmtname
from aaa;
quit;

proc format cntlin=codefmt;
run;

data wanted;
set aaa;
code=put(var1,ctcode.);
run;

data fmt;
set aaa;
fmtname='sexfmt';
rename var1=start var2=label;
run;

proc format cntlin=fmt;
run;

data wanted;
set aaa;
code=put(var1,sexfmt.);
run;