set serveroutput on size 999999999999
spool d:/生产数据字典表清单.txt
set pagesize 999999999999
set linesize 999999999999
DECLARE
begin
dbms_output.enable(99999999999999);
DBMS_OUTPUT.put_line('<html>');
DBMS_OUTPUT.put_line('<body>');
DBMS_OUTPUT.put_line('<table border=1>');
DBMS_OUTPUT.put_line('<tr>');
DBMS_OUTPUT.put_line('<th>序号</th>');
DBMS_OUTPUT.put_line('<th>表名</th>');
DBMS_OUTPUT.put_line('<th>表注释</th>');
DBMS_OUTPUT.put_line('<th>索引名</th>');
DBMS_OUTPUT.put_line('</tr>');
FOR TABS IN (SELECT ROWNUM AS RN,TAB.* FROM (
SELECT T.TABLE_NAME,
T.COMMENTS,
(SELECT SUMC(I.INDEX_NAME)
FROM SP_DICT_INDEX I
WHERE I.TABLE_NAME = T.TABLE_NAME) AS INDEX_NAME
FROM SP_DICT_TABLES T
ORDER BY T.TABLE_NAME) TAB) LOOP
DBMS_OUTPUT.put_line('<tr>');
DBMS_OUTPUT.put_line('<td>'|| TABS.RN || '</td>');
DBMS_OUTPUT.put_line('<td>'|| TABS.TABLE_NAME || '</td>');
DBMS_OUTPUT.put_line('<td>'|| TABS.COMMENTS ||'</td>');
DBMS_OUTPUT.put_line('<td>'||TABS.INDEX_NAME||'</td>');
DBMS_OUTPUT.put_line('</tr>');
END LOOP;
DBMS_OUTPUT.put_line('</table>');
DBMS_OUTPUT.put_line('</body>');
DBMS_OUTPUT.put_line('</html>');
end;
/
spool off;
