| 13 |
rsolanki |
1 |
Option Explicit
|
|
|
2 |
'=====================================================
|
|
|
3 |
' Name: config
|
| 4216 |
dpurdie |
4 |
' Description: Contains all configuration details,
|
| 13 |
rsolanki |
5 |
' enums, global constants and variables.
|
|
|
6 |
'=====================================================
|
|
|
7 |
|
|
|
8 |
'=========== GLOBAL CONSTANTS DECLARATION ============
|
|
|
9 |
'============ GLOBAL VARIABLES DEFINITION ============
|
|
|
10 |
Dim OraSession
|
|
|
11 |
Dim OraDatabase
|
|
|
12 |
Dim APP_ROOT
|
|
|
13 |
Dim QUERIES_PATH
|
| 5517 |
dpurdie |
14 |
Dim ENV_ORA_DATABASE
|
|
|
15 |
Dim ENV_ORA_CONNECTION
|
| 13 |
rsolanki |
16 |
'============= VARIABLES INITIALISATION ==============
|
|
|
17 |
APP_ROOT = Get_Application_Path()
|
| 5517 |
dpurdie |
18 |
ENV_ORA_DATABASE = getEnvVar("ORA_DATABASE")
|
|
|
19 |
ENV_ORA_CONNECTION = getEnvVar("ORA_CONNECTION")
|
| 4216 |
dpurdie |
20 |
'================== CONFIGURATION ====================
|
| 5517 |
dpurdie |
21 |
If ENV_ORA_DATABASE = "" OR ENV_ORA_CONNECTION = "" Then
|
|
|
22 |
Wscript.Echo "ERROR: EnvVars ENV_ORA_DATABASE and ENV_ORA_CONNECTION have not been set"
|
|
|
23 |
WScript.Quit (1)
|
|
|
24 |
End If
|
| 13 |
rsolanki |
25 |
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 5517 |
dpurdie |
26 |
Set OraDatabase = OraSession.OpenDatabase( ENV_ORA_DATABASE, ENV_ORA_CONNECTION, Cint(0))
|
| 13 |
rsolanki |
27 |
QUERIES_PATH = APP_ROOT &"jobs\queries"
|
| 5517 |
dpurdie |
28 |
Const QUERIES_FOLDER = "queries"
|
| 25 |
rsolanki |
29 |
|
| 13 |
rsolanki |
30 |
'======================== enums ======================
|
|
|
31 |
Const enumEVENT_SUCCESS = 0
|
|
|
32 |
Const enumEVENT_ERROR = 1
|
|
|
33 |
Const enumEVENT_WARNING = 2
|
|
|
34 |
Const enumEVENT_INFORMATION = 4
|
|
|
35 |
'====================== OO4O =========================
|
|
|
36 |
const ORATYPE_VARCHAR2 = 1
|
|
|
37 |
const ORATYPE_NUMBER = 2
|
|
|
38 |
const ORATYPE_SINT = 3
|
|
|
39 |
const ORATYPE_FLOAT = 4
|
|
|
40 |
const ORATYPE_STRING = 5
|
|
|
41 |
const ORATYPE_VARCHAR = 9
|
|
|
42 |
const ORATYPE_DATE = 12
|
|
|
43 |
const ORATYPE_UINT = 68
|
|
|
44 |
const ORATYPE_RAW = 95
|
|
|
45 |
const ORATYPE_CHAR = 96
|
|
|
46 |
const ORATYPE_CHARZ = 97
|
|
|
47 |
const ORATYPE_MLSLABEL = 105
|
|
|
48 |
const ORATYPE_OBJECT = 108
|
|
|
49 |
const ORATYPE_REF = 110
|
|
|
50 |
const ORATYPE_CLOB = 112
|
|
|
51 |
const ORATYPE_BLOB = 113
|
|
|
52 |
const ORATYPE_BFILE = 114
|
|
|
53 |
const ORATYPE_VARRAY = 247
|
|
|
54 |
const ORATYPE_TABLE = 248
|
|
|
55 |
const ORATYPE_CURSOR = 102
|
|
|
56 |
|
|
|
57 |
|
| 4216 |
dpurdie |
58 |
const ORAPARM_INPUT=1
|
|
|
59 |
const ORAPARM_OUTPUT=2
|
| 13 |
rsolanki |
60 |
const ORAPARM_BOTH=3
|
|
|
61 |
|
|
|
62 |
const ORADYN_DEFAULT=&H0&
|
|
|
63 |
'=====================================================
|
|
|
64 |
|
|
|
65 |
|