z**k 发帖数: 378 | 1 如果只写一个data step,要麻烦很多。高手解答一下吧
data table_c (drop=oldid oldchar);
length oldid $8.;
length oldchar $8.;
retain oldchar "-";
retain oldid "-";
input id $ date $ char $;
if id ne oldid then do
inx=0;
oldid=id;
end;
if char ne oldchar then do;
inx+1;
oldchar=char;
end;
datalines;
ID1 date1 A
ID1 date2 A
ID1 date3 L
ID1 date4 L
ID1 date5 A
ID1 date6 A
ID2 date7 B
; |
|