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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
5 [5 A/ X" s- a* @9 [
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
# a' d) B) ^3 K" l. I1 ~ 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
  T  A8 g  y6 _# e; l4 {8 x& v. ~2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
, [& N5 s2 C* c0 m$ y1 w) ]! h
* Y8 M+ ?2 Y1 t! H$ B* O8 ~表结构：
6 O) N5 Z% ]6 `! W- \ fruit  apple  kiwi ... grape      
1 y9 ?$ v0 I) b" w apple  组合里只有苹果              
$ u+ G; Y% ]& @! o6 V: F kiwi                                 
+ o# d/ E/ E3 O; D( Z8 _1 j7 K.                                    
.                                 
grape  组合里同时有苹果和葡萄的次数

6 P) K, A) c2 b. ^$ `2 f% q
" T4 h( P$ j8 @; i* [4 w订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
: C, a! R3 x0 v- P* X 001        kiwi        17     20120101     
# Z+ f7 n/ P- ]; {, Q 001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
) a$ J+ J% s9 N& |1 G 001        kiwi        10     20120211     
' [) T' S  z# ~. Q, s3 o* K% p 001        pear        15     20120211     
001        pear        15     20120222     
+ K0 ~# F9 c/ V$ r 001        banana      10     20120222     
' s- _# F8 A# ~0 g  U3 ?$ A 001        lemon       22     20120711     
" q* Q  H4 k) R! ?! P8 b 002        kiwi        22     20120217     
! ]) l( d) U; D+ s 002        kiwi        29     20120320     
002        corn        29     20120320     
& p" W6 G# R% Y: J3 @3 H 002        peach       29     20120320     
( c/ i  \3 I! {$ q' K 002        pear        15     20120322     
9 Y4 N( O" b7 I1 @+ ]# ` 002        banana      10     20120322     
: A2 P/ K( }. }/ Q% }" Z5 Y 002        grape       22     20120424     
4 S/ b" J0 k2 f, i 002        orange      29     20120424     
/ A3 ]+ h% Z* l, ^ 002        banana      29     20120424     
% q' k$ F+ ^# `7 t  h7 n6 M9 S7 x 002        peach       29     20120424     
003        pear        15     20120122     
+ A! L" j/ I) w0 J1 M% _ 003        banana      10     20120122     
003        apple       11     20120201     
. \% V1 H0 W! p9 K 003        plum        11     20120211     
0 o; F* \$ D6 K1 q* R+ x 003        kiwi        11     20120201     
8 q- X0 a' Y, n7 N3 ^ 003        grape       11     20120201     
003        cherry      24     20120213     
. i5 J& |6 [/ E3 h" v" U  b 003        apple       32     20120213     
# W) z! n: S$ X7 m0 D' r 003        grape       44     20120412     
003        pear        15     20120922     
1 t/ L6 o/ y/ ^- n: H 003        banana      10     20120922     
004        pineapple   12     20120206     
  F! q( `$ {$ N$ i8 T$ V7 } 004        plum        31     20120219     
004        banana      29     20120424     
! J. B7 s2 \; U+ S, Q5 Z0 E 004        peach       29     20120424     
8 f6 s! r2 d9 }0 f/ ^ 004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
004        apple       22     20120601     
0 L7 |  D- K7 }( m 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
8 }) p& G0 E  D& G 005        banana      10     20120322     
( a" n, I$ U7 `# ~4 J- { 005        orange      20     20120411     
' Q0 m0 ]( S( q4 r0 d 005        cherry      30     20120421     
+ C% f  S5 t- q) m+ O- _) j( o. @ 005        apple       22     20120601     
% p' P4 a6 u! o- T 005        kiwi        22     20120601     
# m- e# [+ O' c1 l 005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616