data fmt;
do i=1 to 5000;
fmtname=catt('_',i,'_');
start=i;
label=i;
type='I';
output;
end;
run;
options nonotes;
proc format cntlin=fmt;
run;
options notes;
data test;
*do i=1 to 50;
do i=1 to 5000;
fmtname=catt('_',i,'_');
value=inputn(compress(put(i,best.)),fmtname);
output;
end;
run;
proc print;run;



雷达卡



京公网安备 11010802022788号







