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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
$ f& f4 C( [8 c8 ]
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
- w9 U! b, D) l 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
9 n' I) e" X- Z/ w fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
: Z8 @# n) g. J' Z kiwi                                 
7 K% U! h, k/ b/ ^3 ].                                    
3 ^1 v$ i. w) ]& y5 E' W, u2 o.                                 
, M" }: `5 Q) o. Ogrape  组合里同时有苹果和葡萄的次数

- ?. I. W; o+ h8 K" U5 I3 c
6 x2 y- k! T/ \$ F& M订单部分如下：
customer   fruit       qty     date        
# G2 b; L% s; `% R" V# p5 T/ s 001        apple       17     20120101     
' w. A! N. p/ H" F1 ~) f9 ? 001        kiwi        17     20120101     
" ^8 Q& }( K1 a( j* B: @% y) A( q 001        grape       17     20120101     
3 U8 u, o5 i, L# o: @1 Z. t( j4 D 001        pear        23     20120129     
/ L1 W4 o4 u9 M# t 001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
5 |$ E9 H, ^3 I 001        pear        15     20120222     
: S1 E+ B, i  t 001        banana      10     20120222     
001        lemon       22     20120711     
# a# Y. E2 g: E5 ~; ~ 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
4 S! K0 Z& Q- @5 D; l; q* ^: J 002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
5 T. y9 t- [% H/ m8 y 002        grape       22     20120424     
. ^1 w* P( m' |' [* A6 ? 002        orange      29     20120424     
002        banana      29     20120424     
, w4 O5 V+ }% M, j* M 002        peach       29     20120424     
% M4 U5 p/ M# R; ~( a9 E5 P 003        pear        15     20120122     
, `; n" |7 q9 z 003        banana      10     20120122     
! q5 ]: W: u5 m1 |; G 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
% r8 i) d6 ?* v  ]1 m" u# [ 003        grape       11     20120201     
003        cherry      24     20120213     
6 z# q& a; q. F: z* ` 003        apple       32     20120213     
003        grape       44     20120412     
! ?% q! t2 D! ~7 m: v2 D& V 003        pear        15     20120922     
003        banana      10     20120922     
0 c( w4 K; n+ X" _4 n' l 004        pineapple   12     20120206     
004        plum        31     20120219     
, ~+ \% d, i$ I+ o9 Q9 u% Q 004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
4 M  \- H  M* j! U$ q" }+ l  ] 004        pear        15     20120522     
1 i1 z: f. V6 K) V8 Q 004        banana      10     20120522     
004        apple       22     20120601     
/ \. q2 d( t/ L0 _  G7 z 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
! {) Z# ~, k% d0 A 005        apple       32     20120203     
, ^5 l0 `# H/ c9 E+ ` 005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
005        cherry      30     20120421     
: W% u2 m9 ~  I4 ~3 Y 005        apple       22     20120601     
1 Z, p! c0 p7 O2 S( d 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
6 f4 O5 x1 Q' x/ ^& f: j 005        grape       25     20120616