Процедура, которая перемешает дни в датах регистрации

CREATE TABLE mytest AS
SELECT id_rec,  reg_date,  reg_date  new_date
FROM base_table
WHERE rownum <=500;

CREATE SEQUENCE test_seq
  INCREMENT BY 1
  START WITH 1
  MINVALUE 1
  MAXVALUE 9999999999999999999999999999
  NOCYCLE
  ORDER
  NOCACHE
;
CREATE OR REPLACE 
TYPE number_table IS TABLE OF NUMBER
;
CREATE TABLE mylog
(id         NUMBER,
 id_rec     NUMBER,
 op_date    TIMESTAMP,
 old_date   DATE,
 new_date   DATE,
 comments   varchar2(4000)
)
;
CREATE UNIQUE INDEX i1_mylog ON mylog
  (
    id      ASC,
    op_date ASC 
  )
;
CREATE OR REPLACE TRIGGER mylog_TBI
 BEFORE INSERT 
 ON mylog
 REFERENCING OLD AS OLD NEW AS NEW
 FOR EACH ROW
BEGIN
    SELECT test_seq.NEXTVAL, localtimestamp INTO :NEW.id, :NEW.op_date FROM dual;
END;

DECLARE
    TYPE numtab IS TABLE OF NUMBER INDEX BY binary_integer;
    numt    number_table;
    TYPE dattab IS TABLE OF DATE INDEX BY binary_integer;
    datt    dattab;
    high    NUMBER;
    cc1     varchar2(10);
    cc2     varchar2(10);
    sss     varchar2(1000);
    datex   DATE;
    datim   DATE;
    v_rec   NUMBER;
BEGIN
    INSERT INTO mylog(comments)
    VALUES('Начало работы');
    datt.delete;
    numt := number_table();
    --
    SELECT COUNT(reg_date) INTO high        -- определяем количество записей, где reg_date is not null
    FROM mytest;
    --
    FOR i IN 1.. 5*high
    LOOP
        numt.extend;
        numt(numt.count) := round(dbms_random.value(1,high));        --  создаем массив случайных чисел
    END LOOP;
    INSERT INTO mylog(comments)
    VALUES('Массив случайных чисел создан');
    --
    FOR  vv IN  (SELECT reg_date, rownum nn
                 FROM mytest  
                 WHERE reg_date IS NOT NULL    )
    loop
        datt(vv.nn) := vv.reg_date; --  создаем массив для перемешивания
    END loop;                       
    --
    FOR i IN 1.. 5*high 
    loop
        datex := datt(MOD(i, high)+1);
        datt(MOD(i, high)+1) := datt(numt(i));
        datt(numt(i)) := datex;                 --  перемешиваем даты в массиве
    END loop;                       
    INSERT INTO mylog(comments)
    VALUES('Перемешиваеие в массиве завершено');
    --
    FOR vv IN   (SELECT id_rec, reg_date, rowid id, rownum nn
                 FROM mytest  
                 WHERE reg_date IS NOT NULL    )
    LOOP
        v_rec := vv.id_rec;
        cc1 := to_char(last_day(vv.reg_date),'dd');
        cc2 := to_char(datt(vv.nn),'dd');
        datex:= vv.reg_date;
        IF to_number(cc2) > to_number(cc1) THEN 
            cc2 := cc1;
        END IF;
        datim := to_date(cc2||'.'||to_char(datex,'mm.yyyy'),'dd.mm.yyyy');
        UPDATE mytest 
           SET new_date = datim
        WHERE rowid= vv.id;
        INSERT INTO mylog(id_rec, old_date, new_date, comments)
        VALUES(vv.id_rec, datex, datim, 'Произведена штатная замена. Использована дата '||to_char(datt(vv.nn),'dd.mm.yyyy'));
    END loop;
    INSERT INTO mylog(comments)
    VALUES('Работа завершена');
    COMMIT;
exception
    WHEN others THEN
        sss := SQLERRM;
        INSERT INTO mylog(id_rec, old_date, new_date, comments)
        VALUES(v_rec, datex, datim, 'Err: '||sss);
        COMMIT;
        raise;
END;

SELECT id_rec, reg_date, new_date
FROM mytest;
 
SELECT id, op_date, old_date, new_date, comments
FROM mylog
ORDER BY id;

CREATE OR REPLACE PROCEDURE proc1  IS
    TYPE numtab IS TABLE OF NUMBER INDEX BY binary_integer;
    numt    number_table;
    TYPE dattab IS TABLE OF DATE INDEX BY binary_integer;
    datt    dattab;
    high    NUMBER;
    cc1     varchar2(10);
    cc2     varchar2(10);
    sss     varchar2(1000);
    datex   DATE;
    datim   DATE;
    v_rec   NUMBER;
BEGIN
    INSERT INTO mylog(comments)
    VALUES('Начало работы');
    datt.DELETE;
    numt := number_table();
    --
    SELECT COUNT(reg_date) INTO high        -- определяем количество записей, где reg_date is not null
    FROM mytest;
    --
    FOR i IN 1.. 5*high
    LOOP
        numt.extend;
        numt(numt.COUNT) := round(dbms_random.VALUE(1,high));        --  создаем массив случайных чисел
    END LOOP;
    INSERT INTO mylog(comments)
    VALUES('Массив случайных чисел создан');
    --
    FOR  vv IN  (SELECT reg_date, rownum nn
                 FROM mytest  
                 WHERE reg_date IS NOT NULL    )
    loop
        dbms_output.put_line('n='||vv.nn||'  date='||vv.reg_date);        -- пример серверного вывода в спул
        datt(vv.nn) := vv.reg_date; --  создаем массив для перемешивания
    END loop;                       
    --
    FOR i IN 1.. 5*high 
    loop
        datex := datt(MOD(i, high)+1);
        datt(MOD(i, high)+1) := datt(numt(i));
        dbms_output.put_line('i='||i||' n='||numt(i)||'  date_i='||datex||' date_n='||datt(numt(i)) );        -- второй пример серверного вывода в спул
        datt(numt(i)) := datex;                 --  перемешиваем даты в массиве
    END loop;                       
    INSERT INTO mylog(comments)
    VALUES('Перемешиваеие в массиве завершено');
    --
    FOR vv IN   (SELECT id_rec, reg_date, rowid id, rownum nn
                 FROM mytest  
                 WHERE reg_date IS NOT NULL    )
    LOOP
        v_rec := vv.id_rec;
        cc1 := to_char(last_day(vv.reg_date),'dd');
        cc2 := to_char(datt(vv.nn),'dd');
        datex:= vv.reg_date;
        IF to_number(cc2) > to_number(cc1) THEN 
            cc2 := cc1;
        END IF;
        datim := to_date(cc2||'.'||to_char(datex,'mm.yyyy'),'dd.mm.yyyy');
        UPDATE mytest 
           SET new_date = datim
        WHERE rowid= vv.id;
        INSERT INTO mylog(id_rec, old_date, new_date, comments)
        VALUES(vv.id_rec, datex, datim, 'Произведена штатная замена. Использована дата '||to_char(datt(vv.nn),'dd.mm.yyyy'));
    END loop;
    INSERT INTO mylog(comments)
    VALUES('Работа завершена');
    COMMIT;
exception
    WHEN others THEN
        sss := SQLERRM;
        INSERT INTO mylog(id_rec, old_date, new_date, comments)
        VALUES(v_rec, datex, datim, 'Err: '||sss);
        COMMIT;
        raise;
END;