问题解决一半。下一半应该可以同样解决。看看是不是这样。
data aa;
input x @@;
cards;
1 2 1 1 2 2 1 1 1 1 2 2 2 2 1 2 2 1 2 2 2 1
;
run;

data aa1;
    set aa;
 x_lag = lag(x);
 if x=1 then
       do;     if x_lag = 2 then count_2 = 1;
          else if x_lag = 1 then count_2 = 0; 
       end;
  else if x = 2 then
    do;       if x_lag = 1 then  count_2 = 1;
      else if x_lag = 2 then  count_2 + 1;
    end;
run;

data aa2 (keep= x x_1jg);
    if _N_ = 1 then x_1jg=0;
    set aa1;
 count_2lag = lag(count_2);
 if x=1 and x_lag=2 then x_1jg = count_2lag;
 if x=1 and x_lag=1 then x_1jg = 0;
run;
proc print data=aa2;
   var x x_1jg;
run;

output
Obs  x    x_1jg
 1    1      0
 2    2      .
 3    1      1
 4    1      0
 5    2      .
 6    2      .
 7    1      2
 8    1      0
 9    1      0
10    1      0
11    2      .
12    2      .
13    2      .
14    2      .
15    1      4
16    2      .
17    2      .
18    1      2
19    2      .
20    2      .
21    2      .
22    1      3

谢谢 yongyitian 您的指教！！

这就是需要的答案。

给个稍微简单点的：

data aa;
input x @@;
cards;
1 2 1 1 2 2 1 1 1 1 2 2 2 2 1 2 2 1 2 2 2 1
;
run;

data aa2;
retain t 0;
set aa;
if x=1 then do;
 m=t;
 t=0;
end;
else do;
 t+1;
end;
drop t;
run;