Hello @RandyStan Thank you.
See if this works and helps. Feeling not too well today and so might require a minor tweak. Please test and let me know. Thank you!
data have;
input Date :mmddyy10. VarA VarB;
format date mmddyy10.;
cards;
6/20/2019 . .
6/20/2019 . .
6/20/2019 . .
6/20/2019 . .
6/21/2019 . .
6/21/2019 . .
6/21/2019 . .
6/22/2019 . 1
6/22/2019 . 1
6/22/2019 . 1
6/22/2019 . 1
6/23/2019 1 .
6/23/2019 1 .
6/23/2019 1 .
6/24/2019 . .
6/24/2019 . .
6/24/2019 . .
6/24/2019 . .
6/26/2019 . .
6/26/2019 . .
6/27/2019 . .
6/27/2019 . .
6/27/2019 . .
6/28/2019 . .
;
dm log 'clear';
data want;
dcl hash H () ;
h.definekey ("_iorc_") ;
h.definedata ("_date") ;
h.definedone () ;
do until(z);
set have end=z;
by date;
if first.date then do;
_iorc_+1;
_date=date;
rc=h.add();
end;
end;
z=0;
_iorc_=0;
do until(z);
set have end=z;
by date;
array u VarA VarB;
array v VarA_BF VarB_BF;
array t(2,999999) _temporary_;
if first.date then do;
_iorc_+1;
do i=1 to dim(u);
if u(i)=1 then do;
do _n_=_iorc_-2 to _iorc_+2;
rc=h.find(key:_n_);
if rc=0 then t(i,_n_)=_date;
end;
end;
end;
end;
end;
z=0;
do until(z);
set have end=z;
by date;
if first.date then do;
call missing(of v(*));
do i=1,2;
do j=1 to 999999;
if t(i,j)=date then do;
v(i)=1;
leave;
end;
end;
end;
end;
output;
end;
stop;
keep date var:;
run;
