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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
5 m8 a$ E5 c5 N& N  p1 ?; E之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
1 |7 ^/ }  U! d$ \6 N9 q+ Q9 J+ B 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
3 [  g( P7 S& x" c fruit  apple  kiwi ... grape      
7 h: K; f9 I2 v5 \; t apple  组合里只有苹果              
' u# Y0 g: Z( X/ [; Q& `6 y% r& m kiwi                                 
.                                    
. J! i9 t* d9 W4 _$ X.                                 
grape  组合里同时有苹果和葡萄的次数
% b- T8 P! x9 p

订单部分如下：
7 J5 Y6 n4 _0 ^6 w7 U( G$ D7 _' x customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
8 b4 F3 G- r4 Z' I& A2 k# d! J( B 001        grape       17     20120101     
! W& X- N* a, u9 J' V 001        pear        23     20120129     
001        banana      10     20120211     
' V5 N5 z0 _& |* q$ A1 z 001        kiwi        10     20120211     
001        pear        15     20120211     
0 G3 [6 d; N- E 001        pear        15     20120222     
001        banana      10     20120222     
001        lemon       22     20120711     
* }* M/ }8 E& u- M/ e) d; ] 002        kiwi        22     20120217     
) c8 j, Z! k& |! ? 002        kiwi        29     20120320     
4 w% i, e6 U" y: m8 C6 a, i 002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
! N* e* A1 `5 z$ F) U  N( B# D5 S 002        grape       22     20120424     
002        orange      29     20120424     
# x% |8 U. ?2 N' U$ j& t0 J* [ 002        banana      29     20120424     
& \# ?6 ]% l$ f/ K6 `* P 002        peach       29     20120424     
003        pear        15     20120122     
' z2 ]' I, T: l; `2 b4 _ 003        banana      10     20120122     
003        apple       11     20120201     
) R  @! n% R) g+ R. s. S 003        plum        11     20120211     
003        kiwi        11     20120201     
% B6 q2 F4 |" S8 ? 003        grape       11     20120201     
9 |$ ]( }2 g1 E$ @' ? 003        cherry      24     20120213     
0 O. A3 ^: U; d* w8 A* f 003        apple       32     20120213     
003        grape       44     20120412     
: k# Z$ p, z) r( `% s! v# A8 ? 003        pear        15     20120922     
003        banana      10     20120922     
% `/ X5 M4 O. q; d% U. E! P 004        pineapple   12     20120206     
. \; K, ^2 H% Z& I6 Y- h" w 004        plum        31     20120219     
/ G  G6 M6 h0 O3 K# x 004        banana      29     20120424     
. r7 `: H% e5 H/ v 004        peach       29     20120424     
0 j6 s: d9 L' v1 v0 U; a 004        pear        15     20120424     
004        pear        15     20120522     
# t* n' g" S4 P& N: v" X' V 004        banana      10     20120522     
004        apple       22     20120601     
+ R& [! V6 }: q5 X7 |; y 004        kiwi        22     20120601     
: S% f1 K0 \8 K# q8 i 004        grape       22     20120601     
005        cherry      24     20120203     
$ l8 }4 v) V- @3 @0 _ 005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
8 V7 N; R9 g1 ]1 Q% c 005        orange      20     20120411     
005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
" a  K4 s0 C  O- M7 V1 D  t 005        grape       25     20120616