データのカウント

/*SOC/PTのカウント方法*/

data a;
  length soc pt 8.;
  retain soc 0  pt  0;
 
  set ctddata.ctd_no_27;
  if _n_ not in (1,2);
 
  if Ae_trem ne  "" then do; /* ””は全て空白でないときを表す*/
     if substr(Ae_trem, 1 ,2) = "　" then do;
       pt = pt + 1 ;
     end;
     else do;
    pt = 0;
       soc = soc + 1 ;
  end;
     end;
  output;
run;

---