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;

只能用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.