To simplify the code I used 365 days as a year, neglecting a leap year:
data have;
infile datalines delimiter=',';
length uniqueid $5 trimgroupid $7;
format dob mmddyy10.;
input uniqueid $ trimgroupid $ dob mmddyy10. case;
datalines;
X0131,XX01491,03/10/2000,1
X1831,XX01491,12/05/2002,0
X3691,XX01491,06/02/2000,0
X1971,XX04997,02/05/2010,1
X2611,XX04997,03/13/2011,0
X4371,XX04997,06/25/2009,0
X4621,XX04997,01/01/2009,0
;
run;
proc sort data=have; by trimgroupid dob; run;
data want;
set have;
by trimgroupid dob;
if dif(dob) ge 365;
run;
... View more