Subversion Repositories DevTools

Rev

Rev 7457 | Rev 7459 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7457 Rev 7458
Line 45... Line 45...
45 
Set OraDatabase = OraSession.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
 45 
Set OraDatabase = OraSession.OpenDatabase( TNS_NAME, DB_AUTHENTICATION, Cint(0))
46 
Set ServiceConfig = CreateObject("Scripting.Dictionary")
 46 
Set ServiceConfig = CreateObject("Scripting.Dictionary")
47 
GetServiceConfig()
 47 
GetServiceConfig()
48 
GetIndefPause()
 48 
GetIndefPause()
49 
 
 49 
 
- 
 
 50 
' Kludge for testing messages/msg_xxxx
- 
 
 51 
Session(enum_RELMGR_ERRDESCRIPTION)="111|222|3333|444"
- 
 
 52 
 
50 
'--------------------------------------------------------------------------------------
 53 
'--------------------------------------------------------------------------------------
51 
'Populate ServiceConfig
 54 
'Populate ServiceConfig
52 
Sub GetIndefPause()
 55 
Sub GetIndefPause()
53 
    IndefPause = FALSE
 56 
    IndefPause = FALSE
54 
 
 57