Re: oraperl problem: &ora_titles, &ora_types, &ora_lengths

>>> On 6 Feb 1995 22:33:17 GMT,
>>> "Arthur" == ayasinsk_at_nofc.forestry.ca (Arthur Yasinski) wrote:

Arthur> I am encountering a weird anomaly with oraperl 2.004 and my Oracle
Arthur> v7.0.16 database.  Normally, everything works fine, but some times,
Arthur> the three functions &ora_titles, &ora_types, and &ora_lengths
Arthur> neglect to return the first item.

  I had a similar problem with Oracle 7 under OSF/1 on a DEC Alpha. You   could try the appended patch. If that doesn't work, check out the   oraperl archive at

    ftp.demon.co.uk:/pub/perl/db/oraperl/

  which contains several notes on how to get oraperl going under Oracle 7.

• Mike W.
  • patch follows ---------------------------------------------------------
  • oraperl-v2.4/orafns.c-dist Thu Nov 11 12:19:11 1993 +++ oraperl-v2.4/orafns.c Tue May 10 17:52:22 1994 _at_@ -281,6 +281,6 @@ do { - odsc(csr->csr, ++i, (short *) 0, (short *) 0, (short *) 0, - (short *) 0, (char *) 0, (short *) 0, (short *) 0); + odsc(csr->csr, ++i, (short *) -1, (short *) -1, (short *) -1, + (short *) -1, (char *) 0, (short *) -1, (short *) -1); } while (csr->csr->csrrc == 0); --i; _at_@ -359,7 +359,7 @@ for (i = 0 ; i < csr->nfields ; i++) { - odsc(csr->csr, i + 1, (short *) 0, (short *) 0, - (short *) 0, &csr->type[i], (char *) 0, - (short *) 0, &dsize); + odsc(csr->csr, i + 1, (short *) -1, (short *) -1, + (short *) -1, &csr->type[i], (char *) 0, + (short *) -1, &dsize);

                         if ((csr->type[i] == 8) || (csr->type[i] == 24)) _at_@ -401,5 +401,5 @@  

 			odefin(csr->csr, i + 1, csr->data[i], dsize + 1, 5, 0,
-				(short *) 0, (char *) 0, 0, 0, (short *) 0,
+				(short *) -1, (char *) 0, 0, 0, (short *) -1,
 				csr->rcode[i]);
 			csr->len[i] = dsize;