home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / NW41BAS.ZIP / NW4XTTS.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-04-17  |  2.4 KB  |  51 lines
  1. 'NW4XTTS.BAS - Novell Netware 4.X Interface for Visual Basic for Windows
  2. '       Contains Functions and Structure Definations for Transaction
  3. 'tracking capabilites.
  4. 'Requirements - NONE
  5.  
  6. Type CONN_TASK_TYPE
  7.     connNumber As String * 1
  8.     taskNumber As String * 1
  9. End Type
  10.  
  11. Type TTS_STATS
  12.   systemElapsedTime As Long
  13.   TTS_Supported As String * 1
  14.   TTS_Enabled As String * 1
  15.   TTS_VolumeNumber As Integer
  16.   TTS_MaxOpenTransactions As Integer
  17.   TTS_MaxTransactionsOpened As Integer
  18.   TTS_CurrTransactionsOpen As Integer
  19.   TTS_TotalTransactions As Long
  20.   TTS_TotalWrites As Long
  21.   TTS_TotalBackouts As Long
  22.   TTS_UnfilledBackouts As Integer
  23.   TTS_DiskBlocksInUse As Integer
  24.   TTS_FATAllocations As Long
  25.   TTS_FileSizeChanges As Long
  26.   TTS_FilesTruncated As Long
  27.   numberOfTransactions As String * 1
  28.   connTask(235) As CONN_TASK_TYPE
  29. End Type
  30.  
  31. Declare Function NWTTSAbortTransaction Lib "NWCALLS.DLL" (ByVal conn%) As Integer
  32. Declare Function NWTTSBeginTransaction Lib "NWCALLS.DLL" (ByVal conn%) As Integer
  33. Declare Function NWTTSIsAvailable Lib "NWCALLS.DLL" (ByVal conn%) As Integer
  34. 'controlFlags need to init to String * 1
  35. Declare Function NWTTSGetControlFlags Lib "NWCALLS.DLL" (ByVal conn%, ByVal controlFlags$) As Integer
  36. Declare Function NWTTSSetControlFlags Lib "NWCALLS.DLL" (ByVal conn%, ByVal controlFlags$) As Integer
  37. Declare Function NWTTSEndTransaction Lib "NWCALLS.DLL" (ByVal conn%, transactionNum&) As Integer
  38. Declare Function NWTTSTransactionStatus Lib "NWCALLS.DLL" (ByVal conn%, ByVal transactionNum&) As Integer
  39.  
  40. 'logincalLockLevel and physicalLockLevel need to init as String * 1
  41. Declare Function NWTTSGetProcessThresholds Lib "NWCALLS.DLL" (ByVal conn%, ByVal logicalLockLevel$, ByVal physicalLockLevel$) As Integer
  42. Declare Function NWTTSSetProcessThresholds Lib "NWCALLS.DLL" (ByVal conn%, ByVal logicalLockLevel$, ByVal physicalLockLevel$) As Integer
  43. Declare Function NWTTSGetConnectionThresholds Lib "NWCALLS.DLL" (ByVal conn%, ByVal logicalLockLevel$, ByVal physicalLockLevel$) As Integer
  44. Declare Function NWTTSSetConnectionThresholds Lib "NWCALLS.DLL" (ByVal conn%, ByVal logicalLockLevel$, ByVal physicalLockLevel$) As Integer
  45.  
  46. Declare Function NWEnableTTS Lib "NWCALLS.DLL" (ByVal conn) As Integer
  47. Declare Function NWDisableTTS Lib "NWCALLS.DLL" (ByVal conn) As Integer
  48.  
  49. Declare Function NWGetTTSStats Lib "NWCALLS.DLL" (ByVal conn, ttsStats As TTS_STATS) As Integer
  50.  
  51.