DECLARE
  l_VPUSubList   SYS.ODCINUMBERLIST;
  l_TotalVPUList SYS.ODCINUMBERLIST;
  indSub   INTEGER;   indTotal INTEGER;
  start_time TIMESTAMP WITH TIME ZONE;
  end_time TIMESTAMP WITH TIME ZONE;
  exec_length INTERVAL DAY TO SECOND;
BEGIN
  select VPU_NUM 
  BULK COLLECT INTO l_TotalVPUList
  from SCHEMA_NAME.TABLE_NAME
  
  indSub := 1; indTotal := 1;
  WHILE indTotal <= l_TotalVPUList.LAST
  LOOP
    --dbms_output.put_line (ind);
    l_VPUSubList(indSub) := l_TotalVPUList(indTotal);
    indSub := indSub + 1; indTotal := indTotal + 1;
    IF MOD (indTotal, 100) = 0 -- Каждые 100 значений
    THEN
      start_time := SYSTIMESTAMP;
      --Здесь какие-то действия с этими 100 значений
      end_time := SYSTIMESTAMP;
      exec_length := end_time - start_time;
      dbms_output.put_line('Длина в формате дни часы:минуты:секунды: '||exec_length);
    END IF;
  END LOOP;  
END;

l_VPUSubList.extend(l_TotalVPUList.LAST);

l_VPUSubList.extend(100);

DECLARE
  cursor c_data is -- тут запрос к данным
    select VPU_NUM 
    from SCHEMA_NAME.TABLE_NAME;

  l_VPUList SYS.ODCINUMBERLIST := SYS.ODCINUMBERLIST();

  c_batch_size constant integer := 100; -- размер пачки
  start_time TIMESTAMP WITH TIME ZONE;
  total_start_time TIMESTAMP WITH TIME ZONE;
  exec_length INTERVAL DAY TO SECOND;
  total_exec_length INTERVAL DAY TO SECOND;

BEGIN
  l_VPUList.extend(c_batch_size);
  total_start_time := SYSTIMESTAMP;
  open c_data;
  loop
    fetch c_data bulk collect into l_VPUList limit c_batch_size;
    start_time := SYSTIMESTAMP;
    SCHEMA_NAME.PACKAGE_NAME.PROC_NAME(param_in => l_VPUList);
    exec_length := SYSTIMESTAMP - start_time;
    dbms_output.put_line('Обработано '||l_VPUList.count||' элементов; Продолжительность обработки - часы:минуты:секунды: '||exec_length);
  exit when l_VPUList.count < c_batch_size;
  end loop;
  total_exec_length := SYSTIMESTAMP - total_start_time;
  dbms_output.put_line('Общая продолжительность обработки - часы:минуты:секунды: '||total_exec_length);  
END;

IF l_VPUList IS NOT NULL THEN
      SOME_PROC(iDocIDs => l_VPUList);

IF l_VPUList.COUNT > 0 THEN
      SOME_PROC(iDocIDs => l_VPUList);

IF c_data%ROWCOUNT > 0 THEN

DECLARE
  cursor c_data is
    select VPU_NUM 
    from SCHEMA_NAME.TABLE_NAME;

  l_VPUList SYS.ODCINUMBERLIST := SYS.ODCINUMBERLIST();

  c_batch_size constant integer := 100; -- размер пачки
  start_time TIMESTAMP WITH TIME ZONE;
  total_start_time TIMESTAMP WITH TIME ZONE;
  exec_length INTERVAL DAY TO SECOND;
  total_exec_length INTERVAL DAY TO SECOND;

BEGIN
  l_VPUList.extend(c_batch_size);
  total_start_time := SYSTIMESTAMP;
  open c_data;
  loop
    fetch c_data bulk collect into l_VPUList limit c_batch_size;
    IF c_data%FOUND THEN
      start_time := SYSTIMESTAMP;
      SCHEMA_NAME.PACKAGE_NAME.PROC_NAME(param_in => l_VPUList);
      COMMIT;
      exec_length := SYSTIMESTAMP - start_time;
      dbms_output.put_line('Обработано '||l_VPUList.count||' элементов; Продолжительность обработки - часы:минуты:секунды: '||exec_length);
    END IF;
  exit when l_VPUList.count < c_batch_size;
  end loop;
  total_exec_length := SYSTIMESTAMP - total_start_time;
  close c_data;
  dbms_output.put_line('Общая продолжительность обработки - часы:минуты:секунды: '||total_exec_length);  
END;