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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
+ V+ x" a1 E/ x之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
! n% d) S8 S7 B9 c
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
$ |5 ^# D  l& i/ `, G- V 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
+ ?$ Z* x3 ?6 q' A, H5 b* _ 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
5 y% @1 v  k/ d& n2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
, ^( w$ d% H. F; R
表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
kiwi                                 
. A6 |; L8 g. J.                                    
.                                 
6 l* {, Z% m% I7 t4 M2 ~grape  组合里同时有苹果和葡萄的次数
0 o% Q( K6 }2 i) I
6 `4 N. N- Z2 s+ y5 p4 F3 M  I* c
- `$ g, _0 F+ f* y' C# D' @/ x订单部分如下：
customer   fruit       qty     date        
0 U# T3 z6 _; A3 ]4 o+ x 001        apple       17     20120101     
001        kiwi        17     20120101     
% }9 v- h" k7 x 001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
1 w9 K: t5 b7 _2 d2 Q% Y0 J 001        kiwi        10     20120211     
001        pear        15     20120211     
* H# i5 g# c; L( a( b) S 001        pear        15     20120222     
001        banana      10     20120222     
1 ^) R9 i1 i6 a 001        lemon       22     20120711     
: g/ M3 p( d# @' M, S. p# R 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
5 P8 T# ]- l5 t! [/ y1 f 002        peach       29     20120320     
002        pear        15     20120322     
: K, w0 f7 d; Z( e 002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
' }8 H" Y3 `' O8 h. t3 g% F 002        banana      29     20120424     
002        peach       29     20120424     
) e0 ^) W* j, ?$ X8 u9 _ 003        pear        15     20120122     
  Y' }: `' o2 L) F 003        banana      10     20120122     
003        apple       11     20120201     
0 @1 m' q1 x4 N! Z% t 003        plum        11     20120211     
003        kiwi        11     20120201     
8 N. A7 f% ~- t, ?( b) k5 R5 e0 h 003        grape       11     20120201     
003        cherry      24     20120213     
/ }8 g0 [9 z3 {/ _0 a+ ^( O4 Y 003        apple       32     20120213     
  h: B. L7 y0 c$ t: Y4 D 003        grape       44     20120412     
1 e! y+ X% v2 Q, X% L 003        pear        15     20120922     
, }# \: \! s8 H* [* c0 z/ t8 b1 u3 D 003        banana      10     20120922     
004        pineapple   12     20120206     
  ?3 A, w4 q# i% r6 `! {( W 004        plum        31     20120219     
/ `2 |; J6 H% i/ Z! a! D 004        banana      29     20120424     
3 E/ h5 P" }9 @; E: e. p 004        peach       29     20120424     
7 ]3 M. M" C( F  K: N0 b 004        pear        15     20120424     
004        pear        15     20120522     
* t4 V2 h5 C& Y5 P* k7 l 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
5 R9 G" u  o' b# h 005        apple       32     20120203     
, x& ?- @; i9 n# t5 } 005        pear        15     20120322     
) T+ k2 Q, T, X8 T+ x3 p7 E" \ 005        banana      10     20120322     
  r4 i+ T# v, {- R* X, D3 Y 005        orange      20     20120411     
) l2 r$ \7 J9 P% ^7 T 005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
% f+ f" ]1 A' o  }# y$ ` 005        grape       22     20120601     
005        kiwi        25     20120616     
0 _) ?& B) l8 h7 b5 |& F7 h 005        grape       25     20120616
/ W8 O* L& ^. _2 E. d% d; y! d