v_size := DBMS_LOB.GETLENGTH(l_xml_clob);

  IF v_size < 10480000 THEN
    send_email
        ( v_From,
          p_recipient,
          v_Subject,
          v_body,
          l_xml_clob,
          v_filename);
  ELSE
    v_body := 'The ' || v_report || ' report produced an attachment > 10MB.' ||
       'It has been saved as a file to [location]' || v_filename;

    write_file(v_filename, l_xml_clob);

    send_email
        ( v_From,
          p_recipient,
          v_Subject,
          v_body);
  END IF;

PROCEDURE write_file(p_filename   IN VARCHAR2,
                     p_clob       IN CLOB,
                     p_directory  IN VARCHAR2) 
IS
    
  c_amount CONSTANT BINARY_INTEGER := 32767;
  l_buffer   VARCHAR2(32767);
  l_chr10    PLS_INTEGER;
  l_cloblen  PLS_INTEGER;
  l_fhandler utl_file.file_type;
  l_pos      PLS_INTEGER := 1;
    
BEGIN
  
  l_cloblen  := dbms_lob.getlength(p_clob);
  l_fhandler := utl_file.fopen(p_directory, p_filename, 'W', c_amount);
    
  WHILE l_pos < l_cloblen LOOP
    l_buffer := dbms_lob.substr(p_clob, c_amount, l_pos);
    EXIT WHEN l_buffer IS NULL;
    l_chr10 := INSTR(l_buffer, chr(10), -1);

    IF l_chr10 != 0 THEN
      l_buffer := SUBSTR(l_buffer, 1, l_chr10 - 1);
    END IF;

    utl_file.put_line(l_fhandler, l_buffer, TRUE);
    l_pos := l_pos + LEAST(LENGTH(l_buffer) + 1, c_amount);
  END LOOP;
    
  utl_file.fclose(l_fhandler);
    
EXCEPTION
  WHEN OTHERS THEN
    IF utl_file.is_open(l_fhandler) THEN
      utl_file.fclose(l_fhandler);
    END IF;
END write_file;