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

bunny2012

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

: Y& h. r1 f4 P1 F! x订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
( _0 m$ Y1 z& ^3 x( ~) y2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
* q% [4 f( u& e$ p- [! F
( U& b4 p6 w5 N* U表结构：
% m; ^& R+ N* R fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
.                                    
.                                 
; Z+ Z+ ~: a7 [- N8 h9 rgrape  组合里同时有苹果和葡萄的次数

( {2 ?$ ]; s7 C: N. b, }% t
( ^) l# e7 d  j* ~5 y. \6 g订单部分如下：
2 R; u, V( a0 R' k customer   fruit       qty     date        
7 u3 M. u, v0 Y. w1 P5 l 001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
+ l  i$ _" G0 A8 B2 u9 L# S 001        pear        23     20120129     
1 B% h: t& }. L9 ~ 001        banana      10     20120211     
2 x6 W" `, a5 ^ 001        kiwi        10     20120211     
) @/ W0 j& U: Q' {' ? 001        pear        15     20120211     
6 C' M) \# P; c1 Y/ X; q5 _ 001        pear        15     20120222     
001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
2 y/ d6 ^9 R8 Y+ |! k$ ^ 002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
+ w/ k7 k+ X9 T  x4 Z: _ 002        orange      29     20120424     
. V& p0 a" E! d5 F" w- Z! ^ 002        banana      29     20120424     
002        peach       29     20120424     
& O1 b* O+ Y4 ]+ Q2 z 003        pear        15     20120122     
003        banana      10     20120122     
& U1 p/ u4 E" m7 h7 w 003        apple       11     20120201     
003        plum        11     20120211     
: F9 ~+ b4 h9 U! m2 Q 003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
003        apple       32     20120213     
003        grape       44     20120412     
9 {: [% ?2 x( R6 Q! ] 003        pear        15     20120922     
003        banana      10     20120922     
004        pineapple   12     20120206     
6 q2 [; }1 m# [% O( G 004        plum        31     20120219     
004        banana      29     20120424     
# ?) Q$ z7 G$ y& c4 P' e# W. }/ w 004        peach       29     20120424     
+ ^& N! _1 X4 w- S2 R 004        pear        15     20120424     
! d' P" f6 L. Y5 o1 p/ p 004        pear        15     20120522     
7 y8 A# q5 {+ i5 `, d4 S2 m 004        banana      10     20120522     
2 Y  F/ j. R5 {! B- c# Q 004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
* P$ T# o+ S/ V, G* P 005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
2 E8 }% {" O! v5 G 005        orange      20     20120411     
9 `% B2 q1 x& X% ?5 h' a7 i 005        cherry      30     20120421     
% Y  Z9 {, S' k, p6 c, `) m: @ 005        apple       22     20120601     
3 Q9 U* _0 y6 x& n0 l/ @ 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
! A+ c' G- O" `9 s 005        grape       25     20120616
: q$ s# F0 e* |9 v