转置后用数组处理确实很高效。这里也给出另一种思路。

用lag函数就不用转置了,转置的消耗比较大:

data aaa;
input ID$ DATE Sales_Sum;
informat date yymmdd10.;
format date yymmdd10.;
cards;
A        2019/5/2        30
C        2019/5/4        21
B        2019/5/5        45
A        2019/4/28        9
D        2019/4/25        17
C        2019/5/2        11
B        2019/5/1        34
A        2019/4/26        24
D        2019/4/24        33
A        2019/4/21        6
;run;

proc sort data = aaa;
by ID date;
run;

data bbb;set aaa;
by ID;
d2=lag(date);
format d2 yymmdd10.;
gap = date-d2;
if not first.ID then do;
  if gap>=3 then output;
end;
run;