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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
4 z4 n: `) }* }: |* `
5 ~, W, K$ \$ g* U4 o+ G3 R; @% G+ X. [, r订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
7 \0 G& p/ S9 V( Z& i; Z7 t fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
$ Y7 o" L5 u( ?0 y. j. a% \2 h kiwi                                 
.                                    
: ?2 Y8 @6 W( j2 D/ T7 X# Y.                                 
2 _' G& l  B( g8 pgrape  组合里同时有苹果和葡萄的次数
/ p. X. `# A1 I7 {. g

订单部分如下：
) U& a3 p6 b9 G0 Q" q customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
, y. u" h% E) [8 k5 r1 B2 n8 [6 M% Z 001        grape       17     20120101     
3 p$ O+ N. F+ q7 H9 q: ^: S8 [ 001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
! u9 P4 V: L7 S0 z* l, k 001        pear        15     20120222     
001        banana      10     20120222     
( [3 \+ \* x* o, n3 T5 g1 A 001        lemon       22     20120711     
( l: i4 W* p0 Z 002        kiwi        22     20120217     
0 I2 o+ z, F, B 002        kiwi        29     20120320     
002        corn        29     20120320     
1 I, P/ t- T# R3 `. g) | 002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
/ u; |! c; n' r" R! q 002        orange      29     20120424     
002        banana      29     20120424     
6 ]& L0 _1 u2 l5 F7 {1 {' l 002        peach       29     20120424     
003        pear        15     20120122     
: f/ \; C$ v; J, U  |; ? 003        banana      10     20120122     
. L' d# n5 O9 X 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
  o% G5 t! B$ y: H; l( @ 003        grape       11     20120201     
0 l9 g6 X5 x, C/ _ 003        cherry      24     20120213     
. l* L5 I2 U# I) d  a5 i 003        apple       32     20120213     
* O3 ~7 A0 B6 D8 A+ |1 q  }0 x" `2 L 003        grape       44     20120412     
003        pear        15     20120922     
8 d3 t  I; k3 Q, l6 ^ 003        banana      10     20120922     
; p" k+ y0 z. b8 F  d 004        pineapple   12     20120206     
- u0 O, W% ]. v* B 004        plum        31     20120219     
004        banana      29     20120424     
004        peach       29     20120424     
( {& \" n! P$ |2 }2 w: i  D5 A 004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
' c0 X$ }  |6 G% }& Y 005        cherry      24     20120203     
! [& Z  n8 d8 z2 ~7 `# }/ K 005        apple       32     20120203     
005        pear        15     20120322     
% F! ~: i, W4 W9 o 005        banana      10     20120322     
5 P8 `9 B3 ^% ]) }) p 005        orange      20     20120411     
005        cherry      30     20120421     
005        apple       22     20120601     
/ M9 x' Z: s2 m% \: q5 b$ { 005        kiwi        22     20120601     
9 W7 S7 q& d) Z: n 005        grape       22     20120601     
: B5 L$ g+ }4 c0 z0 N 005        kiwi        25     20120616     
( @& s! o; b+ X1 ?/ | 005        grape       25     20120616