Как записать выборку во временный массив Oracle?

Question

[KTG]

В общем суть такая.
У меня есть таблица с номером заказа, номером клиента, его статусом и суммой.
Я отбираю курсором все заказы по которым прошел отказ.

Затем через цикл их перебираю и делаю доп. условия через if.
В зависимости от суммы я проставлю в таблице клиента пометку. Если меньше 1000 - "ок", от 1000 до 5000 - "внимание", если свыше 5000 - "ахтунг".
Плюс делаю тяжёлый расчет аналитики по прочим параметрам.

Возникла необходимость, в случае если попался заказ с суммой выше "5000", то прочие заказы этого клиента не отрабатывать, что бы снизить время выполнения запроса.

Для этого хочу некий временный "массив" или "таблицу", куда буду записывать все номера заказов которые не подлежат дальнейшей обработке.

Но собственно не знаю как этот "массив" реализовать.

В коде это так:

DECLARE 
    type arr_table is TABLE of NUMBER;
    arrItem arr_table;        
BEGIN 
     FOR ord IN (SELECT
                        OrderNum,
                        OrderSum,
                        OrderClient
                        FROM Orders
                            WHERE status = 'Otkaz') LOOP     
                            
                            
-- этот IF хочу обернуть во что-то вроде -- IF (ord.OrderNum Not in arrItem) THEN
-- что бы не обрабатывать остальные договора клиента                            
            IF (ord.OrderSum > 5000)
            THEN
            
-- этот вариант не подходит, т.к. перезатирается массив            
                SELECT OrderNum BULK COLLECT INTO arrItem FROM Orders WHERE OrderClient = ord.OrderClient   
-- этот вариант не работает т.к. не понимает что такое arrItem                
--                INSERT /*+append*/ INTO arrItem SELECT ncdaagrid FROM cda WHERE icdaclient = crAgr.icd1client; 

            ELSIF (ord.OrderSum > 1000) AND (ord.OrderSum < 5000) 
            THEN
                --- тут функции разного рода подсчетов и аналитики.
            END IF;

    END LOOP;
 
END;

Answer 1

[KTG]

Добавил еще один массив для сбора
Инициализировал оба массива что бы не вызвало ошибку если пустые.
arrAllItem arr_table := arr_table()
После BULK COLLECT выполняю
arrAllItem := arrAllItem MULTISET UNION arrItem;

Правда кажется костыль, т.к. на большой объеме данных будет тяжеловато объединение.

Answer 2

[Константин]

Создайте ассоциативный массив и записывайте в него айди клиентов-ахтунгов в качестве индексов. В цикле перед обработкой очередного заказа проверяйте, существует ли в массиве ахтунгов элемент с индексом, равным айди клиента.

Comments

[KTG]

DECLARE
    TYPE tbl IS TABLE OF NUMBER
        INDEX BY VARCHAR2(40);
    myTbl tbl;
BEGIN
    myTbl('7685') := 7685;
    IF myTbl.exists(7685) THEN
        DBMS_OUTPUT.PUT_LINE('ok');
    END IF;
END;

Но теперь не совсем представляю как проставлять индексы при BULK COLLECTION INTO

DECLARE
    TYPE tbl IS TABLE OF NUMBER
        INDEX BY VARCHAR2(40);
    myTbl tbl;
BEGIN
    SELECT 7685 BULK COLLECT INTO myTbl FROM dual;
    
    IF myTbl.exists(7685) THEN
        DBMS_OUTPUT.PUT_LINE('ok');
    END IF;
END;

[Константин]

KTG, Может, я неправильно задачу понял. Я себе так ситуацию и простое решение представлял:

--drop table orders;
--drop table clients;
create table clients(ClientNum number primary key,
                     Status    varchar2(40));
create table orders(OrderNum    number primary key,
                    OrderSum    number not null,
                    OrderClient number references clients(ClientNum),
                    Status      varchar2(40));

insert into clients
  select level,
         'ok'
    from dual
  connect by level < 1001;

insert into orders
  select level OrderNum,
         trunc(dbms_random.value * 10000) orderSum,
         trunc(dbms_random.value*1000) + 1 OrderClient,
         case when dbms_random.value < 0.1 then 'otkaz' else 'ok' end Status
    from dual
  connect by level < 100001;

commit;

/

declare
  achtungs dbms_sql.Number_Table;
  procedure setClientStatus(clientNum in number, status in varchar2) is
  begin
    dbms_output.put_line(clientNum||' is '||status);
  end;
begin
  for r in (select * from orders where status = 'otkaz' and rownum < 1000) loop
    if not achtungs.exists(r.orderclient) then
      case
        when r.ordersum < 1000 then
          setClientStatus(r.orderclient, 'ok');
        when r.ordersum >= 1000 and r.ordersum < 5000 then
          setClientStatus(r.orderclient, 'not really ok');
        when r.ordersum >= 5000 then
          achtungs(r.orderclient) := 1;
          setClientStatus(r.orderclient, 'achtung');
      end case;
    else
      dbms_output.put_line('order of achtung '||r.orderclient||' detected');
    end if;
  end loop;
end;