sybperl-l Archive

From: "Raja Sambamurty" <rajags at hotmail dot com>
Subject: capturing print statements from a stored procs
Date: Oct 7 1997 8:20PM

Hi,

I am trying to convert a shell script to sybperl. What this script does 
is to call a bunch of SP's (a slight simplification) and redirect the 
output from the SP to a file. Everything works fine, except when
there is a print in the SP. All the output from the select statements 
are returned via the dbnextrow but not the print statement(s). Any help 
would be appreciated.

here's a fragment of my code

	    my $lsql = "execute $Database..ybholdb3_pl '$arr[$i]'";
	    $stat = $ddbfh->dbcmd ($lsql);
	    $stat = $ddbfh->dbsqlexec;
	    while ( $ddbfh->dbresults != NO_MORE_RESULTS ) {
	      while ( local(@data) = $ddbfh->dbnextrow ) {
		   print OFH "@data\n";
	      }
	    }

The version of perl is perl5.00401.
	   
where $arr[$i] has the parameter name.

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com