甲骨文plsql实现的

设置SERVEROUT
声明
tab_sql varchar2 (4000),
tab_lob clob。
类型ddl_type REF游标;
ddl_cur ddl_type;
类型tab_ddl_type记录(
ddl_con clob
);
tab_ddl tab_ddl_type;
光标tab_cur是选择不同的object_type, object_name,所有者从dba_procedures所有者=癋WPROD”;
文件utl_file.file_type;
clob_length数量(20);
clob_part varchar2 (1024)。
抵消号:=1;

开始文件:=实现的。fopen (“DATA_PUMP_DIR”、“mes_procedure_ddl。日志”、“ab”);
我在tab_cur循环
tab_sql:='选择dbms_metadata.get_ddl (“| | i.object_type | |“,”“| | i.object_name | |””、“| |”“| | i.owner | |””)作为ddl_con从双重的;
DBMS_OUTPUT.PUT_LINE (tab_sql);
开放ddl_cur tab_sql;
获取ddl_cur tab_ddl;
——DBMS_OUTPUT.PUT_LINE (tab_ddl.ddl_con);
clob_length:=长度(tab_ddl.ddl_con);
抵消:=1;

循环退出时抵消>=clob_length;
clob_part:=DBMS_LOB。SUBSTR (tab_ddl。1024年ddl_con,抵消);
实现的。PUT_RAW(文件,utl_raw.cast_to_raw (clob_part));
UTL_FILE.FFLUSH(文件),
抵消:=抵消+ 1024;
结束循环;
关闭ddl_cur;
结束循环;
utl_file.fclose(文件),
,
/

甲骨文plsql实现的