数据集记录数不足 补充空行

如果限制某数据集的行数，如果记录数不足n（如6)条时，补充空行，该如何编写程序，如：
data a;
set a;
if.... then ...
run;

example:
data a;
x=1;output;
x=2;output;
x=3;output;
x=4;output;
run;

data b (drop=i j);
do i=1 to  nobs;
  set a end=last nobs=nobs;
  output;
end;
  if last and (i-1)<6 then do;
    do j=1 to (6-i+1);
     x=. ;output;
        end;
        end;
run;

webgu 发表于 2012-6-24 23:06
example:
data a;
x=1;output;

如果变量不止一个呢？

燕婉 发表于 2012-6-24 23:22
如果变量不止一个呢？

1. data test(drop=i);
   
2. set sashelp.class end=eof nobs=obs;
   
3. output;
   
4. call missing(of _all_);
   
5. if eof then do i=1 to 25-obs;
   
6. output;
   
7. end;
   
8. run;
   
9. proc print noobs;run;

复制代码

tj0412ymy 发表于 2012-6-24 23:48

Moving the  call missing(of _all_) into the loop makes it logically better and save (19) times unwanted execution of  "call missing(of _all_)".

data test(drop=i);
    set sashelp.class end=eof ;
    output;
   
    if eof then do;
      do i=1 to 6;
          call missing(of _all_);
      output;
    end;
    run;

    proc print noobs;run;

bobguy 发表于 2012-6-26 07:38
Moving the  call missing(of _all_) into the loop makes it logically better and save (19) times unw ...

Everyone knows this logic. Did you test your code? Did it really works except missing an end? hehe~

tj0412ymy 发表于 2012-6-26 09:40
Everyone knows this logic. Did you test your code? Did it really works except missing an end? he ...

This one even better. It saves additional 5 times of call missing(of _all_).

data test(drop=i);
    set sashelp.class end=eof ;
    output;
   
    if eof then do;
      call missing(of _all_);
      do i=1 to 6;
      output;
    end;
   end;
    run;

    proc print noobs;run;

call missing 得到的全是数值型的，可遇到字符型怎么办？得分组考虑才行。