如何用SQL生成SQL批处理文件的方法

　　软件环境：
　　1、Windows NT4.0+ORACLE 8.0.4
　　2、ORACLE安装路径为：C:\ORANT
　　
　　问题提出：
　　1、用户需要对数据库用户下的每一张表都执行一个相同的SQL操作，这时，一遍、一遍的键入SQL语句是很麻烦的
　　
　　实现方法：
　　SQL> set heading off　　--禁止输出列标题
　　SQL> set feedback off　　--禁止显示最后一行的计数反馈信息
　　
　　列出当前用户下所有同义词的定义，可用来测试同义词的真实存在性
　　select 'desc '||tname from tab where tabtype='SYNONYM'
　　
　　查询当前用户下所有表的记录数
　　select 'select '''||tname||''',count(*) from '||tname||'' from tab where tabtype='TABLE'
　　
　　把所有符合条件的表的select权限授予为public
　　select 'grant select on '||table_name||' to public;' from user_tables where 《条件》;
　　
　　删除用户下各种对象
　　select 'drop '||tabtype||' '||tname from tab;
　　
　　删除符合条件用户
　　select 'drop user '||username||' cascade;' from all_users where user_id>25;
　　
　　快速编译所有视图
　　----当在把数据库倒入到新的服务器上后(数据库重建)，需要将视图重新编译一遍，
　　----因为该表空间视图到其它表空间的表的连接会出现问题，可以利用PL/SQL的语言特性，快速编译。
　　
　　SQL> SPOOL ON.SQL
　　SQL> SELECT'ALTER VIEW '||TNAME||' COMPILE;' FROM TAB;
　　SQL> SPOOL OFF
　　然后执行ON.SQL即可。
　　SQL> @ON.SQL
　　当然，授权和创建同义词也可以快速进行，如：
　　SQL> SELECT 'GRANT SELECT ON '||TNAME||' TO 用户名;' FROM TAB;
　　SQL> SELECT 'CREATE SYNONYM '||TNAME||' FOR 用户名.'||TNAME||'' FROM TAB;