I'm working on Windows XP, with Oracle 8.1.7.4.0. The cursors are opened in PL/SQL and returned to DBI via the following wrapper function (which is called by AUTOLOAD): 

sub _do_proc {
    my $self = shift;
    my ($type, $proc, @args) = @_;

    unless ($type =~ /^(GET|CREATE|DELETE|ADD|UPDATE)$/) {
        die "Unknown type ($type) passed to _do_proc!\n";
    }

    my $inout = 0;
    $inout++ if $type =~ /^(GET|CREATE)$/;

    my @params = ();
    for (my $i = 0; $i < @args; $i++) {
        push @params, ":a$i";
    }
    push @params, ":out" if $inout;
    my $arg_str = join ', ', @params;

    my $sql = __unindent(<<"    SQLEND");
        ~BEGIN
        ~    $PKGNAME.$proc($arg_str);
        ~END;
    SQLEND

    my $sth = $self->dbh->prepare($sql);
    #print "Prepared statement \n".$sth->{'Statement'}."\n";
    my $out;
    for (my $i = 0; $i < @args; $i++) {
        $sth->bind_param($params[$i], $args[$i]);
    }

    if ($type eq 'GET') {
        $sth->bind_param_inout(':out', \$out, 0, { ora_type => ORA_RSE
+T } );
    } elsif ($type eq 'CREATE') {
        $sth->bind_param_inout(':out', \$out, 10);
    } else {
        $out = 1;

    }

    my $ok = $sth->execute;

    if ($ok) {
        #print "Successfully executed statement\n";
    } else {
        return undef;
    }

    # TODO: Check for statement errors!
    
    return $out;
}
sub AUTOLOAD {
    my $self = shift;
    die "Not an object\n" unless ref $self;
    my $name = our $AUTOLOAD;
    $name =~ s/^.*::([^:]+)$/\1/;
    return if $name eq 'DESTROY';

    if ($name =~ /^(Get|Create|Delete|Add|Update)/ ) {
        return $self->_do_proc(uc $1, $name, @_); 
    } elsif (exists $self->{$name}) {
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }
    } else {
        warn "Attempt to access non-existent method/property: $name\n"
+;
    }
    
}

[download]

In the particular instance where the error is occurring, I'm calling the above function, as $db->GetCurveByIdentifier, like this: 

my $bb_curve_sth = $db->GetCurveByIdentifier($bb_code);
if ($db->err) {
    die "ERROR: ".$db->errstr."\n";
}
my $bb_curve = $bb_curve_sth->fetchrow_hashref;
$bb_curve_sth->finish;
$db->CloseCursor($bb_curve_sth); ## Close the cursor

[download]

And there CloseCursor prints the error noted before.

What do you think?

In reply to Re^2: Closing Oracle cursors by mickey
in thread Closing Oracle cursors by mickey

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.