set SERVEROUT on DECLARE tab_sql varchar2(4000); tab_lob clob; TYPE ddl_type IS REF CURSOR; ddl_cur ddl_type; type tab_ddl_type is record( ddl_con clob ); tab_ddl tab_ddl_type; cursor tab_cur is select DISTINCT object_type,object_name,OWNER from dba_procedures where owner='FWPROD' ; file utl_file.file_type; clob_length number(20); clob_part VARCHAR2(1024); offset NUMBER := 1; BEGIN file := utl_file.fopen('DATA_PUMP_DIR', 'mes_procedure_ddl.log', 'ab'); for i in tab_cur loop tab_sql := 'select dbms_metadata.get_ddl('''||i.object_type||''','''||i.object_name||''','||''''||i.owner||''') as ddl_con from dual'; DBMS_OUTPUT.PUT_LINE(tab_sql); open ddl_cur for tab_sql; FETCH ddl_cur INTO tab_ddl; --DBMS_OUTPUT.PUT_LINE(tab_ddl.ddl_con); clob_length := LENGTH(tab_ddl.ddl_con); offset := 1; LOOP EXIT WHEN offset >= clob_length; clob_part := DBMS_LOB.SUBSTR (tab_ddl.ddl_con, 1024, offset); UTL_FILE.PUT_RAW(file, utl_raw.cast_to_raw(clob_part)); UTL_FILE.FFLUSH(file); offset := offset + 1024; END LOOP; close ddl_cur; END LOOP; utl_file.fclose(file); END; /
oracle plsql utl_file
原创wx584f813adcf41 ©著作权
文章标签 plsql utl_file curso 文章分类 Oracle 数据库
上一篇:vue 起步
-
UTL_FILE 包的使用详解
UTL_FILE包可以用来读写操作系统上的文本文件,UTL_FILE提供了在客户端(FORM等等)和服务器端的文件访问功能。创建测试目录:
数据库 操作系统 c/c++ sql 换行符 -
Oracle数据库升级对UTL_FILE的影响
st.txt', 'w');提示如下错误,SQL 错误 [29280] ...
数据库 oracle servlet sql java -
ORACLE UTL_FILE文件包的应用,文件I/O操作
利用ORACLE UTL_FILE包可以使文本文件转入进数据表,反之亦然:1: 建立文件目录首先在数据库服务
file oracle newline exception null