File: oraperl.ph

package info (click to toggle)
libdbd-oracle-perl 1.21-2
  • links: PTS
  • area: contrib
  • in suites: lenny
  • size: 1,808 kB
  • ctags: 576
  • sloc: ansic: 6,172; perl: 4,753; makefile: 14
file content (53 lines) | stat: -rwxr-xr-x 1,292 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
# DBD::Oracle Oraperl emulation. This file is not relevant to the
# emulation but is included for completeness only.
# I have updated %ora_types in case it's used. Tim Bunce.

# oraperl.ph
#
# Various constants which may be useful in oraperl programs
#
# Author:	Kevin Stock
# Date:		28th October 1991
# Last Change:	8th April 1992


# Oraperl error codes, set in $ora_errno

$ORAP_NOMEM	= 100001;	# out of memory
$ORAP_INVCSR	= 100002;	# invalid cursor supplied
$ORAP_INVLDA	= 100003;	# invalid lda supplied
$ORAP_NOSID	= 100004;	# couldn't set ORACLE_SID
$ORAP_BADVAR	= 100005;	# bad colon variable sequence
$ORAP_NUMVARS	= 100006;	# wrong number of colon variables
$ORAP_NODATA	= 100007;	# statement does not return data


# Oraperl debugging codes for $ora_debug
# From version 2, you shouldn't really use these.

$ODBG_EXEC	=   8;		# program execution
$ODBG_STRNUM	=  32;		# string/numeric conversions
$ODBG_MALLOC	= 128;		# memory allocation/release

# Oracle datatypes
# I don't know whether these are valid for all versions.

%ora_types =
(
	 1,	'character array',
	 2,	'number',
	 3,	'signed integer',
	 4,	'float',
	 7,	'packed decimal',
	 8,	'long string',
	 9,	'varchar',
	11,	'rowid',
	12,	'date',
	15,	'varraw',
	23,	'raw',
	24,	'long raw',
	96,	'char',
	106,'mlslabel',
);

1;