SAS，例如，在运行/修复结果后如何停止DO循环

Question

我目前正在尝试使用宏语言在EG中循环融合功能。我遇到的问题是循环填充了所有空列，而不仅仅是第一个空单元格。我尝试过一种逻辑形式来停止循环，但并未成功，并且通过比较相邻的列是否相同然后删除后，也尝试过解决结果。我希望循环仅填充第一个空单元格，因为之后我需要使用第二个变量运行第二个煤层循环。附件的图像显示了我得到的结果以及我的目标。

我当前的工作代码如下：

%macro coal;
data want;
set have;
%do i = 1 %to 5;
coal&i = coalescec(&column&i, var1);
%end;
run;
%mend;

​.sstatic.net/sfdsa.png" alt="output wanted">

Answer 1

一个数组循环，找到第一个空列，退出循环，并用var1：填充该列：

data want ;
  set have ;
  array c{*} column: ;
  /* loop over array and find first empty column */
  cmiss = . ;
  do i = 1 to dim(c) until (cmiss) ;
    if missing(c{i}) then cmiss = i ;
  end ;
  if cmiss then c{cmiss} = var1 ;
  drop i ;
run ;

Answer 2

您可以在数据步骤中完全执行此操作。如果要不断更新数据集并将其一个一个一个填充值填充，则可以使用数组。

示例数据：

data have;
    column1 = 123;
    column2 = 456;
    call missing(of column3-column5);
run;

代码：

data have;
    set have;
    array column[*] column:;

    /* Count non-missing columns */
    do i = 1 to dim(column);
        if(NOT missing(column[i]) ) then nonmiss+1;
            else leave;
    end;

    if(nonmiss < dim(column) ) then offset+1;

    do i = 1 to dim(column);
        if(missing(column[i]) ) then do;
            column[i] = column[offset];
            leave;
        end;
    end;

    drop i nonmiss;
run;

第一步：

column1 column2 column3 column4 column5 offset
123     456     123     .      .        1

第二步：

column1 column2 column3 column4 column5 offset
123     456     123     456     .       2

请注意，如果您再次运行此操作，它将从column3将值拉入column5。