请教写一个存储过程,把用户下所有的表结构打印出来_Oracle管理

请问写一个存储过程,把用户下所有的表结构打印出来
写一个存储过程,把当前用户下所有表的表结构打印出来.
------解决思路----------------------
执行这个sql语句，把查询结果导出、打印就可以了

select TABLE_NAME,COLUMN_NAME
,DATA_TYPE
------解决思路----------------------
decode(DATA_TYPE,'VARCHAR2','('
------解决思路----------------------
DATA_LENGTH
------解决思路----------------------
')','NUMBER','('
------解决思路----------------------
DATA_LENGTH
------解决思路----------------------
decode(DATA_SCALE,0,'',null,'',','
------解决思路----------------------
DATA_SCALE)
------解决思路----------------------
')','')
from dba_tab_columns where owner='你的数据库用户'
ORDER BY TABLE_NAME,COLUMN_NAME;