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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
5 f# n# v# F5 [9 [+ \. L- b之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
0 @  }3 ]8 `. Y+ F; @1 ]" h
5 v; I, n; j" ~  a! ]) b: Y订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
! }2 o: X6 Y, B& K! g; O8 k. E fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
% B* c! O+ H6 c% q.                                    
1 n  W3 R  a8 z5 Q: c. U( n% {/ O. {.                                 
7 g+ d1 d, ~( S+ Tgrape  组合里同时有苹果和葡萄的次数
9 U: h1 r( k. u0 h# N# H

订单部分如下：
customer   fruit       qty     date        
: [/ q7 [+ L& ~' M 001        apple       17     20120101     
001        kiwi        17     20120101     
) y0 H0 y: B' C  p 001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
; B8 i$ N0 P3 ? 001        pear        15     20120211     
001        pear        15     20120222     
6 C: y1 X* S3 D1 _  ?3 V8 A 001        banana      10     20120222     
% M4 m6 j& y4 _/ {, ?5 x 001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
, d% X1 c7 {1 _+ w: Q 002        peach       29     20120320     
002        pear        15     20120322     
) d  h6 [. B8 p  e 002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
. Z  R1 j0 C5 n, D 003        apple       11     20120201     
003        plum        11     20120211     
6 I1 n; e) I" }  q3 n# b& _ 003        kiwi        11     20120201     
4 t; ~% r2 s  }' V% _- I 003        grape       11     20120201     
2 H6 T+ ~. {0 m 003        cherry      24     20120213     
: W7 |3 v: P3 D) k9 ?: G 003        apple       32     20120213     
! M7 L" @: j8 B- R2 R" _* k2 Q, T 003        grape       44     20120412     
003        pear        15     20120922     
  I+ g" E0 V3 c% W: Y 003        banana      10     20120922     
9 {: t' j4 C. ~+ F9 u5 }/ P" \ 004        pineapple   12     20120206     
3 M( t2 _: v8 q* G9 M 004        plum        31     20120219     
004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
! W7 T9 b6 _% G, O. ~# y: b 004        pear        15     20120522     
$ w+ e5 ^8 h2 T3 k; I 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
( i& ]5 w6 c% g4 U& c  n6 N4 F+ L$ Y 005        cherry      24     20120203     
005        apple       32     20120203     
$ K' X4 q( l; z0 g9 Y 005        pear        15     20120322     
005        banana      10     20120322     
( `/ L( w" p# h 005        orange      20     20120411     
/ e/ y6 a0 Q! U" ]; _2 C 005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
" d; o6 l( {, o. Z& L: f 005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616