data raw;
  input i j y;
  cards;
1   1    .
1   2    1
1   3    1
2   1    .
2   2    2
2   3    3
5   1    .
5   2    1
5   3    3
9   1    .
9   2    2
9   3    2
9   4    3
9   5    2
;
run;


proc sort data=raw out=raw1(keep=i y) nodupkey;
  by i;
  where y=1;
run;

data raw2;
  set raw1;
  j=1;
run;

proc sort data=raw2;
  by i j;
run;

proc sort data=raw;
  by i j;
run;

data raw3;
  merge raw(in=a) raw2;
  by i j;
  if a;
run;

data final;
  set raw3;
  if j=1 and y^=1 then y=0;
run;

data raw;
  input i j y;
  cards;
1   1    .
1   2    1
1   3    1
2   1    .
2   2    2
2   3    3
5   1    .
5   2    1
5   3    3
9   1    .
9   2    2
9   3    2
9   4    3
9   5    2
;
run;

proc sort data=raw out=raw1;
by i descending y;
run;

data raw2;
        set raw1;
        by i;
        retain flag 0;
        if first.i then do;flag=0;y1=y;end;
                if y=1 then do; flag=1; y1=y;end;
                        else if y=. then do;
                                 if flag=1 then do;y1=1;end;
                                                                         else  if flag=0 then do;y1=0;end;
                                                        end;
                                else y1=y;
run;

proc sort data=raw2(keep=i j y1 rename=(y1=y));
by i   j;
run;