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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
; }. @& k7 ~8 P& e  c3 Y/ L, o5 v  l之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
( \( \# j, w( F+ r- z! g) B0 M7 i 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
. W% ^: A% L! w) @" t6 a# d3 n( i
. ^; @3 j2 }7 ^, @表结构：
. T7 I( Z9 n) H. b$ C, `) C  D! J fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
' X% }  c* D) b3 X( m.                                    
) x1 h& y, e4 D% I, _.                                 
grape  组合里同时有苹果和葡萄的次数


! ~) x) m* M( j+ Y  |, z订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
; Q+ u1 H$ q5 H9 S+ I+ } 001        kiwi        10     20120211     
001        pear        15     20120211     
001        pear        15     20120222     
4 R) _/ J3 W, O" b- w 001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
! b: f/ r9 p, X8 r/ p4 Q0 d+ l 002        kiwi        29     20120320     
002        corn        29     20120320     
4 X, @& N) q& h( Y/ l2 J 002        peach       29     20120320     
; _# W9 B: w$ m0 G; d 002        pear        15     20120322     
1 ^# E! u3 f* G! i& S* H3 v 002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
+ G5 C$ L9 {4 G, [9 p2 Z 002        peach       29     20120424     
$ E% {5 h; @9 i5 \5 D7 O6 T0 l 003        pear        15     20120122     
3 p" ~0 z" h* L6 i 003        banana      10     20120122     
003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
: \' v: A" e9 M. _6 R6 A 003        grape       11     20120201     
003        cherry      24     20120213     
9 \& G0 P! _' P1 O: A+ k 003        apple       32     20120213     
003        grape       44     20120412     
0 c2 [$ ?, R( |5 t: h' I4 G+ w+ A! A3 U' U 003        pear        15     20120922     
( l* S7 x; i  O. E6 V  u' f' X8 L 003        banana      10     20120922     
5 m' d4 Z' u  e9 y3 S 004        pineapple   12     20120206     
) ~4 O$ J- `; L; s- s5 U2 s9 W: L 004        plum        31     20120219     
7 ~) Q) q  `4 m 004        banana      29     20120424     
. }, C; {- i( y+ b( q# ]. b1 u  G 004        peach       29     20120424     
. j1 @  y1 {9 P6 g 004        pear        15     20120424     
5 D2 q: z  m4 [& d1 |0 i 004        pear        15     20120522     
% |8 g0 }' L. j" d  n7 q$ v1 z4 @ 004        banana      10     20120522     
7 }3 Z* O* G! H" v5 [' b9 E/ L 004        apple       22     20120601     
7 C$ M, U5 h( z5 k 004        kiwi        22     20120601     
004        grape       22     20120601     
9 P8 ]/ I1 d4 {4 ~& p6 A8 `3 B, j 005        cherry      24     20120203     
! h' g$ S& |2 A5 I, G 005        apple       32     20120203     
  G2 f) n! i" r 005        pear        15     20120322     
, S' I; m$ q! T6 |; ~( m) ^' U 005        banana      10     20120322     
2 z4 j( J  y; t# w 005        orange      20     20120411     
. h! W* Q7 D" j+ N" ^* q) v 005        cherry      30     20120421     
005        apple       22     20120601     
' d# [9 p$ N) G( V' m4 S0 @% v 005        kiwi        22     20120601     
005        grape       22     20120601     
0 R* ~8 s1 @- W! Q 005        kiwi        25     20120616     
! ]( c2 e5 @8 u# j( ^! k5 u' p8 | 005        grape       25     20120616
! D% H( J& ?6 Q; K+ i- f& m* ]