8i | 9i | 10g | 11g | 12c | 13c | 18c | 19c | 21c | 23c | Misc | PL/SQL | SQL | RAC | WebLogic | Linux
Script: clob_to_file.sql
( Download Script )
CREATE OR REPLACE PROCEDURE clob_to_file (p_clob IN CLOB, p_dir IN VARCHAR2, p_filename IN VARCHAR2) -- ----------------------------------------------------------------------------------- -- File Name : https://oracle-base.com/dba/miscellaneous/clob_to_file.sql -- Author : Tim Hall -- Description : Writes the contents of a CLOB to a file. -- Last Modified: 26/02/2019 - Taken from 2005 article. -- 22/05/2020 - BLOB parameter switched from IN OUT NOCOPY to IN. -- ----------------------------------------------------------------------------------- AS l_file UTL_FILE.FILE_TYPE; l_buffer VARCHAR2(32767); l_amount BINARY_INTEGER := 32767; l_pos INTEGER := 1; BEGIN l_file := UTL_FILE.fopen(p_dir, p_filename, 'w', 32767); LOOP DBMS_LOB.read (p_clob, l_amount, l_pos, l_buffer); UTL_FILE.put(l_file, l_buffer); l_pos := l_pos + l_amount; END LOOP; EXCEPTION WHEN NO_DATA_FOUND THEN -- Expected end. IF UTL_FILE.is_open(l_file) THEN UTL_FILE.fclose(l_file); END IF; WHEN OTHERS THEN IF UTL_FILE.is_open(l_file) THEN UTL_FILE.fclose(l_file); END IF; RAISE; END clob_to_file; /