请教：如何实现？

flytiger

SQL> create table table1
  2  (pay varchar2(50),
  3  ttime date);

Table created

insert....

SQL> select * From table1;

PAY                                                TTIME
-------------------------------------------------- -----------
a                                                  2001-12-12 15:49:10
a                                                  2001-12-12 15:49:11
a                                                  2001-12-12 15:49:11
a                                                  2001-12-12 15:49:12
a                                                  2001-12-12 15:49:12
b                                                  2001-12-12 15:49:24
c                                                  2001-12-12 15:49:27
d                                                  2001-12-12 15:49:30
d                                                  2001-12-12 15:49:32

create or replace procedure test12 is
type times is table of number index by binary_integer;
type pays is table of varchar2(50) index by binary_integer;

t_times times;
t_pay pays;

cursor cursor1 is
  select pay from table1
  order by pay;

v_oldpay table1.pay%type;
v_newpay table1.pay%type;
v_times number;
i integer;

begin
  v_times := 0;
  v_oldpay := 'test';
  i := 1;
  Open cursor1;
  loop
    fetch cursor1 into v_newpay;
    exit when cursor1%notfound;
    if v_oldpay = 'test' then
      v_oldpay := v_newpay;
      v_times := v_times + 1;
    elsif v_newpay = v_oldpay then
      v_times := v_times + 1;
    else
      t_times(i) := v_times;
      t_pay(i) := v_oldpay;
      dbms_output.put_line('pay:'||t_pay(i)||'---times:'||t_times(i));
      i := i + 1;
      v_times := 1;
      v_oldpay := v_newpay;
    end if;
  end loop;
  t_times(i) := v_times;
  t_pay(i) := v_oldpay;
  dbms_output.put_line('pay:'||t_pay(i)||'---times:'||t_times(i));

  close cursor1;

end test12;
/

SQL> set serveroutput on;
SQL> begin
  2  dbms_output.enable;
  3  end;
  4  /

PL/SQL 过程已成功完成。

SQL> exec test12;
pay:a---times:5
pay:b---times:1
pay:c---times:1
pay:d---times:2

PL/SQL 过程已成功完成。

SQL>

easyfree

用PLSQL+Temporary table可以实现, 简单的循环计数而已, 有什么特殊要求么?

因为是海量数据, 需要考虑性能的地方是:
1. 首先对该表排序, 需要占用大量的sort_area和临时段, 如果这样的操作是经常的, 可以考虑在time字段上建立索引
2. 如果结果是需要保存的,就不使用temporary table, 减少内存争用