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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
* e( I4 U! F# n之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
) J; H) X/ R; B2 U! [
8 f% d8 W4 Z* k4 V" Q4 O( D  e. A订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
, a& ]' C, n5 T.                                    
.                                 
grape  组合里同时有苹果和葡萄的次数
% J! v8 w* g+ S
( f+ T8 K" y" B) l' {
: P$ n& {# ?# B  @7 F订单部分如下：
customer   fruit       qty     date        
# j( |1 L0 @6 e: O4 O# N) G 001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
. f7 D% E4 \, q' v; w$ L8 q 001        pear        23     20120129     
$ ^( ]6 v7 j3 Y0 z) T! l  y 001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
" v5 ^3 `7 h, U2 a$ g 001        pear        15     20120222     
, J9 y  ~4 Z. @8 X$ d0 T" C# Q  }- _ 001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
# V! g( o! ?) q% w: O5 x 002        pear        15     20120322     
002        banana      10     20120322     
, q) u" V7 t* g1 V- G: a+ I 002        grape       22     20120424     
" n; @, c3 A/ ?1 h* p  V 002        orange      29     20120424     
002        banana      29     20120424     
4 ^3 z+ @+ X3 Z1 S- N4 s- Z 002        peach       29     20120424     
6 _- p0 p0 W5 }8 U. U. F$ x; C 003        pear        15     20120122     
/ v: ?2 h2 B7 L0 @! \- e, ~2 F 003        banana      10     20120122     
! U; u# d  a5 r' e+ e2 ]6 s4 }" O, D 003        apple       11     20120201     
" y9 }4 s( q7 ?. }% O 003        plum        11     20120211     
8 N# i' I1 K! P* Y. k' z 003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
  F3 l: T* W  g+ L8 o 003        apple       32     20120213     
- |8 s, P3 x+ g- T( E 003        grape       44     20120412     
- W/ x: G( q8 C) n$ w* R! S 003        pear        15     20120922     
) a5 R- @* F! l8 \3 f 003        banana      10     20120922     
0 A5 L4 b2 U8 e$ U8 X/ c+ [ 004        pineapple   12     20120206     
4 Q% v& L  j# I! b# G; n/ @, B# v 004        plum        31     20120219     
004        banana      29     20120424     
* [& F# J4 ^2 T$ [6 f& z4 d 004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
% t/ H( r; c# l% {# z4 G 004        apple       22     20120601     
* Y4 z; W# y9 a0 E 004        kiwi        22     20120601     
/ D9 x2 O2 u. R( L3 s; |( } 004        grape       22     20120601     
4 ^: P! c) e+ W6 {/ Q1 h- I 005        cherry      24     20120203     
8 U1 L# W: n" @3 r) [ 005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
7 P$ n4 t# Z, `" a 005        orange      20     20120411     
005        cherry      30     20120421     
005        apple       22     20120601     
, {! z1 Q4 l- s  j4 X- D& | 005        kiwi        22     20120601     
; ^* m* n  b- f. L: Q2 q 005        grape       22     20120601     
4 n$ ^- q! G7 O% k6 @  ^6 D7 ~ 005        kiwi        25     20120616     
; b# y4 z, a# `( Z# X- j7 \% A, f 005        grape       25     20120616
+ e* r( v# `* |! P7 @