data vformat(keep=start end label fmtname type );
set aaa;
do i=1 to 100;
temp=scan(x,i,"|");
fmtname=var;
start=scan(temp,1,"=");
end=scan(temp,1,"=");
label=scan(temp,2,"=");
type='n';
if compress(temp)~="" then output;
end;
run;
proc format library=work cntlin=vformat;run;
data _null_;
x=1;
put x sex. ;
put x yes. ;
run;[/code:1qizry56]