The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Parse::Dia::SQL::Output::DB2 - Create SQL for DB2.

SYNOPSIS

    use Parse::Dia::SQL;
    my $dia = Parse::Dia::SQL->new(...);
    print $dia->get_sql();

DESCRIPTION

This class creates SQL for the IBM DB2 database.

new

The constructor. Arguments:

Create primary key clause, e.g.

constraint pk_<tablename> primary key (<column1>,..,<columnN>)

For DB2 the PK must be 18 characters or less

Returns undefined if list of primary key is empty (i.e. if there are no primary keys on given table).

For DB2 a constraint name must be 18 characters or less.

Returns shortened tablename.

Subclass for outputting SQL for the DB2 database