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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
" c! |$ H$ m# S之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
* J/ U- K0 {2 J6 z3 u6 R 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
* d$ _3 A. \6 l" J7 N+ `/ ^2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

表结构：
! r( T. j5 l' j9 _. T" ?; a fruit  apple  kiwi ... grape      
4 f* U! p7 B2 V$ P4 \% |# ^. U; C# Z apple  组合里只有苹果              
# x5 K. s3 q3 I; j kiwi                                 
# q) G* ?) r4 c/ u" M" S0 a. S.                                    
.                                 
grape  组合里同时有苹果和葡萄的次数


1 e, r& ]% _, N0 l8 C订单部分如下：
- D" K; u( F; D; Y* d& ]2 m customer   fruit       qty     date        
4 {4 I* b9 c: c0 U 001        apple       17     20120101     
001        kiwi        17     20120101     
; n% G$ B5 H! U6 v* p 001        grape       17     20120101     
5 t9 y1 R# D- q3 I* p  c+ p. M 001        pear        23     20120129     
3 S- d' r' i: @% Z5 k! v 001        banana      10     20120211     
( L3 D5 s" H/ |5 ?& @) w 001        kiwi        10     20120211     
001        pear        15     20120211     
( _3 _  x: D, [2 d- ~/ J 001        pear        15     20120222     
3 k3 k- b: C% ^( [3 b 001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
002        kiwi        29     20120320     
  {: f2 B# q; M2 x4 @' ]) }0 w  l 002        corn        29     20120320     
  a" z3 @) L2 |  u$ P2 t 002        peach       29     20120320     
5 y: ^5 u$ g$ M* L 002        pear        15     20120322     
' H0 X; r1 e1 G& g" N) w5 G 002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
, @8 ]# c; I5 g# H, r 002        banana      29     20120424     
; F- _0 U" L, ] 002        peach       29     20120424     
! o0 b  H5 K& f$ x3 I. Y& N# I1 { 003        pear        15     20120122     
003        banana      10     20120122     
003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
  Y0 d% {: p: B  H 003        apple       32     20120213     
+ d7 k7 K2 ]$ n3 Y1 C 003        grape       44     20120412     
5 z( M2 d9 y( [" Z+ [8 Y" @' o 003        pear        15     20120922     
003        banana      10     20120922     
  i/ V# o/ f8 E. p+ S$ [ 004        pineapple   12     20120206     
, i" \4 @7 t  f 004        plum        31     20120219     
  @- a5 n" l6 T; o- e 004        banana      29     20120424     
# A$ A2 F2 B6 [ 004        peach       29     20120424     
8 q8 _8 y1 k" G$ f' [8 S 004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
4 @# _/ o8 K. Z+ Y; i 004        apple       22     20120601     
7 X; I+ z8 L5 F# G 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
4 k. C/ G& _+ T5 B 005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
4 P9 }# l" \, i$ d0 x1 V, | 005        orange      20     20120411     
005        cherry      30     20120421     
) i( e7 _( w  E; V- L  f$ T 005        apple       22     20120601     
005        kiwi        22     20120601     
5 y) \+ l% T- @5 Z. m 005        grape       22     20120601     
: x" t$ l, Q' `9 e$ B) ~ 005        kiwi        25     20120616     
005        grape       25     20120616