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

bunny2012

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

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
4 M/ J& N  m8 E( t8 F; F/ r7 j+ h 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

/ u, y2 [' J& e' o, d+ ~6 a表结构：
fruit  apple  kiwi ... grape      
8 F) T$ F7 f# B# Z apple  组合里只有苹果              
kiwi                                 
5 W! L3 `' D8 t6 Y3 U.                                    
& H/ C; t5 ~) [. d$ L6 z.                                 
grape  组合里同时有苹果和葡萄的次数

# }, i! q+ N, N) K
) i! O2 e0 X' y8 U& N3 E) X订单部分如下：
( H! C/ ]- @& _: K% X7 G6 Q0 Z/ A customer   fruit       qty     date        
& B7 {& R4 ^0 ?2 i- R 001        apple       17     20120101     
% _8 ^6 h4 b+ Y5 c) P! a 001        kiwi        17     20120101     
001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
5 V# \0 V- m0 W( _% }8 _ 001        pear        15     20120211     
001        pear        15     20120222     
. i% `3 U% C, w1 Y- \ 001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
" Z1 S- M% L& S' i. y 002        corn        29     20120320     
8 x: U% Y' ~; Z7 R% A5 h 002        peach       29     20120320     
% ~" F2 d! M4 M" r# R" ?2 ?: Z 002        pear        15     20120322     
3 c, A6 ]$ m$ c4 p# h 002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
/ E; K; t5 m% i' C$ R- J# { 003        pear        15     20120122     
9 X4 Y3 ~/ @8 f, @9 W0 G" U 003        banana      10     20120122     
$ U  r- H; \; W$ L+ n+ i' z% L 003        apple       11     20120201     
( Y/ N- E) j7 s0 L% X 003        plum        11     20120211     
+ W0 j8 f4 t2 v' d% S' v$ ~ 003        kiwi        11     20120201     
+ S8 X8 l( K8 |# T 003        grape       11     20120201     
003        cherry      24     20120213     
003        apple       32     20120213     
" p* h  t& G, c2 ?  d+ I: s$ T 003        grape       44     20120412     
003        pear        15     20120922     
, Y2 e5 A/ {+ F4 X1 S0 s 003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
" [- H9 {8 y  i" S! w, V 004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
# n+ v% E! U3 N$ ~/ j$ g, ` 004        pear        15     20120522     
- J* |5 y  o4 h' }, a6 |. a# ? 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
* S7 X  L8 ]5 p9 s8 c+ V( x 004        grape       22     20120601     
+ f( z4 N4 e* I# |  G' ? 005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
1 e. o$ w# r3 d7 m1 g* [" f 005        banana      10     20120322     
005        orange      20     20120411     
: ]$ A/ T& @, q/ l8 A0 y* ^, g* D 005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
; D. F9 Z( c% g6 G% C 005        grape       25     20120616