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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
! z9 y6 b+ V0 i/ e( ?' {
1 ]+ _4 V" q/ w  i9 n: c( B' r订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
' ~0 `6 E# n% \4 x2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

# E2 z- \1 Q, Z3 F- U. \0 Y% q% }表结构：
. @/ U" E5 y+ c- J# G; d# [6 f fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
" v- }. h0 J1 l kiwi                                 
.                                    
.                                 
% n- a. M2 S  ^grape  组合里同时有苹果和葡萄的次数
. u+ M# i3 i. `* S! S$ L  z
4 T; }3 V+ h/ q7 ~8 n
; y0 ~$ h0 p0 z* e; v4 F订单部分如下：
customer   fruit       qty     date        
; T1 O/ ~/ A7 K& q, t, K 001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
001        pear        23     20120129     
% |. Q/ ]6 E( ]' E 001        banana      10     20120211     
/ }+ y5 `# L- |3 ?( V0 e; U1 J 001        kiwi        10     20120211     
7 ~$ c. u+ K1 Z$ P/ a3 |; W- t, v6 W 001        pear        15     20120211     
001        pear        15     20120222     
001        banana      10     20120222     
! e6 X9 X3 M% }: s 001        lemon       22     20120711     
8 k6 R0 v! U; P1 N% b 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
) J/ e$ q' j: V3 ~# o2 e 002        peach       29     20120320     
2 E/ v: k+ N+ M$ d' E* K 002        pear        15     20120322     
002        banana      10     20120322     
7 o  ]7 T- c" G, S% o7 L 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
5 m( H3 }$ L! L2 d7 T 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
+ R) F# W! g; t 003        grape       11     20120201     
003        cherry      24     20120213     
5 @! @, H  _& C% I; T$ ?5 d( r2 E 003        apple       32     20120213     
003        grape       44     20120412     
/ y! o( Q0 X. |9 K 003        pear        15     20120922     
003        banana      10     20120922     
004        pineapple   12     20120206     
1 M  h5 [" m8 X 004        plum        31     20120219     
' W9 @9 n- Z- m 004        banana      29     20120424     
+ s6 y# L1 e7 C7 f# ~9 A 004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
" n  A& z" x8 [3 T/ a 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
% p4 n0 q1 G3 d9 x$ x 005        cherry      24     20120203     
' s$ s. ~! `$ p  t$ c& f 005        apple       32     20120203     
  Z0 S8 ?3 L3 E* u 005        pear        15     20120322     
% k7 P, f3 ]8 [" G  Q$ w4 z* ? 005        banana      10     20120322     
005        orange      20     20120411     
, ?4 ~  @6 O6 w1 m4 V( ~0 m 005        cherry      30     20120421     
: |" s+ I: z4 I. m  r 005        apple       22     20120601     
. W" @5 }  B5 d0 ?# |+ V6 {3 |, s 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
; I' d' M# B' ]. W$ @$ M3 |& j% d 005        grape       25     20120616