create or replace function f_lob_replace(
in_clob IN CLOB, in_replace_string IN VARCHAR2, in_replace_with IN VARCHAR2)
        /**
        * Replaces all Occurrences of a String with another within a CLOB
        * Original Source see: http://66.221.222.85/reference/dbms_lob.html
        * @AUTHOR: AM, 20101021,
        * @PARAM:  in_clob           IN CLOB,
        *          in_replace_string IN VARCHAR2,
        *          in_replace_with   IN VARCHAR2
        * @RETURN: CLOB
        * @EXCEPTION:
        * @SEE:
        */
        RETURN CLOB
    IS
        lc_this_unit_name   CONSTANT VARCHAR2 (30) := 'REPLACE4';
        --
        lv_buffer                    VARCHAR2 (32767);
        lv_amount                    BINARY_INTEGER := 16000;
        lv_pos                       PLS_INTEGER := 1;
        lv_clob_len                  PLS_INTEGER;
        lv_retval                    CLOB := EMPTY_CLOB;
    BEGIN
        -- initalize the new clob (lv_retval)
        DBMS_LOB.createtemporary (lv_retval, TRUE);
        lv_clob_len := DBMS_LOB.getlength (in_clob);

        WHILE lv_pos <= lv_clob_len
        LOOP
            DBMS_LOB.read (in_clob,
                           lv_amount,
                           lv_pos,
                           lv_buffer);

            IF lv_buffer IS NOT NULL
            THEN
                -- replace the text
                loop
                exit when instr(lv_buffer,in_replace_string) = 0;
                lv_buffer := REPLACE (lv_buffer, in_replace_string, in_replace_with);
                end loop;
                -- write it to the new clob (lv_retval)
                DBMS_LOB.writeappend (lv_retval, LENGTH (lv_buffer), lv_buffer);
            END IF;

            lv_pos := lv_pos + lv_amount;
        END LOOP;

        RETURN lv_retval;
    --
    EXCEPTION
        WHEN OTHERS
        THEN
            RAISE;
    END ;