Subj : ANNOUNCE:  DDL::Oracle v1.02
To   : All
From : Richard Sutherland
Date : Sun Feb 18 2001 10:07 am

From: "Richard Sutherland" <rvsutherland@yahoo.com>

===========================================================================
                   Release of DDL::Oracle, Version 1.02
===========================================================================

CHANGES

Implemented patch from Jan Pazdziora regarding null PCTINCREASE on Solaris for 
Oracle 8.0 and 8i.  Thanks Jan!

Fixed bug #132023 regarding PL/SQL not always having a newline at the end.

Eliminated PARALLEL clause on CREATE INDEX for Oracle7, since the dictionary 
does not contain this info.

Put a BUG entry in the pod that a bug has been detected but not fixed regarding 
quoted table names in triggers.

DESCRIPTION

Designed for Oracle DBA's and users, for Oracle versions 7.3, 8.0 and 8i.  
Reverse engineers database objects (tables, indexes, users, profiles, 
tablespaces, roles, constraints, etc.).  Generates DDL to
*resize* tables and indexes to the provided standard or to a user
defined standard.  Can reorganize/defragment tablespaces.

SYNOPSIS

use DBI;
use DDL::Oracle;

my $dbh = DBI->connect(
                        "dbi:Oracle:dbname",
                        "username",
                        "password",
                        {
                         PrintError => 0,
                         RaiseError => 1
                        }
                      );

# Use default resizing and schema options.
# query default DBA_xxx tables (could use USER_xxx for non-DBA types)
DDL::Oracle->configure(
                        dbh    => $dbh,
                      );

# Create a list of one or more objects
my $sth = $dbh->prepare(
       "SELECT
               owner
             , name
        FROM
               dba_tables
        WHERE
               tablespace_name = 'MY_TBLSP'    -- your millage may vary
       "
    );
$sth->execute;
my $list = $sth->fetchall_arrayref;

my $obj = DDL::Oracle->new(
                            type  => "table",
                            list  => $list,                          );

           );

my $ddl = $obj->create;      # or $obj->resize;  or $obj->drop;  etc.

print $ddl;    # Use STDOUT so user can redirect to desired file.

AUTHOR

Richard V. Sutherland
rvsutherland@yahoo.com

COPYRIGHT

Copyright (c) 2000, 2001 Richard V. Sutherland.  All rights reserved. This 
module is free software.  It may be used, redistributed, and/or modified under 
the same terms as Perl itself.  See:

    http://www.perl.com/perl/misc/Artistic.html

===========================================================================
                       AVAILABILITY
===========================================================================

DDL::Oracle is available from the CPAN, and from:

    http://sourceforge.net/projects/ddl-oracle/

--- BBBS/LiI v4.01 Flag-2
 * Origin: Prism bbs (1:2320/38)

.