SAS 一个数据集中按两个变量merge

SAS

已知数据如下，当Namet和Stockcode两个变量都相同时进行合并：
Name       Stockcode     Quantity     Price
a                1                    100           5
a                2                    200           6

a                2                    100           6

b                3                    300           7

b                3                    100           7

c                1                    500           5

想要效果如下：
Name       Stockcode     Quantity     Price
a                1                    100           5
a                2                    300           6
b                3                    400           7
c                1                    500           5

data a;
input Name $  Stockcode Quantity Price;
cards;
a                1                    100           5
a                2                    200           6
a                2                    100           6
b                3                    300           7
b                3                    100           7
c                1                    500           5
;
run;

data b; set a;
id=cats(name,Stockcode);
run;

proc sql;
create table test as
select Name,Stockcode, Price, id,
sum(Quantity) as cum_Quantity  
from b
group by id;
quit;

proc sort data=test nodupkeys out=c;by id;run;

data result;set c;Quantity=cum_Quantity;  drop id cum_Quantity; run;

Here is another way, which use retain statement:

data a;
input Name $  Stockcode Quantity Price;
cards;
a                1                    100           5
a                2                    200           6
a                2                    100           6
b                3                    300           7
b                3                    100           7
c                1                    500           5
;
run;

proc print data=a;
run;

data b;
set a;
Name_stockcode=compress(name||Stockcode);
run;
proc print data=b;
run;

proc sort data=b out=c;
by Name_stockcode;
run;

data d;
set c;
by Name_stockcode;
retain cn_Quantity;
if first.Name_stockcode then do;
cn_Quantity=.;
end;
cn_Quantity+Quantity;
if last.Name_stockcode then do;
keep
name
stockcode
cn_Quantity
price;
output;
end;
run;

proc print data=d;
run;