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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
4 ^( y- m, E: R% V! ]$ ?$ J# s$ }之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

7 j) J5 A0 U- |9 w1 `订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
% i+ g' t2 Z; R9 g5 K3 ^0 R 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
fruit  apple  kiwi ... grape      
" m: ^! u& V8 b! e0 y- ~3 | apple  组合里只有苹果              
kiwi                                 
. @4 o" X+ E  O( W' I.                                    
.                                 
- \. ?0 i. ^1 a5 }grape  组合里同时有苹果和葡萄的次数
7 L7 [1 ?0 p0 l

: Q; ?2 l4 k& f! s# w5 ]1 r5 E订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
2 o8 L4 c( i$ @7 m  Y 001        grape       17     20120101     
2 H/ f  V% k# @4 Q4 @ 001        pear        23     20120129     
# K6 T. G! Q# Z6 E 001        banana      10     20120211     
  G! D8 r/ P4 k8 @ 001        kiwi        10     20120211     
7 W( k7 x/ }) U 001        pear        15     20120211     
; ^( W  q- z8 N# }4 P* t 001        pear        15     20120222     
001        banana      10     20120222     
7 W7 M* {6 w7 {0 I$ W 001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
" A& U3 ?+ t1 Y0 F# E 002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
6 }, N' K! y2 N, A 002        orange      29     20120424     
  |# B: w( S/ H0 F7 d4 s 002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
7 R$ Z; y, K/ I+ Y) X. p2 z- r 003        apple       11     20120201     
" E5 j; Q. }+ l3 Q5 E; p. [ 003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
. T: Y) p1 K0 n" r; p- L! ] 003        apple       32     20120213     
4 `' e/ f, U, t' T& S% b0 n0 n9 u 003        grape       44     20120412     
003        pear        15     20120922     
" B( M; a; V1 T+ S/ y% @ 003        banana      10     20120922     
: N5 d3 }0 z+ d 004        pineapple   12     20120206     
004        plum        31     20120219     
3 s8 h& t) r( V; A 004        banana      29     20120424     
004        peach       29     20120424     
4 d! a" x5 O% p+ m 004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
004        apple       22     20120601     
( @6 F# X3 @3 D6 C: E( K4 { 004        kiwi        22     20120601     
) j7 @" |* Q+ G0 G 004        grape       22     20120601     
2 C/ H/ \8 ]) C 005        cherry      24     20120203     
005        apple       32     20120203     
5 k% \; b4 t8 [+ @ 005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
005        cherry      30     20120421     
( k# R3 Q8 _. t7 i2 | 005        apple       22     20120601     
005        kiwi        22     20120601     
" D1 ?* N: R6 k7 Q  O6 V: B 005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616
, Z  ?/ t/ \7 o8 n& A! M