Or to use parenthesis to get the Boolean:  x1=(find(r,'11')>0); ... View more

data want(drop=i); set have; array visit{*} v:; variable1=0; variable2=0; variable3=0; /* At least 2 consecutive visits */ do i=2 to dim(visit)-1; if visit[i-1] ne 0 and visit ne 0 and       visit=visit[i-1] then variable1=1; end; /* At least 1 consecutive visits */ do i=1 to dim(visit); if visit > 0 then variable2=1; end; /* At least 3 consecutive visits */ do i=2 to dim(visit)-1; if visit[i-1] ne 0 and visit ne 0 and visit[i+1] ne 0 and       visit=visit[i-1] and visit=visit[i+1] then variable3=1; end; run; ... View more