create_tables.pl

{
/* __________________________________________________________________________
                                         Copyright (C) DataAspects, Inc. 1998
create_db.pl
Objective: To create tables in a SQL based database.
Compile:  trimgen create_db.pl -a
Run:      trimrun create_db
...Pat McGreevy, 23 Dec 98
_____________________________________________________________________________ */
printf("Connecting to Oracle");
connect(0,"net:user/pass@1958:xxx.xxx.xx.xx!/usr2/trim/bin/vtxhost.net,TRIM_HOME=/usr2/trim@@1959:xxx.x.x.xx(user/pass)!/usr2/trim/bin/vtxhost.ora,ORACLE_HOME=/usr4/oracle,ORACLE_SID=A");
printf("Connected to Oracle");

/*exec_sql("drop table sample");*/
exec_sql( "create table sample ("
"structure_no char(6) null,"
"sample_no char(7) not null,"
"sample_date date not null,"
"sample_name varchar2(80) null,"
"salt_code varchar2(50) null,"
"qty_recd number(9) null,"
"unit char(1) null,"
"submitter_code char(4) not null,"
);
printf("Table Sample Created");

/*exec_sql("drop table salts");*/
exec_sql( "create table salts ("
"salt_name varchar2(50) not null,"
"salt_mf varchar2(30) not null,"
"salt_mw number(4,2) null)"
);
printf("Salt Table Created");

/*exec_sql("drop table contacts");*/
exec_sql( "create table contacts ("
"contact_key varchar2(80) not null,"
"fname_mi varchar2(20) null,"
"lname varchar2(20) null,"
"company varchar2(30) null,"
"address1 varchar2(30) null,"
"address2 varchar2(30) null,"
"address3 varchar2(30) null,"
"city varchar2(20) null,"
"state varchar2(2) null,"
"zip varchar2(10) null,"
"country varchar2(20) null,"
"phone varchar2(13) null,"
"fax varchar2(13) null,"
"email varchar2(40) null)"
);
printf("Table Contacts Created");
}