%macro format(infor=,outfor=,type=);
data format1;
set format;
keep &infor. &outfor.;
proc sort nodupkey;by &infor. &outfor.;
run;
data format2;
length start label $200;
set format1 end=last;
start=&infor.;/*输入格式*/
label=strip(put(&outfor.,11.));/*期望的输出格式*/
retain fmtname "&outfor." type "&type.";
/*type可取值C/N,start和label变量类型要一样*/
output;
if last then do;
hlo="o";
label="***ERROR***";
output;
end;
run;
proc format library=work cntlin=format2;
run;
%mend;
%format(infor=parcat1,outfor=parcat1n,type=c);
从excel到format-SAS
于 2024-08-09 14:09:39 首次发布