Rollup 从头算扫描元件

假设我有以下记录：

code  sequence_no   group_no
4          1            1
2          2            1
3          3            1
4          4            1
1          1            2
3          1            3
4          2            3

输出应该是：在同一组内（按组编号），代码列用第一个（按序列编号）代码更新，该代码不是4

因此，输出应如下所示：

code  sequence_no   group_no
2          1            1
2          2            1
2          3            1
2          4            1
1          1            2
3          1            3
3          2            3

这是我的代码，我的逻辑是，如果input.code==4，那么将下一个代码分配给temp变量。由于某种原因，如果第一条记录的代码==4，则此操作不起作用。我不认为这个逻辑涵盖了组的最后一条记录，如果它=4

type temporary_type=
record
  decimal("\x01") l_code;
end;

temp :: scan(temp, in) =
begin


temp.l_code:: 
if (temp.l_code == 4) in.code 
else temp.l_code;

end;


temp :: initialize(in) =
begin
  temp.code :: in.code;
end;

out :: finalize(temp, in) =
begin
  out.* :: in.*;
  out.code :: temp.l_code;
end;