data a;
input id$ D1 D2;
cards;
A 1.9 2.5
B 1.2 1.5
C 2 1
D 3.1 2.3
E 1 1.6
F 1.8 1.4
;
RUN;

proc sort data=a(keep=id d1 rename=(id=id1)) out=b1;
 by descending d1 ;
run;

proc sort data=a(keep=id d2 rename=(id=id2)) out=b2;
 by descending d2;
run;

data out;
 merge b1 b2;
run;

如果每天都有数据,需要把上面所有的程序做成宏程序.

首先，感谢版主！您亲自教导，倍受感动。

我还有几个问题，请教老师：

1、我的数据已经以 1楼上表的形式存入SAS数据集中，怎样一行一行地（每天的6种商品）读取再

   按降序排列。

2、输出方式按 1楼下表的形式输出，只需要一行一行地输出商品名称的降序排列（即 DCAFBE),

   不需要价格。

  谢谢！！！！！

1. proc transpose, transfer data as:

         _name_  x1 x2 ............

           A     1.9  2.5

           B     1.2  1.5

           C     2.0  1.0

           D     3.0  2.3

           E     1.0  1.6

           F     1.8  1.4

2. use macro, every time choose _Name_, X&i as a new dataset, do sort.

3.transfer back.

Thank you very much !!!

    不知各位老师，还有没有其他方法？ 谢谢！！