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

bunny2012

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

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
4 ~& B! J+ O2 s( ~4 | 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
3 Q; u6 b- {: W/ ^2 f5 T; N
表结构：
; u' Q, ]( g4 ~0 y1 M6 e fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
. x* ^6 O% D0 j( B7 a, Q, \. ?' ~# P7 L kiwi                                 
.                                    
.                                 
  t. I# {; v4 g. @! B0 Igrape  组合里同时有苹果和葡萄的次数
2 z) U9 P% d# Z7 v# C
% Q0 Y- c9 G& {' q5 p: v! R& c5 x" N
/ p$ w3 ^8 k, x; y订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
! s& J$ r1 O1 o- y, K& _ 001        kiwi        10     20120211     
8 D/ z9 c+ p. z4 J 001        pear        15     20120211     
6 U& u- n9 c6 l; d6 U" N8 v 001        pear        15     20120222     
! U6 ^4 O8 Y+ _( v2 g- m 001        banana      10     20120222     
( I6 b& G8 s& I: E$ N- U6 l% m 001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
: H* x9 [% g+ |8 M7 D 002        corn        29     20120320     
002        peach       29     20120320     
' A, v5 {/ e: X; M! S: A 002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
2 y- P( E; m% M 002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
) F2 j2 s) R' e 003        pear        15     20120122     
8 u# x' {: b- z 003        banana      10     20120122     
003        apple       11     20120201     
4 s7 B, B, x+ K- b 003        plum        11     20120211     
003        kiwi        11     20120201     
0 Q* U3 L$ ?* @4 e( { 003        grape       11     20120201     
3 j+ A& n4 B, s4 a( @- X5 Y 003        cherry      24     20120213     
003        apple       32     20120213     
& V8 R: p% R2 ?5 J; G3 O4 ?8 L 003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
( Y  F% M0 v* U$ N# f; f( o9 ? 004        pineapple   12     20120206     
004        plum        31     20120219     
0 B8 r; c6 s* h) o: z! Q; }: H 004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
004        apple       22     20120601     
2 P) K) s! E" p5 P 004        kiwi        22     20120601     
, m6 ?( a1 N- F! N4 \; \3 f 004        grape       22     20120601     
5 |2 B- S- t' s9 b! O 005        cherry      24     20120203     
1 A. w  u  g/ x( Q# N& S 005        apple       32     20120203     
' l  G% n' T0 |2 w- }- y. G 005        pear        15     20120322     
( X$ h3 {1 n6 p 005        banana      10     20120322     
: w' {9 s1 Z0 M) z# p  a3 s$ N0 R 005        orange      20     20120411     
- V1 ?5 C$ a& V2 a/ ~ 005        cherry      30     20120421     
5 A* P$ x$ K$ q/ @ 005        apple       22     20120601     
. d& {5 ~0 I6 V" s7 q' E/ b$ @+ A/ D 005        kiwi        22     20120601     
005        grape       22     20120601     
' ~0 y$ W% Y7 L" V% S# { 005        kiwi        25     20120616     
005        grape       25     20120616