Pardon the duplication, but the contents of perlboy26sf's scratch pad are:

[Wed Aug 14 01:38:28 2002] device2obj.pl: Field 3 has an Oracle type (
+108) which is not explicitly supported at /opt/perl/modules/Oracle/8.
+1.6/lib/5.6.0/DBD/Oracle.pm line 293.
[Wed Aug 14 01:38:28 2002] device2obj.pl: Field 4 has an Oracle type (
+108) which is not explicitly supported at /opt/perl/modules/Oracle/8.
+1.6/lib/5.6.0/DBD/Oracle.pm line 293.
[Wed Aug 14 01:38:28 2002] device2obj.pl: Field 5 has an Oracle type (
+108) which is not explicitly supported at /opt/perl/modules/Oracle/8.
+1.6/lib/5.6.0/DBD/Oracle.pm line 293.

# sql table definition
 ----------------------------------------- -------- ------------------
+----------
 INTERFACE_ID                                       NUMBER
 DEVICE_ID                                          NUMBER
 INTERFACE                                          VARCHAR2(32)
 ARP                                                ARPS_NT
 CDP                                                CDPS_NT
 EIGRP                                              EIGRPS_NT
 ADMIN_STATE                                        VARCHAR2(32)
 LINE_PROTOCOL_STATE                                VARCHAR2(48)
 HARDWARE                                           VARCHAR2(48)
 ADDRESS                                            VARCHAR2(48)
 MTU                                                VARCHAR2(48)
 BW                                                 VARCHAR2(48)
 DLY                                                VARCHAR2(48)
 RELIABILITY                                        VARCHAR2(48)
 TXLOAD                                             VARCHAR2(48)
 RXLOAD                                             VARCHAR2(48)
 ENCAPSULATION                                      VARCHAR2(48)
 LOOPBACK_STATE                                     VARCHAR2(48)
 ARP_TYPE                                           VARCHAR2(48)
 ARP_TIMEOUT                                        VARCHAR2(48)
 LAST_INPUT                                         VARCHAR2(48)
 LAST_OUTPUT                                        VARCHAR2(48)
 LAST_OUTPUT_HANG                                   VARCHAR2(48)

essentially, whats happening is that the following sql:

    my $sql = "select d.device_id, i.interface_id, i.arp, i.eigrp, i.c
+dp from device_objtab d, interfaces_objtab i where d.device_id = $obj
+ect_id";

is attempting to recover a type (three, really) 108 ora_type field, wh
+ich in these instances are user-defined nested table structures.

i was hoping to find a way to tell DBI how to handle this type for ret
+rieval.

   my $sth = $dbh->prepare($sql) || warn "[@caller]\n";
   if (!(defined $sth)) { $OraMethods::error = "Can't prepare $sql: $D
+BI::errstr $sql \n -> [@caller]\n" and return 0; }
[download]

--t. alex

"Mud, mud, glorious mud. Nothing quite like it for cooling the blood!"
--Michael Flanders and Donald Swann

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.