Перенос данных с одной таблицы в другую

SET SERVEROUTPUT ON
DECLARE    
    TYPE arr_type IS TABLE OF VARCHAR2(30)
    INDEX BY BINARY_INTEGER;
    arr arr_type;
    new_id      INTEGER;
    temp_blob1        BLOB;
    temp_blob2        BLOB;
    to_blob1            BLOB;
    to_blob1            BLOB;
    dest_offset        INTEGER := 1;
    src_offset          INTEGER := 1;
    blob1_length      INTEGER;
    blob2_length      INTEGER;
    amount             INTEGER := DBMS_LOB.LOBMAXSIZE;
    length1              INTEGER;
    
BEGIN
    SELECT id BULK COLLECT INTO arr FROM schema2.TABLE;
    DBMS_OUTPUT.put_line('count (id): ' || arr.COUNT);
    FOR I IN 1..arr.COUNT
    LOOP
        SELECT MAX (id) + 1 INTO new_id FROM schema1.TABLE;
        INSERT INTO schema1.TABLE
                    (id, blob1, blob2)
           SELECT (SELECT MAX (id) + 1
                     FROM scema1.TABLE), EMPTY_BLOB (), EMPTY_BLOB ()
             FROM schema2.TABLE
            WHERE id = arr (I);
        
        SELECT blob1 INTO temp_blob1 FROM shema2.TABLE WHERE id = arr(I);
        SELECT blob2 INTO temp_blob2 FROM shema2.TABLE WHERE id = arr(I);
        
        SELECT blob1 INTO to_blob1  FROM shema1.TABLE WHERE id = new_id FOR UPDATE;
        SELECT blob2 INTO to_blob2  FROM shema1.TABLE WHERE id = new_id FOR UPDATE;
    
        IF (temp_blob1 IS NOT NULL) THEN
            DBMS_LOB.COPY(to_blob1, temp_blob1, amount, dest_offset, src_offset);
        END IF;
        
        IF (temp_blob2 IS NOT NULL) THEN
            DBMS_LOB.COPY(to_blob2, temp_blob2, amount, dest_offset, src_offset);
        END IF;
        
        DBMS_OUTPUT.put_line('copying note with Id: '|| arr(I) || '...complete');   
    END LOOP;
    DBMS_OUTPUT.put_line('finished...');
END;
 
COMMIT;