Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!emory!gatech!udel!haven.umd.edu!uvaarpa!mmdf
From: frech@mwraaa.army.mil (Norman R. Frech CPLS)
Newsgroups: comp.lang.perl
Subject: oraperl
Message-ID: <1991May14.180755.4784@uvaarpa.Virginia.EDU>
Date: 14 May 91 18:07:55 GMT
Sender: mmdf@uvaarpa.Virginia.EDU (Uvaarpa Mail System)
Reply-To: frech@mwraaa.army.mil
Organization: The Internet
Lines: 37

Kevin,

I am having problems getting a cursor to return a date. A portion of my
code as follows.

*** cut here ***
$lda = &ora_login("", "/", "")
	|| die $ora_errstr;

$csr = &ora_open($lda,"select asgmnt_no,last_name,sum(nvl(hours/8,0)),ssn from perstime where substr(asgmnt_no,1,1) != 'C' and type_time in ('1','2','3','4','5','6','7','R') group by asgmnt_no,last_name,ssn") || die $ora_errstr;

while (($asgmnt_no, $last_name,$hours, $ssn) = &ora_fetch($csr))
{
# HERE  IS THE PROBLEM
        $select = 'select appr_date from audstaff';
#where ssn = \''.$ssn.'\' and asgmnt_no = \'C1999L\'';
        $subcsr = &ora_open($lda,$select)
	|| die $ora_errstr;
     ($rdate) = &ora_fetch($subcsr)
# HERE  IS THE PROBLEM
}
do ora_close($subcsr) || die "can't close cursor";
        print " $rdate \n";
#	write;
}
 
do ora_close($csr) || die "can't close cursor";
do ora_logoff($lda) || die "can't log off Oracle";
*** cut here ***

It seems as if the date returns a null even though I know a date is there.
I have tried all different flavors of grabing this date field and none have
worked so far.  Text and numerics come back fine.  

Any suggestions?

Norm Frech <frech@mwraaa.army.mil>