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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
$ ?; r/ m  V0 I) u0 w  n之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
! S; v( K# Q: ?8 {% h 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
5 R5 k: s) I4 u 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
! H! r% K" ]  Q7 C2 y5 k; g2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
3 ]8 E! ~! ^5 F' h) D* Y5 `  E3 w fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
.                                    
.                                 
' q! a$ U8 _. x9 r1 pgrape  组合里同时有苹果和葡萄的次数

/ N$ A5 e( E2 C% E" o
订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
( j! s$ q: j8 I# O 001        kiwi        17     20120101     
& {/ l9 m# @( F! Y# f% X 001        grape       17     20120101     
8 j2 r, Q9 V  o; @; Y 001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
001        pear        15     20120222     
001        banana      10     20120222     
3 v$ @/ V- p; p 001        lemon       22     20120711     
* Y' v3 y9 F) R8 b9 V7 I3 p- h5 a 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
  a5 y. ^6 Z; g+ {2 o 002        banana      10     20120322     
! q$ V" M( C8 \/ P1 n  | 002        grape       22     20120424     
4 g' @' F& [  A* D9 `) n+ G5 c 002        orange      29     20120424     
/ m; G; U$ R% [# y7 i! J; J5 [ 002        banana      29     20120424     
002        peach       29     20120424     
0 q5 h: a' }, u0 M) p% o8 p. O 003        pear        15     20120122     
003        banana      10     20120122     
5 S* o* F9 m6 N# S3 U  } 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
' b/ l1 P6 {/ x6 x  ` 003        grape       11     20120201     
003        cherry      24     20120213     
3 J' C+ E5 F- u. j 003        apple       32     20120213     
5 \+ o% A. g! |  d0 j, L5 T 003        grape       44     20120412     
003        pear        15     20120922     
" ]; H: {/ S- `& m 003        banana      10     20120922     
004        pineapple   12     20120206     
% ~( a* b2 J2 ]* x2 o0 U 004        plum        31     20120219     
: X6 L. T6 C9 V- O6 N3 x 004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
1 J) P6 h! @! ~, H4 z  w 004        pear        15     20120522     
% Y+ q# w8 W% W 004        banana      10     20120522     
4 e& m+ n% V. b' U- }! H8 m9 s+ s0 O 004        apple       22     20120601     
2 m# W- l3 ?+ M6 F' }' y; ~( e 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
0 h" T: C! N- m$ W0 O$ G) K; s 005        apple       32     20120203     
( W. g/ h8 H4 H# Q# t 005        pear        15     20120322     
; ^$ z& N9 h# k" g/ z+ r 005        banana      10     20120322     
4 a8 U5 I. U9 y" F 005        orange      20     20120411     
; i0 q0 R) K8 ?5 e! \ 005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
# ~4 g4 i. b  _' S: v 005        grape       25     20120616
' |3 q" w/ S: x% U$ E0 S