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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

2 y( k3 J- a8 d% L% U4 c; l7 c$ B: G订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
( x( m+ J' D" S+ k 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

% d- e# \8 o; n7 u0 t表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
" f9 n# [; ^5 s; B, l.                                    
1 ~( b  I* h+ L6 |- [% J, s.                                 
& ]7 K' ]% L5 V2 D6 t0 Rgrape  组合里同时有苹果和葡萄的次数
9 H8 j: x4 s. a( |+ ^# g
* [2 w, G8 L( D# n( Y& c
  Y3 F& w. K3 ~订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
. C$ {' U+ e) Q% x 001        pear        23     20120129     
$ X& ~' N) s+ ^. n* w5 ~ 001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
, W; }) }& f1 k- k$ a9 C 001        pear        15     20120222     
001        banana      10     20120222     
/ G* }  g! `, ]  [ 001        lemon       22     20120711     
5 j7 S& u% c6 U% k* ^/ V 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
- z, q5 @- \0 _5 F. O. I$ m 002        banana      10     20120322     
! X3 c2 K0 t% y0 u 002        grape       22     20120424     
" b7 B  n6 x7 g( ~2 d 002        orange      29     20120424     
  t5 @" ?& D7 b: p8 } 002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
4 }$ A2 n( B0 X8 i" n9 n 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
2 F& C& h* c1 q: k5 E 003        cherry      24     20120213     
- P: f- h9 j, q 003        apple       32     20120213     
2 D" T: n, Z9 d/ K/ D 003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
1 f+ ], k& l; D; s: n 004        pineapple   12     20120206     
, l7 U4 ^7 ?- q' e 004        plum        31     20120219     
004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
/ C( E" h; a% x* k$ N 004        pear        15     20120522     
/ K5 F+ g5 h4 U1 A! l* v 004        banana      10     20120522     
004        apple       22     20120601     
' W  z8 ?4 Z3 g3 {& A3 c 004        kiwi        22     20120601     
004        grape       22     20120601     
! x2 _1 l5 `( W% A& }5 w& ~' E' \ 005        cherry      24     20120203     
2 c8 C( Z9 x6 k 005        apple       32     20120203     
005        pear        15     20120322     
4 p& U+ L% Q0 M" ?; X. L 005        banana      10     20120322     
005        orange      20     20120411     
5 X" ]; {2 Y& B- d1 _0 V 005        cherry      30     20120421     
" ]+ h9 v8 `2 {( p  K! r 005        apple       22     20120601     
8 V* F. p/ f  H 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
% j3 Z5 }* y' d7 q2 h+ y 005        grape       25     20120616