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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
, _" {0 r; }3 g) `/ }& p
0 b0 T+ {5 V0 p4 ?, k订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
! G1 o% t4 t2 C, U7 b; {! g' e 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

1 h  _  L! B8 x; s# X9 m表结构：
fruit  apple  kiwi ... grape      
" ~" Q' l: a1 @9 D8 |& s# B' E! j4 D apple  组合里只有苹果              
* h3 k2 ]  w+ U9 N) Y kiwi                                 
( G' D/ @$ [% P( J; ~& ].                                    
.                                 
7 W) t( |9 D- n* U& Jgrape  组合里同时有苹果和葡萄的次数
) g7 n9 J( @5 P) I2 o  i# B

8 Y2 w# S9 K. a  q9 ?5 O订单部分如下：
customer   fruit       qty     date        
- m/ h6 j8 U+ n 001        apple       17     20120101     
, I: ^3 X. E, Q& ]1 x9 a1 i" y 001        kiwi        17     20120101     
6 \! `" q8 ?, w5 |* N. I" ? 001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
, ^  K  Q" S# `/ e1 ? 001        kiwi        10     20120211     
001        pear        15     20120211     
$ U9 `# P' M% ~% |$ T; t 001        pear        15     20120222     
9 q) C, a1 J" {9 _6 x4 U. l' `9 b 001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
# Q( m/ R1 ~! T 002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
3 I, m0 _2 w4 p) N 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
; u  v$ S- y# }' P; z% o6 w9 r 002        peach       29     20120424     
003        pear        15     20120122     
# |" m: e; G: i 003        banana      10     20120122     
003        apple       11     20120201     
# ~; z) M8 M8 Z3 C+ W2 p 003        plum        11     20120211     
9 \% Q. T1 d' j  \' V: d  q* V 003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
003        apple       32     20120213     
003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
004        pineapple   12     20120206     
& u! r2 K6 C+ u2 @3 c! Y 004        plum        31     20120219     
: m; U$ `" K0 u! k( n 004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
4 f6 `" b# Y# K" b 004        pear        15     20120522     
7 D9 x$ P5 x: o2 F 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
6 v* P3 l/ ^3 W6 z% I7 J# q4 B 004        grape       22     20120601     
005        cherry      24     20120203     
4 I1 p, _, _4 W7 B% j 005        apple       32     20120203     
4 A! p$ T# F- ~ 005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
6 M: }5 l8 B1 R$ O+ L& J: c5 G6 p 005        cherry      30     20120421     
# {3 R# ~) F/ \/ d# I# T6 m( h 005        apple       22     20120601     
005        kiwi        22     20120601     
005        grape       22     20120601     
: b  a, b5 e- F* X& }: h& h: Y 005        kiwi        25     20120616     
( B& D# e$ W  {! B; E; N4 z6 A# q 005        grape       25     20120616
9 y  Q8 E; g  m