DECLARE
    v_limit       NUMBER := 10000;

    CURSOR c_update IS
        SELECT /*+parallel(8)*/
         tel.rowid AS rid,
         prs.CIFID as CIFID
        FROM   COLLECT_FE.TELEPHONE tel
			JOIN   ext_eshchekaturova.PERSON_tel prs 
			ON tel.PERSONID=prs.PERSONID
        ORDER  BY tel.rowid;
		
    TYPE t_row_id IS TABLE OF ROWID;
    TYPE t_numbers IS TABLE OF INTEGER INDEX BY BINARY_INTEGER;
	
    v_CIFID  t_numbers;
    v_row_id t_row_id;
BEGIN
    OPEN c_update;
    LOOP
        FETCH c_update BULK COLLECT
            INTO v_row_id,
                 v_CIFID LIMIT v_limit;
        FORALL i IN v_row_id.first .. v_row_id.last
            UPDATE COLLECT_FE.TELEPHONE trg
            SET    trg.CIFID     = v_CIFID(i),                   
				WHERE  ROWID = v_row_id(i);
        COMMIT;
    END LOOP;
    CLOSE c_update;
EXCEPTION
    WHEN OTHERS THEN
        IF c_update%ISOPEN
        THEN
            CLOSE c_update;
        END IF;
        raise_application_error(-20001, SQLERRM);
END;