谢谢 david，如果name和DOB之间不是两个空格
如果是手动删成一个空格的话 你是程序是跑不出来的


如何在这个基础上修改一下呢？

请看如下程序，适用于名字中任意空格，名字后一个或多个空格。
data example(drop=temp);                                                                                                               
length temp $20.;                                                                                                                       
input Subj  : $3.  Name: $20. temp $ @;                                                                                                
do while(index(temp,'/')=0);                                                                                                            
   Name=trim(Name)||' '||temp;                                                                                                         
   input temp $ @;                                                                                                                     
end;                                                                                                                                    
input   Salary  : dollar8.;                                                                                                            
DOB=input(temp,mmddyy10.);                                                                                                              
format DOB date9. Salary dollar8.;                                                                                                      
datalines;                                                                                                                              
001 Christopher                        Mullens 11/12/1955 $45,200                                                                       
002 Michelle     Kwo 9/12/1955 $78,123                                                                                                  
003 Roger         W.       McDonald              1/1/1960 $107,200                                                                                   
;                                                                                                                                       
run;

data example;
infile 'c:\x.txt' truncover;
input aline $50. ;
line = compbl(aline);
; run;
data _null_;
  file 'C:\xx.txt';
  set example (keep=line);
  put line;
run;

问题解决，谢谢关注以及大家的回帖

尤其感谢 david0 的程序 使我犹如 醍醐灌顶 拨云见日的感觉 成语不多 聊表谢意

如果把名字的两部分分开读，然后合并是不是更明了一点？
data example;
infile 'c:\x.txt'  ;
input Subj  : $3.  FName ： $20.  Lname : $20.  DOB : mmddyy10. Salary  : dollar8.;
name=catx(" ",fname,lname);
drop fname lname;
format DOB date9. Salary dollar8.;
run;

很棒的思路，不过如果有的名字是两部分 有的是三部分就麻烦了

  每次看到你ID我都想起 bible 怪了