Hi,
In my program , $sth->execute fails since oracle tables already present. It is
very natural. But the waring message output line 37 is different(just behaves as
print) from same kind of message at line 57. Any suggestions please..
regards,
Jay
regression Testing table( default : reg_test_cols) name :
Not able to create reg_test_cols <?????? ***** this output is not
similar as line 57 *** >
discrepancy report table ( default : disc_table) name :
Not able to create disc_table
at /tmp/selfextract.XXXXXX/install line 57, <> chunk 5.
26 $query=qq { create table reg_test_cols
27 ( tabname varchar2(40),
28 colname varchar2(40),
29 iskey varchar2(1),
30 tocomp varchar2(1),
31 primary key (tabname,colname) )
32 };
33
34 $sth=$dbh->prepare($query)|| warn " $DBI::errstr \n";
35 unless ($sth->execute() )
36 {
37 warn " Not able to create reg_test_cols \n" ;
38 }
39 else
40 {
41 print " Successfully created table reg_test_cols \n";
42 }
43
44
45
46 $query=qq { create table disc_table
47 ( tabname varchar2(40),
48 querycols varchar2(2000),
49 cond varchar2(2000),
50 rerun varchar2(1),
51 seq number(4),
52 primary key (tabname,cond,seq) )
53 };
54 $sth=$dbh->prepare($query) || warn " $DBI::errstr\n ";
55 unless ($sth->execute() )
56 {
57 warn " Not able to create disc_table\n " ;
58 }
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
