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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
$ h2 f' D- [& c9 I) ~7 V4 \之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
' S9 H/ A# I5 x5 @8 P
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
7 ]+ Z* T% C3 G8 W$ L$ u+ k0 f 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
' @" X! Y: w$ _: }" {3 r2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

3 G5 D1 h9 Y+ z: B7 R3 q, e' m表结构：
8 ^$ Y% M5 k- \; M% L fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
- W# u! X1 ~. \* E; }; Y7 j.                                    
+ [& U+ _( N  \.                                 
grape  组合里同时有苹果和葡萄的次数


订单部分如下：
0 e& ~$ H2 B5 s  h customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
& Q# W. g( W6 I7 g" Z. S5 E 001        grape       17     20120101     
001        pear        23     20120129     
$ H' ^5 K  I6 R; Y% m9 n  n 001        banana      10     20120211     
001        kiwi        10     20120211     
: g' |' }! p# V/ P, q! \4 b$ A 001        pear        15     20120211     
001        pear        15     20120222     
001        banana      10     20120222     
% b6 `# _' B! d+ |2 B9 R 001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
- G$ S. ?7 `# P 002        pear        15     20120322     
/ Y! k! U& _0 D/ e. ^ 002        banana      10     20120322     
002        grape       22     20120424     
) ]9 Q' m: a* h 002        orange      29     20120424     
0 ?) {' A6 x: k 002        banana      29     20120424     
" b; T' P* p$ q/ H 002        peach       29     20120424     
3 B4 R& y# T# P/ H 003        pear        15     20120122     
/ p$ X; ]* N; x' ? 003        banana      10     20120122     
% r, r, b" p8 Y) t 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
: y' B) B2 n) S2 p+ z* Z' t) N( o 003        cherry      24     20120213     
/ K+ S% s5 \* C6 a 003        apple       32     20120213     
003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
2 g- \4 V! ?+ @ 004        banana      29     20120424     
0 N' |2 g( Y  N) N9 K3 _. w 004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
  l( D$ G9 d  L 004        banana      10     20120522     
( f0 o( A$ \4 | 004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
* f2 u  c9 f" p4 K# Z+ E 005        pear        15     20120322     
005        banana      10     20120322     
7 q7 x$ R; d: r' C 005        orange      20     20120411     
6 z5 c& g# b3 ~' M" @ 005        cherry      30     20120421     
005        apple       22     20120601     
$ D# h. r" d) j2 [4 b8 c+ v 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616
: W1 [- Y9 h: F7 W1 Q- `( d