请教一个问题

原数据：

Stkcd	Trddt	Scid	Reptdt	Rank	Shnm	Shnum	Shrt	Shntur
000001	2004-12-30	1	2004-06-30	1	深圳市投资管理公司	1.38E+08	7.08
000001	2004-12-30	2	2004-12-31	1	Newbridge Asia AIV Ⅲ,L.P.	3.48E+08	17.89	外资股
000002	2003-08-27	1	2002-12-31	1	中国华润总公司	78075749	12.37
000002	2003-08-27	2	2003-06-30	1	华润股份有限公司	1.56E+08	11.29

想得到的数据：

Stkcd	Trddt	Scid	Reptdt	Rank1	Shnm1	Shnum1	Shrt1	Shntur1	Scid	Reptdt2	Rank2	Shnm2	Shnum2	Shrt2	Shntur2
000001	2004-12-30	1	2004-06-30	1	深圳市投资管理公司	1.38E+08	7.08		2	2004-12-31	1	Newbridge Asia AIV Ⅲ,L.P.	3.48E+08	17.89	外资股
000002	2003-08-27	1	2002-12-31	1	中国华润总公司	78075749	12.4		2	2003-06-30	1	华润股份有限公司	1.56E+08	11.29

即：
将Stkcd从两行变为一行合并数据（表格比较长，后面可能看不见变量有Reptdt2 Rank2 Shnm2 Shnum2 Shrt2 Shntur2 ），不知道是否可以实现？谢谢

data test;
   infile datalines missover;
   input Stkcd $ trddt yymmdd10. Scid Reptdt yymmdd10. Rank Shnm $ Shnum Shrt Shntur $;
   format trddt Reptdt yymmdd10.;
datalines;
000001 2004-12-30 1 2004-06-30 1 ShenTou 1.38E+08 7.08
000001 2004-12-30 2 2004-12-31 1 AsiaAIV   3.48E+08 17.89 WaiZi
000002 2003-08-27 1 2002-12-31 1 ZhongHua 78075749 12.37
000002 2003-08-27 2 2003-06-30 1 HuanYun 1.56E+08 11.29
;
run;
proc print data=test; run;

data want;
   merge test (where=(Scid = 1)
                     rename = (
                                   Rank = Rank1
                                   Shnm = Shnm1
                                   Shnum = Shnum1
                                   Shrt = Shrt1
                                   Shntur = Shntur1))
             test (where=(Scid2 = 2)
              rename = (
                             Scid = Scid2
                             Reptdt = Reptdt2
                             Rank = Rank2
                             Shnm = Shnm2
                             Shnum = Shnum2
                             Shrt = Shrt2
                             Shntur = Shntur2));
        by Stkcd;
run;

proc print data=want; run;

data have;
input Stkcd        Trddt: yymmdd10.        Scid        Reptdt: yymmdd10.        Rank        Shnm $        Shnum        Shrt;
format Trddt yymmdd10. Reptdt yymmdd10.;
cards;
000001        2004-12-30  1 2004-06-30        1 ABC        1.38E+08 7.08
000001        2004-12-30  2 2004-12-31  1  DEF   3.48E+08 17.89
000002        2003-08-27 1  2002-12-31  1  XYZ   78075749 12.37
000002  2003-08-27         2 2003-06-30 1  OPQ    1.56E+08 11.29
;
proc print;
run;


proc sql;
create table want as
select a.*, b.* from (select * from have where scid=1) a, (select Stkcd,Scid as Scid1,Trddt as Trdd1,Reptdt as Reptdt1,Rank as Rank1,
Shnm as Shnm1,Shnum as Shnum1, Shnum as Shnum1 from have where Scid=2) b
where a.Stkcd=b.Stkcd;
quit;

farmman60 发表于 2013-3-24 22:12
data have;
input Stkcd        Trddt: yymmdd10.        Scid        Reptdt: yymmdd10.        Rank        Shnm $        Shnum        Shrt;
format Trdd ...

只能用sql？能不能不用？

Sure. First split data set into two data sets, one data set has Sciid=1, other Scid=2, then rename vars names in one of data sets, merge two data sets with common var name Stkcd.