对data不是很熟。借用版主的程序，抛砖引玉一个吧

data crackman;
input NAME $ TYPE@;
obs=_n_;
datalines;
A    1
A    1
A    2
B    1
C    1
C    3
C    2
;
run;

data test (drop=obs);
  set crackman;
  length newstring $2000;
by name;
  retain newstring;
if first.name then newstring='';

  newstring = COMPRESS(newstring)||COMPRESS(TYPE);
run;

终于整明白了

data crackman;
input NAME $ TYPE@;
ID=_n_;
datalines;
A    1
A    1
A    2
B    1
C    1
C    3
C    2
;
run;

* Sequentially concatenate multiple rows;
data test;
  set crackman;
  length newstring $2000;
  by name;

  retain newstring;
  if first.name then newstring='';
  newstring = COMPRESS(newstring)||COMPRESS(TYPE);
run;

* Prepare data;
proc sort data=test; by name descending ID; run;

* Assign last observation in each group to newtype;
data test (drop=newstring); set test;
  by name;
  retain newtype;
  if first.name then newtype=input(newstring,best7.);
  run;

* Restore original order;
proc sort data=test out=test(drop=ID); by ID;

proc print; run;





                                  Obs    NAME    TYPE    newtype

                                   1      A        1       112
                                   2      A        1       112
                                   3      A        2       112
                                   4      B        1         1
                                   5      C        1       132
                                   6      C        3       132
                                   7      C        2       132

data wkn;
input name $ type $;
cards;
A    1
A    1
A    2
B    1
C    1
C    3
C    2
;
run;
data wkn1;
set wkn nobs=n;
by name;
retain typeall;
if first.name then do;
k=1;
do i=1 to n;
set wkn(rename=(name=na type=ty)) point=i;
if (name=na) and (k=1) then do;
typeall=ty;
k=k+1;end;
else if(name=na) and (k>1) then do;
typeall=compress(typeall||ty);end;
end;end;
drop na ty k;
run;

9# wkn1986

佩服全用data解决。

data wkn;                                                                                                                              
input name $ type $;                                                                                                                    
cards;                                                                                                                                 
A    1                                                                                                                                 
A    1                                                                                                                                 
A    2                                                                                                                                 
B    1                                                                                                                                 
C    1                                                                                                                                 
C    3                                                                                                                                 
C    2                                                                                                                                 
;                                                                                                                                       
run;                                                                                                                                    
data wkn1;                                                                                                                              
set wkn nobs=n;                                                                                                                        
by name;                                                                                                                                
retain typeall;                                                                                                                        
if first.name then do;                                                                                                                  
k=1;                                                                                                                                    
do i=1 to n;                                                                                                                           
set wkn(rename=(name=na type=ty)) point=i;                                                                                             
if (name=na) and (k=1) then do;                                                                                                         
typeall=ty;                                                                                                                             
k=k+1;end;                                                                                                                              
else if(name=na) and (k>1) then do;                                                                                                     
typeall=compress(typeall||ty);end;                                                                                                      
end;end;                                                                                                                                
proc print;                                                                                                                             
var name type typeall;                                                                                                                  
run ;

输出……

thank you guys all.

i almost forgot check this post.

here are some other solutions i got:

data b;
set b;
TYPECOMBINE=cat(col1,col2,col3); /*this is the point you need to check*/
TYPEALL=compress(TYPECOMBINE,'.');
run;

--------------------------------

data temp(keep=name typeall);
length typeall $200;
retain typeall;
set a;
by name;
if first.name then typeall=type;
else typeall=cats(typeall,type);
if last.name then output;
run;

高手们，学习啦！

学习了。mark。