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;