Re: ORA-1019: unable to allocate memory in the user side (probably a symptom of a deeper problem)

From: praba <prabad_at_excitehome.net>
Date: Thu, 29 Mar 2001 22:16:50 GMT
Message-ID: <985904210.284364_at_zeppelin.svr.home.net>

here is the script:

#!/depot/perl/5.004_04/bin/perl
use Oraperl;

#Config File Starts here
unless (open(MYFILE, "dbenv.config")) {

        die "cannot open config file CONFIG File\n"; }

_at_inp = <MYFILE>;

$len = _at_inp;
$i = 0;
$hash_ref = {};

while ($i < $len)
{

        chop($inp[$i]);
        ($left, $right) = split(/\s*=\s*/, $inp[$i]);


        $left =~ s/\s//g;

        $right =~ s/\s//g;

        $hash_ref->{$left} = $right;


        $i++;

}

$ORACLE_HOME1 = $hash_ref->{"ORACLE_HOME"}; $TNS_ADMIN = $hash_ref->{"TNS_ADMIN"};

#BEGIN
{

   $ENV{ORACLE_HOME} = $ORACLE_HOME1;
   #$ENV{ORACLE_SID} = $ENV{ TWO_TASK } = $ORACL_INS;    $ENV{TNS_ADMIN} = $TNS_ADMIN;
}

$ORCL_BILLDB_INS                = $hash_ref->{"ORCL_BILLDB_INS"};
$ORCL_BILLDB_USER       =      $hash_ref->{"ORCL_BILLDB_USER"};
$ORCL_BILLDB_PASSWD     = $hash_ref->{"ORCL_BILLDB_PASSWD"};

#Config File ends here

my $RetriveNcpSql = "";
my $RetriveNcpCur = "";

my $GetSysdateSql = "select to_char(sysdate,'RRRRMMDDHHMISS') from dual"; #-------Database Connection Routins--------------- sub db_login
{

        my ( $dbSid, $dbUser, $dbPasswd ) = _at__;

$oraDscr = &ora_login( $dbSid, $dbUser, $dbPasswd );

        if( $ora_errno )
        {
                printf( "db_login: $dbSid, $dbUser, $dbPasswd\n" );
                printf( "$ora_errstr\n" );
        }

        return $oraDscr;

}

sub db_logout
{

        ( $oraDscr ) = _at__;
        return &ora_logoff( $oraDscr );

}

sub db_open
{

        ( $oraDscr, $sqlstmnt ) = _at__;
        local $cur = "";



        $cur = &ora_open( $oraDscr, $sqlstmnt );


        if( $ora_errno )
        {
                printf( "$ora_errstr\n" );
                return;
        }

        return $cur;

}

sub db_close
{

        ( $cur ) = _at__;
        return &ora_close( $cur );

}
#-------- main ---------

        #-------Open SADB Data Base Connection---------

f( !&db_login($ORCL_BILLDB_INS,$ORCL_BILLDB_USER,$ORCL_BILLDB_PASSWD))

        {
            die "Sadb Login Failed\n";
        }


        $SadbHandle = $oraDscr;



        #------- Take Out system date for Log File Name-------


        $SqlBuf = sprintf($GetSysdateSql);


        $GetSysdateCur = &db_open($SadbHandle,$SqlBuf);


        _at_Row = &ora_fetch($GetSysdateCur);
        ($sys_date) = _at_Row;
        print "System Date:", $sys_date, "\n";
        &db_close($GetSysdateCur);

exit(0);

"Jeroen van Veldhuizen" <Jeroen_at_vanVeldhuizen.org> wrote in message news:3AC2541E.DCD2CAC5_at_vanVeldhuizen.org...

> Could you please post the script? That would make it easier to analyse the
> problem.
>
> Jeroen
>
> praba wrote:
>
> > Hi,
> >
> >  when I use Oraperl in the perl script, I am getting the error as
> >
> >  ORA-1019: unable to allocate memory in the user side (probably a

 symptom of

> > a deeper problem)
> > Sadb Login Failed.
> >
> >  But the perl script is working fine.
> >
> >  I check the environment and the path including ORACLE_HOME,ORACLE_SID
> > everything is
> >  fine. Also I am using the use Oraperl in perl script.
> >
> >  I didn't understand why it failed before connecting the Oracle

 database.
> >
> > Our database is Oracle 8.0.4 and 8.0.6 and the perl ver is  perl5.004_04.

> >
> >  Appreciate your help.
>

Received on Fri Mar 30 2001 - 00:16:50 CEST