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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
% b. U7 F" y0 v5 a* o. d之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

3 N  p$ O- T2 j) |( Z! t表结构：
7 v( q1 _  j" [7 |- n  D8 v fruit  apple  kiwi ... grape      
6 n2 w& t1 Y9 U; H( G apple  组合里只有苹果              
kiwi                                 
/ v6 r3 C! A; d' W% ?% t: v& z.                                    
0 T$ r" x& Z4 W: o.                                 
grape  组合里同时有苹果和葡萄的次数

) K3 L0 ~5 N" f2 y7 s8 t
. Y4 E# b  P8 ?9 m# B) H! s1 d订单部分如下：
9 D2 v4 \- W- i9 b" t$ l6 H customer   fruit       qty     date        
001        apple       17     20120101     
9 u% I6 i) {: }% I& w- r 001        kiwi        17     20120101     
5 z$ X) i3 J- l, S* s2 r- l 001        grape       17     20120101     
001        pear        23     20120129     
3 s# p* _9 \' x: P" H" t 001        banana      10     20120211     
001        kiwi        10     20120211     
  o1 u. F+ Y7 h2 @, b2 ?' X 001        pear        15     20120211     
001        pear        15     20120222     
$ K' Q( l$ g; _6 B& ] 001        banana      10     20120222     
3 C$ p( P* i+ K  U. s7 { 001        lemon       22     20120711     
002        kiwi        22     20120217     
1 D4 U; W5 \/ D) L1 k& [ 002        kiwi        29     20120320     
' e* y$ r* g' l" B 002        corn        29     20120320     
6 M2 Z3 Z% h( Y2 k 002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
0 A% j. [8 }% \2 v% Q8 A 002        grape       22     20120424     
002        orange      29     20120424     
0 J- q4 E% A- R; ^+ ] 002        banana      29     20120424     
3 H, A8 P6 L0 g1 @$ V/ V 002        peach       29     20120424     
003        pear        15     20120122     
+ j! ]5 b7 I9 V9 Y/ j1 B9 P( n 003        banana      10     20120122     
4 ]* {  d: I# D: D  {) E 003        apple       11     20120201     
7 T+ D# h! k% @+ N+ W 003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
; J& J/ s  \8 p2 g 003        cherry      24     20120213     
' G9 l, W2 n. `7 r, s1 [ 003        apple       32     20120213     
003        grape       44     20120412     
2 f' g( u6 P% s1 r; ~" _; O- { 003        pear        15     20120922     
003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
3 h# Z- s2 M- O. k% d1 \$ a 004        peach       29     20120424     
9 z, g- ?. H+ J6 \6 T4 d4 G 004        pear        15     20120424     
004        pear        15     20120522     
( R# n0 B2 l# ]# G# l 004        banana      10     20120522     
4 @" F1 [+ j) w4 N. Q3 L1 y' X 004        apple       22     20120601     
1 X& G+ F, C8 w* ]6 G; g 004        kiwi        22     20120601     
% c- V' ]1 b8 L& n' I 004        grape       22     20120601     
" @( h7 f# T' Y, |! M0 e* |# Y 005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
  i! k  d2 X+ L( X& \ 005        cherry      30     20120421     
0 ~; M  {5 C' z4 z/ K& X& ` 005        apple       22     20120601     
" q9 U( I0 S7 A6 R& o 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616