Replace Missing Value to another string

Dear Sir : Can you help me to replace missing value to last ID name (only)
fo rexample, I want to replace the first missing value into B104, then the 2nd missing vale into B110.
Sincerly !

ID      xret     did       ear
A101     22       3         2
A103     02       5         1
B104     09       3         1
.           01       1         2
B107     12       4         3
B108     11       5         4
B110     06       7         7
.           07       6         3
B112     78       2         6
-----------------------------------
I hope result:
ID      xret     did       ear
A101     22       3         2
A103     02       5         1
B104     09       3         1
B104     01       1         2
B107     12       4         3
B108     11       5         4
B110     06       7         7
B110     07       6         3
B112     78       2         6

1. data a;
   
2. input ID $    xret     did       ear;
   
3. cards;
   
4. A101     22       3         2
   
5. A103     02       5         1
   
6. B104     09       3         1
   
7. .           01       1         2
   
8. B107     12       4         3
   
9. B108     11       5         4
   
10. B110     06       7         7
    
11. .           07       6         3
    
12. B112     78       2         6
    
13. ;
    
14. run;
    
15. data a;
    
16. set a;
    
17. id_lag=lag(id);
    
18. if id='' then id=id_lag;
    
19. drop id_lag;
    
20. run;

复制代码

If missing value are sequential at least 2 id foe example :
ID      xret     did       ear
A101     22       3         2
A103     02       5         1
B104     09       3         1
.           01       1         2
.            12       4         3
B108     11       5         4
B110     06       7         7
.           07       6         3
B112     78       2         6
-----------------------------------
I hope to  result:
ID      xret     did       ear
A101     22       3         2
A103     02       5         1
B104     09       3         1
B104     01       1         2
B104     12       4         3
B108     11       5         4
B110     06       7         7
B110     07       6         3
B112     78       2         6
---------------------------------------
It is follow you code results , but missing value still exist in column id

ID      xret     did       ear
A101     22       3         2
A103     02       5         1
B104     09       3         1
B104     01       1         2
  .          12       4         3
B108     11       5         4
B110     06       7         7
B110     07       6         3
B112     78       2         6

data a;
set a;
retain temp;
if id ne . then temp=id;
else id=temp;drop temp;
run;

data a;
set a;
retain temp;
if id ne . then temp=id;
else id=temp;drop temp;
run;

dewrewr4