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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
# u: `3 Q9 y) `, u  {( w之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

) c% p8 l" m5 K5 {; h' S订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
/ d- b- n5 G0 S+ R% h 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
% @: c' y' M6 O! }. C2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
  j1 Z' u. m5 s! L% \" }$ p fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
9 b4 B" x: S; f; J8 l1 ^. a kiwi                                 
. z. F* L& O7 t5 c.                                    
8 P' q! p7 a' k/ e7 k( x.                                 
grape  组合里同时有苹果和葡萄的次数
8 W  n' F* [0 J0 A) H' |
% D/ c* L9 m$ I
: n: @2 g1 g1 }+ R订单部分如下：
7 o9 Z- [% i8 ~& [7 c+ z9 P customer   fruit       qty     date        
001        apple       17     20120101     
001        kiwi        17     20120101     
6 c/ t" F0 R. p% S. U3 l 001        grape       17     20120101     
001        pear        23     20120129     
* S$ u/ F7 g2 |  P; C( i1 O' Y 001        banana      10     20120211     
$ o2 ~+ u  U/ ^8 B9 i 001        kiwi        10     20120211     
- o! |; A. s7 \+ | 001        pear        15     20120211     
001        pear        15     20120222     
- |: z8 N5 W& d" m, X' A: v) z6 H 001        banana      10     20120222     
001        lemon       22     20120711     
! d# j$ _" G3 [1 d1 J 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
: D, G5 L8 g+ _1 Y( g 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
- M# ^9 _, B$ B- \2 Z. i8 T 003        banana      10     20120122     
4 Z  u; E% i: C( r  v$ m9 q 003        apple       11     20120201     
003        plum        11     20120211     
/ R# T9 t' p( |, U8 ^0 o1 l 003        kiwi        11     20120201     
/ g3 X6 l$ g- Y: R: i 003        grape       11     20120201     
: L- }/ s8 B; ` 003        cherry      24     20120213     
003        apple       32     20120213     
5 z$ p3 d3 J' j! F! l1 f; o+ k 003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
1 N' d8 G+ ~4 L/ c 004        pineapple   12     20120206     
3 \9 v  J3 G: X* `; ~ 004        plum        31     20120219     
004        banana      29     20120424     
' g* c7 X8 G) N- O5 J( Y: C 004        peach       29     20120424     
& R% z: G6 [0 A! E2 k1 I" O3 n7 @2 v 004        pear        15     20120424     
# U  _# c' i6 B9 m 004        pear        15     20120522     
1 V% E# y: e6 f. s$ Y% L 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
7 {# j$ b% Y) b 004        grape       22     20120601     
8 k9 e* r) j5 W) I  r( ^  g2 N6 b 005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
9 t4 F1 B6 ~- S2 r( R8 ?+ x 005        banana      10     20120322     
005        orange      20     20120411     
005        cherry      30     20120421     
. q+ d3 \& W( N/ R7 t 005        apple       22     20120601     
005        kiwi        22     20120601     
5 o. N" k3 j0 K* O 005        grape       22     20120601     
005        kiwi        25     20120616     
! C/ f$ t, ^$ `1 n5 H; Y 005        grape       25     20120616