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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
! C0 M/ p8 q! E4 r3 C之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

- {- P4 X7 [. T% P+ }9 ~订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
4 g/ b, j! _$ l1 ^: n 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
% p  H! V, w  w( B& J  I 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
) c( X% l7 j: ?$ s1 X- D% K4 C2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
8 ?/ n6 p/ s0 N fruit  apple  kiwi ... grape      
  z! l* T% _( J9 [6 [( H' [ apple  组合里只有苹果              
kiwi                                 
: ]* C/ q, m& W6 j" r1 p.                                    
.                                 
grape  组合里同时有苹果和葡萄的次数
+ V% M* t! H& ]* [6 o

) N) V" i0 U: Z7 S6 @8 }7 L订单部分如下：
" H, `7 ^( g& U8 Z8 k/ F customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
001        pear        23     20120129     
8 h0 I. L% o7 c& Q5 |4 C4 f0 Q 001        banana      10     20120211     
001        kiwi        10     20120211     
( v7 f; ~; k: b& v" \# l* H# F' c9 } 001        pear        15     20120211     
4 v* b6 g; n- G0 X6 V  h 001        pear        15     20120222     
  A* a2 p- l4 r+ f 001        banana      10     20120222     
001        lemon       22     20120711     
4 }, S/ s3 r# y* u, ? 002        kiwi        22     20120217     
" c$ b: H5 |4 q! B, P 002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
0 ~+ D0 N, y+ ]4 E0 {% i 002        pear        15     20120322     
8 F) P- t& W* h( E 002        banana      10     20120322     
002        grape       22     20120424     
6 v  K4 d  T' f; {6 ^ 002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
# D4 G. D4 y; C' n$ g. m; a 003        pear        15     20120122     
4 ?3 U  D' u  O$ H+ }; y# H 003        banana      10     20120122     
4 p: }& `7 T6 k, Y 003        apple       11     20120201     
' ~3 X, |6 o+ h* R  { 003        plum        11     20120211     
003        kiwi        11     20120201     
4 _* D: p; U* m$ d2 q8 F 003        grape       11     20120201     
003        cherry      24     20120213     
003        apple       32     20120213     
003        grape       44     20120412     
003        pear        15     20120922     
6 J8 m  Z  D! L. e# K* _2 j' I  o; ~ 003        banana      10     20120922     
004        pineapple   12     20120206     
* w  S) ^! t6 u 004        plum        31     20120219     
- d. E) b6 x! m( S) \' o 004        banana      29     20120424     
0 w& p! k& G) V8 r9 l4 y( J  P 004        peach       29     20120424     
5 N9 e% D' q& {8 m/ D/ ?( ? 004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
6 n1 l, [+ j7 I 004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
, y! |* \& A, G9 q. ] 005        banana      10     20120322     
005        orange      20     20120411     
' F6 o2 ^! j" ~- ~" u9 j! V 005        cherry      30     20120421     
& h5 |5 X9 h5 ]- z5 ? 005        apple       22     20120601     
005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616
. d7 y% Y6 {  o% E9 j# [