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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
6 X8 {/ A: {" M. d 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
# u! ^9 Z/ A* B1 v4 R 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
* Z9 G9 O: v* l5 Z8 e7 f: T2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

8 }& B: B2 k* i* {表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
1 F+ @! B0 D# e kiwi                                 
.                                    
' V9 [. S4 F" `! [* u.                                 
  A9 p2 R# n4 H( V5 Z6 g% J( Q% mgrape  组合里同时有苹果和葡萄的次数


订单部分如下：
$ C) J6 C: @+ d4 U customer   fruit       qty     date        
001        apple       17     20120101     
6 K' T( V2 j% O' d7 v- h9 K# A 001        kiwi        17     20120101     
- N2 [- }& _! o  j4 _- [ 001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
( f% T/ o4 Y" K) G% V1 w+ D7 B 001        kiwi        10     20120211     
) f5 ?& t- q& T' e+ a 001        pear        15     20120211     
9 |% y* F$ s' z7 ?: }) T# A 001        pear        15     20120222     
) v' Y0 D) Z4 T9 B 001        banana      10     20120222     
8 C# C- e, n4 ^. \ 001        lemon       22     20120711     
002        kiwi        22     20120217     
8 L, [7 d# `9 W1 B1 _+ Y2 ~. u; X 002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
5 B- d1 N- F! m+ t2 ]* g 002        pear        15     20120322     
002        banana      10     20120322     
! S5 i7 ?, @/ ]# k7 l 002        grape       22     20120424     
1 a* h8 D1 q5 B/ Z+ J 002        orange      29     20120424     
002        banana      29     20120424     
8 P* ], y. }- s8 ?7 l, { 002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
9 b" g4 s3 N+ j0 Q$ V 003        apple       11     20120201     
003        plum        11     20120211     
0 Z( j8 G' `2 Y/ z' ?& k7 E$ f% ^ 003        kiwi        11     20120201     
+ q" |) l3 O5 N% O 003        grape       11     20120201     
8 [3 [( s/ B5 y& }: m 003        cherry      24     20120213     
003        apple       32     20120213     
' R/ G* v% z% F, J! G) n 003        grape       44     20120412     
) d  X; a6 t# ^ 003        pear        15     20120922     
) w9 x' m4 u2 ~8 ~) N8 r 003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
. _+ \! ^. B4 v, |4 ]1 Y 004        peach       29     20120424     
004        pear        15     20120424     
" b9 V8 m3 {0 E$ B 004        pear        15     20120522     
5 i5 ]( [/ ^6 b; E! \2 ~ 004        banana      10     20120522     
! B% N& }1 \! v  L) `5 X* A8 Z# f8 E 004        apple       22     20120601     
/ O0 C7 Q& C: g% C# x1 n' r6 ^5 ` 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
) B$ d) z* W# }! P 005        pear        15     20120322     
1 y% }8 F8 a, O5 S% v6 J 005        banana      10     20120322     
005        orange      20     20120411     
( Y; x% p- ~% Y* W 005        cherry      30     20120421     
005        apple       22     20120601     
8 q3 \" \6 q5 K$ v5 C% l+ T 005        kiwi        22     20120601     
005        grape       22     20120601     
1 f+ I8 y# y, z. G+ \  `" y5 h 005        kiwi        25     20120616     
005        grape       25     20120616
# P, d! M8 n, r' T- u! {