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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
! y4 E% c: M9 @8 P" _# {
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
, d/ }; ~8 v0 Q% I5 n 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
( `* K+ \  D. u, `1 @. ~ 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
: K& ?; R, l. d% f0 N2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

( U  W0 N6 u. v9 h6 e表结构：
% \% J- d$ e. S8 s5 @6 ]" C fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
2 i+ C  J5 y% k- _: }.                                    
7 y- ^$ W$ W) |9 Q! [3 Y! a. B.                                 
  V5 P, L8 k4 S5 lgrape  组合里同时有苹果和葡萄的次数
$ C* X# S$ w. s0 i) f  o; ?( T6 _. M
) j+ v# A3 D. x- `1 Q& K9 h- _2 K1 G
# i2 k& j/ ?  I5 v0 B9 I5 [, B% V/ U订单部分如下：
' m8 ~. N2 R' a0 F9 u3 v customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
5 v! J+ Y8 S4 D$ _2 O8 d" a 001        grape       17     20120101     
001        pear        23     20120129     
3 L- x9 A/ I1 W( m 001        banana      10     20120211     
$ O" j$ h4 a6 \# t( d' v7 |8 w 001        kiwi        10     20120211     
001        pear        15     20120211     
001        pear        15     20120222     
  r/ ~8 w- z. @6 N 001        banana      10     20120222     
; b) @* M- f5 t 001        lemon       22     20120711     
& D, g! ?& }" } 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
9 F$ ]$ Q& _! X! h- h+ b 002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
9 Y0 T* T' k) H9 p 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
" z! S$ k' ?+ s% X7 |3 p 003        banana      10     20120122     
' ?) h/ ~) `9 z+ l: y- u( @( G 003        apple       11     20120201     
: A4 s, c# U6 {0 z6 ~/ g 003        plum        11     20120211     
; {! j0 U) c, Q" s, m  w3 ` 003        kiwi        11     20120201     
003        grape       11     20120201     
. f7 ~/ n' c6 |+ g+ s4 v  A 003        cherry      24     20120213     
003        apple       32     20120213     
2 d: e. N- B6 ^* |0 P- {& A9 ] 003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
" D# N  @, R$ t  o' Q 004        pineapple   12     20120206     
004        plum        31     20120219     
% ?' x4 M1 x9 W 004        banana      29     20120424     
) o9 o' m1 }+ j" m 004        peach       29     20120424     
004        pear        15     20120424     
. m+ v2 h% H; J+ V1 f: t 004        pear        15     20120522     
6 W& H4 J  ~' I% ]: d 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
* u  ]& `2 x; N" F 004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
: q+ d. H8 {9 B* D 005        pear        15     20120322     
: I7 f0 ^; M" }. s/ g$ t 005        banana      10     20120322     
005        orange      20     20120411     
) u$ B! y% V0 [5 v 005        cherry      30     20120421     
' y* ]4 m) D. `8 O4 g* b, f 005        apple       22     20120601     
: Y) x& \* u& y6 S 005        kiwi        22     20120601     
005        grape       22     20120601     
2 V( `; e2 F( l, l! I* \; v' g 005        kiwi        25     20120616     
005        grape       25     20120616
; q) c& @/ l, p