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

bunny2012

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

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
+ y1 C( U0 M+ M( {9 ^0 t 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
' \% V/ D/ s6 s8 Q 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
1 d9 U9 ]) [5 t; h/ _, |: Z
# M2 B* y* v1 _" t( k表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
7 `& ~) z& S/ G8 E( a: [$ D.                                    
; S" |4 s5 J6 t+ b6 x: P$ a.                                 
" u1 q4 c) U8 W7 A8 fgrape  组合里同时有苹果和葡萄的次数

- v: d+ A6 U3 t/ ]
订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
  n; U/ b# C! M9 F# o 001        kiwi        17     20120101     
- u9 ]2 O. I! E; F& e 001        grape       17     20120101     
# Z3 w  s' {9 R8 [' ?) \% u$ N 001        pear        23     20120129     
001        banana      10     20120211     
: V3 J# o+ K; |! h* R 001        kiwi        10     20120211     
: X9 Y/ Z" _, C8 G0 u1 X$ d 001        pear        15     20120211     
' p3 p. [" g$ q! W2 \' b" o7 F 001        pear        15     20120222     
001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
5 j6 d" l' z( T" Q  b8 J5 X 002        corn        29     20120320     
4 P7 A" I" P' g 002        peach       29     20120320     
, U, h' R8 a; W0 x! J$ @* G9 P% ~( t1 ? 002        pear        15     20120322     
002        banana      10     20120322     
& T  ^# h; A. v6 j0 K  v0 K 002        grape       22     20120424     
! r) Y8 F8 |! ^8 m 002        orange      29     20120424     
* n" C- ~4 m/ @  `+ V& T 002        banana      29     20120424     
/ O. B8 Q' g, r# z 002        peach       29     20120424     
1 E7 x# S7 I! J' F* U 003        pear        15     20120122     
003        banana      10     20120122     
003        apple       11     20120201     
' z7 j7 d3 b7 h$ k3 f* ]2 p 003        plum        11     20120211     
8 ]  b# u- P; j 003        kiwi        11     20120201     
2 E# E( E+ M! x+ d 003        grape       11     20120201     
& ~* B1 |. Y( h 003        cherry      24     20120213     
0 O+ c+ h! _7 J# d6 R* x 003        apple       32     20120213     
003        grape       44     20120412     
4 u( h, Y4 W% w( M9 n9 Y3 n 003        pear        15     20120922     
$ W9 x: a0 J& P4 k+ e0 S 003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
004        peach       29     20120424     
- O7 s7 D% l8 }! R 004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
004        apple       22     20120601     
9 A% X6 @9 u4 J 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
- k0 @" O7 F  B" p8 M$ R 005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
' y" {; \* R2 U. g) E  K 005        cherry      30     20120421     
; k9 Y; D% F! _# G) Q5 x- j 005        apple       22     20120601     
( ], {1 |: Y$ [2 l# b 005        kiwi        22     20120601     
$ X3 o& h4 B+ G, d 005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616