Select Code to Download

CREATE OR REPLACE PACKAGE table_ids AS
   TYPE return_cursor IS REF CURSOR;
   PROCEDURE get_next_session_id(session_cursor OUT return_cursor); 
...
         WHEN OTHERS
              THEN raise_application_error(-20001, 'There was an undet
+erminable error.');
END get_next_session_id;

sub executeStoredProcTestInfo
{
...
   
   return $table;
}

CREATE OR REPLACE PROCEDURE     get_next_session_id
(v_session_id OUT VARCHAR2)
...
     WHEN OTHERS
          THEN raise_application_error(-20001, 'There was an undetermi
+nable error.');
END get_next_session_id;

my $rv;
my $func = $dbh->prepare(q{
...

    $func->bind_param_inout(":rv", \$rv, 6);
    $func->execute;