- data a;
- length x $100;
- do i=1 to 1;
- x="HTA"||strip(put(i,best.))||"0000";output;
- do j=0 to 2;
- do k=0 to 2;
- if j>0 then do;
- x="HTA"||strip(put(i,best.))||strip(put(j,best.))||strip(put(k,best.))||"00";
- output;
- end;
- end;
- end;
- end;
- keep x;
- run;


雷达卡




京公网安备 11010802022788号







