home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume30 / oraperl-v2 / part05 / oraperl.ph < prev    next >
Encoding:
Text File  |  1992-07-06  |  1.1 KB  |  48 lines
  1. # oraperl.ph
  2. #
  3. # Various constants which may be useful in oraperl programs
  4. #
  5. # Author:    Kevin Stock
  6. # Date:        28th October 1991
  7. # Last Change:    8th April 1992
  8.  
  9.  
  10. # Oraperl error codes, set in $ora_errno
  11.  
  12. $ORAP_NOMEM    = 100001;    # out of memory
  13. $ORAP_INVCSR    = 100002;    # invalid cursor supplied
  14. $ORAP_INVLDA    = 100003;    # invalid lda supplied
  15. $ORAP_NOSID    = 100004;    # couldn't set ORACLE_SID
  16. $ORAP_BADVAR    = 100005;    # bad colon variable sequence
  17. $ORAP_NUMVARS    = 100006;    # wrong number of colon variables
  18. $ORAP_NODATA    = 100007;    # statement does not return data
  19.  
  20.  
  21. # Oraperl debugging codes for $ora_debug
  22. # From version 2, you shouldn't really use these.
  23.  
  24. $ODBG_EXEC    =   8;        # program execution
  25. $ODBG_STRNUM    =  32;        # string/numeric conversions
  26. $ODBG_MALLOC    = 128;        # memory allocation/release
  27.  
  28. # Oracle datatypes
  29. # I don't know whether these are valid for all versions.
  30.  
  31. %ora_types =
  32. (
  33.      1,    'character array',
  34.      2,    'number',
  35.      3,    'signed integer',
  36.      4,    'float',
  37.      7,    'packed decimal',
  38.      8,    'long string',
  39.      9,    'varchar',
  40.     11,    'rowid',
  41.     12,    'date',
  42.     15,    'varraw',
  43.     23,    'raw',
  44.     24,    'long raw',
  45. );
  46.  
  47. 1;
  48.