Archives of the TeradataForum

Message Posted: Wed, 16 Oct 2002 @ 12:17:41 GMT

	<Prev	Next>		<<First	<Prev	Next>	Last>>

SO glad you asked!

For BTEQ, this is the basic technique I use:

open (BTEQ, "bteq 2>&1 < .logon $DB_usernm,$DB_passwd

sql statements go here;

.quit
ZZ
|") or die "Could not run bteq: $!";

 my @output = ();
 while () {
    print if /Failure|Error/i;
    next unless /^\w+\s+(\d|\?)/; # Search for the lines that contain your output
    ($var1, $var2) = split;
    push @output, [ $var1, $var2 ]; # Store output in your Perl array
 }

DBD::ODBC is acceptable but slow, IMHO. There are other ways. Modesty and the rules of this forum prevent me from mentioning them, but if you write to me directly I shall reveal all.

--wgr

	<Prev	Next>		<<First	<Prev	Next>	Last>>