sas 程序急问---订单中水果的各种组合计数

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
% m7 C/ g$ M/ O& z0 ]& Q7 v之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

  ~  w: ^1 B% z4 `2 a7 @( W7 M订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
- r) b9 T3 m9 U7 a/ ^; N 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
4 D$ c, J8 C  K) _6 z( k  r) ~1 v2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

' p- ?8 s+ H3 P1 a8 {表结构：
$ Q3 n- Q  K" P( l( [ fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
.                                    
1 A1 r5 b. q/ f# `+ N, i.                                 
1 L% e# f. |5 K2 |0 I* Ggrape  组合里同时有苹果和葡萄的次数

5 M4 O3 K9 L/ m3 d& @/ O5 h# E
3 w5 K' u9 B2 E3 B订单部分如下：
customer   fruit       qty     date        
/ [( C/ j* s/ H3 G$ t( p- R4 ^ 001        apple       17     20120101     
001        kiwi        17     20120101     
9 H+ k/ `$ X& E7 K4 `$ Y) Y/ K 001        grape       17     20120101     
$ Y7 B' Z* s" l. W+ ] 001        pear        23     20120129     
001        banana      10     20120211     
, u9 P$ g: p; H# D/ C 001        kiwi        10     20120211     
001        pear        15     20120211     
) g$ ^, e8 I5 `, w' a9 T3 f* m$ K9 g 001        pear        15     20120222     
001        banana      10     20120222     
2 i  z- O. ~* f 001        lemon       22     20120711     
% i. z. O6 t' h; v% m: t 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
# x  J* e6 z' J: v/ ^  D' [ 002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
. U) F5 ?/ [% n% ^ 002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
3 K/ L6 I5 T  p) V8 v; m 003        apple       11     20120201     
& L/ L3 }1 T( M" T8 ` 003        plum        11     20120211     
# ~) W* K5 q8 j 003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
- ^0 l* q- }; k5 Q) k 003        apple       32     20120213     
. Q3 {# W/ J/ |/ D/ u' N- J9 B 003        grape       44     20120412     
5 a# D3 f3 r' D; n4 u 003        pear        15     20120922     
% @- Q+ c- q9 g  G3 a+ L, K& d- s) i 003        banana      10     20120922     
004        pineapple   12     20120206     
$ Q+ q% ]. {4 v# J  Q' i# { 004        plum        31     20120219     
004        banana      29     20120424     
, O! b0 ~" v# G4 W$ P( h 004        peach       29     20120424     
. r/ E9 A, W, G 004        pear        15     20120424     
% x* l6 M* n. t# G. @, p$ b 004        pear        15     20120522     
9 `' V% o% @" ]* l+ T 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
2 q0 r& y4 @0 u 005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
* z9 K; D; V$ j, a5 Y5 r( b( e 005        orange      20     20120411     
005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616
/ H& `; \0 j" i7 l2 b5 S$ s: U