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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
/ S' K8 V) j( k" i$ i( _; ^之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
" q8 R( m* z3 ? 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
3 u: b3 D* N; Y8 c$ @$ E: c 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
4 F3 K2 `* J% N
表结构：
8 \$ k: g8 E2 F  V' G; C* e fruit  apple  kiwi ... grape      
% r0 Z* B6 Y% Z2 k8 O; y apple  组合里只有苹果              
kiwi                                 
.                                    
$ X; I2 \9 }7 Q) a4 }.                                 
grape  组合里同时有苹果和葡萄的次数


2 }; Y, q7 Q% q2 }* [9 z9 y7 b) \订单部分如下：
2 N, Q. l4 r) V0 R8 j3 K, K customer   fruit       qty     date        
; d3 K8 ~, ]  }' C- b 001        apple       17     20120101     
001        kiwi        17     20120101     
. _1 C5 K9 w* a/ ]6 |  X 001        grape       17     20120101     
: A" \  z3 p8 q+ h  D 001        pear        23     20120129     
- {: d& m: l: y. U* w 001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
" L2 Q5 ]3 L7 Y" @ 001        pear        15     20120222     
) M$ L" C8 y3 d: K 001        banana      10     20120222     
. j: m- L' w  M6 f 001        lemon       22     20120711     
! D! k- ~/ L* i 002        kiwi        22     20120217     
002        kiwi        29     20120320     
& C' K& ^! l0 S 002        corn        29     20120320     
002        peach       29     20120320     
* x+ H9 d1 R: {) T+ q 002        pear        15     20120322     
) g8 M6 |+ n) M8 [5 H9 g; U) Z 002        banana      10     20120322     
002        grape       22     20120424     
3 X- c9 g4 Z5 _: {; y 002        orange      29     20120424     
002        banana      29     20120424     
0 r  ~5 l; [. N. v+ M' {) o" x 002        peach       29     20120424     
003        pear        15     20120122     
+ v5 @8 C/ l& ?) @/ p: ` 003        banana      10     20120122     
003        apple       11     20120201     
, l. V( ]+ j2 u0 y 003        plum        11     20120211     
; L, ?! q0 D1 s$ t 003        kiwi        11     20120201     
003        grape       11     20120201     
* @2 g! D" y' t2 j! [6 V9 I 003        cherry      24     20120213     
0 G9 w* N" o, g 003        apple       32     20120213     
8 q# b, S$ s( U8 _' U" r 003        grape       44     20120412     
2 L1 ]% M) x, x2 _3 {" s 003        pear        15     20120922     
0 K9 Z  @8 ]: ~! D8 ~# p9 I 003        banana      10     20120922     
004        pineapple   12     20120206     
! W8 f. ^* ?. x 004        plum        31     20120219     
! S1 W+ a! C0 F% i' P" y 004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
4 L* t! ^0 h/ W+ \ 004        banana      10     20120522     
: Z4 E4 D) ?. B! N, h% n+ ^7 U* W 004        apple       22     20120601     
' r7 Q9 ~$ R  S, m7 r! p 004        kiwi        22     20120601     
7 F' q* T5 |) ~  u5 G 004        grape       22     20120601     
% ^5 E0 ^+ m& z8 s& B- i4 D! N/ f; Z 005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
005        cherry      30     20120421     
/ u* X4 p0 X) t& h 005        apple       22     20120601     
2 R& Q, T9 O- j: }/ r0 h# a* _ 005        kiwi        22     20120601     
005        grape       22     20120601     
! T/ |( G2 L4 i, n  `& |6 T$ F 005        kiwi        25     20120616     
005        grape       25     20120616
$ M' k: |4 R2 S" p& h0 G