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

bunny2012

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

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
  j: m: x% o' ~" s 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
: x& A. E2 E* }/ O7 t) d 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
0 D# w9 `+ w9 Y& k  E2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

& ^2 r: V1 H: Z" |+ l$ B/ j表结构：
0 V( a. h8 m9 E9 a: t  O0 W$ m; i fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
( g3 R- o: z9 Z) _ kiwi                                 
5 F6 _6 J; P, @! V.                                    
.                                 
% e5 J6 n) h- X  }6 cgrape  组合里同时有苹果和葡萄的次数


订单部分如下：
customer   fruit       qty     date        
3 g' v3 \* f- k; R7 K3 L 001        apple       17     20120101     
001        kiwi        17     20120101     
' P) u$ Z1 h2 ~% [4 a' t 001        grape       17     20120101     
9 g" c3 Z2 B2 I) D* x 001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
1 U% V. S9 V2 x# @+ y 001        pear        15     20120222     
- w1 q. A( w2 v/ }6 I; h3 p 001        banana      10     20120222     
1 W7 H0 n, s4 p# b/ p" U 001        lemon       22     20120711     
9 d( L" b; V% @( V' l 002        kiwi        22     20120217     
+ `8 G- Q! s; ~0 h$ p 002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
* Q7 G, q0 _" e 002        pear        15     20120322     
2 c4 ~% W1 l0 Z( |  D 002        banana      10     20120322     
002        grape       22     20120424     
' Y. z. G/ H( f. w4 N2 L( z' M 002        orange      29     20120424     
002        banana      29     20120424     
/ p9 r% L, A' p1 j$ Y  O) A! q) w 002        peach       29     20120424     
, _1 m$ E* J0 t) ]/ Q, z- t 003        pear        15     20120122     
( c) Z3 N3 c6 L1 w2 Q 003        banana      10     20120122     
  z1 Z& s, O# u6 T9 M: y& l2 r$ M4 B 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
; L5 R" V1 K7 \2 l2 A- Y0 t  D 003        cherry      24     20120213     
5 X1 \0 R' y  p+ D+ l- G6 g) l 003        apple       32     20120213     
003        grape       44     20120412     
1 ^/ P. Y2 D! Y! h$ n$ M3 W. V 003        pear        15     20120922     
0 ^: e6 X/ b' H 003        banana      10     20120922     
4 n" [6 I! m0 d+ z9 U 004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
3 B  J- J& G7 ^; K4 ?6 x 004        peach       29     20120424     
  A4 V" l2 V, N; ~ 004        pear        15     20120424     
. @/ T" y0 B0 P5 C( S2 F  Q 004        pear        15     20120522     
; r  j, P- b2 g 004        banana      10     20120522     
$ q1 C- E8 l$ r" D 004        apple       22     20120601     
- ^1 l' E9 q% O 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
' ?) A0 a8 u5 ~# \9 @  E 005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
2 |! X7 q! @8 H9 k, E% O% G# R 005        cherry      30     20120421     
; ^" h! p- s' E/ q3 v 005        apple       22     20120601     
; @( G$ E' K" u! U8 l 005        kiwi        22     20120601     
3 t) n; r2 G6 J. D0 U 005        grape       22     20120601     
5 T3 f! `+ w) Z, W2 Z: x3 P' Z 005        kiwi        25     20120616     
005        grape       25     20120616
1 {/ V4 U# O8 Z# h" F: \( a