-- This script will create a SQL script to create any views in the current schema.
-- Mark Reineck 12-19-1997 set feedback off

set head off
set echo off
set recsep off
set pages 50000
set long 5000
set lines 80
column txt as a80

-- Write the script to a file, otherwise it is useless

spool mkviews.sql

select 'create or replace view ' || view_name || ' as ', text txt, ';' from user_views;

spool off;

-- Reset some stuff

set feedback on
set head on
set echo on