home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / ni_vb / nwtts.bas < prev    next >
BASIC Source File  |  1993-05-26  |  2KB  |  40 lines
  1. 'NWTTS.BAS  NetWare Transaction Tracking Services Interface for Visual Basic For Windows
  2. 'Version 1.0
  3. 'Novell Systems Research Department, Novell, Inc.
  4. 'Copyright (c) 1993, Novell, Inc.
  5. 'This interface is not supported through Novell's regular
  6. 'support channels.  See README.TXT for more information.
  7.  
  8. Type TTS_STATS
  9.      systemElapsedTime As Long
  10.      ttsSupported As String * 1
  11.      ttsEnabled As String * 1
  12.      ttsVolumeNumber As Integer
  13.      ttsMaxOpenTransactions As Integer
  14.      ttsMaxTransactionsOpened As Integer
  15.      ttsCurrTransactionsOpened As Integer
  16.      ttsTotalTransactions As Long
  17.      ttsTotalWrites As Long
  18.      ttsTotalBackouts As Long
  19.      ttsUnfilledBackouts As Integer
  20.      ttsDiskBlocksInUse As Integer
  21.      ttsFATAllocations As Long
  22.      ttsFileSizeChanges As Long
  23.      ttsFilesTruncated As Long
  24.      numberOfTransactions As String * 1
  25.      connectionNumber As String * 1
  26.      taskNumber As String * 1
  27. End Type
  28.  
  29. Declare Function TTSAbortTransaction Lib "NWNETAPI.DLL" () As Integer
  30. Declare Function TTSBeginTransaction Lib "NWNETAPI.DLL" () As Integer
  31. Declare Function TTSEndTransaction Lib "NWNETAPI.DLL" (transactionNumber&) As Integer
  32. Declare Function TTSGetApplicationThresholds Lib "NWNETAPI.DLL" (logicalRecordLockThreshold%, physicalRecordLockThreshold%) As Integer
  33. Declare Function TTSGetStats Lib "NWNETAPI.DLL" (ByVal connectionID%, lastTask%, ByVal structSize%, ttsStats As TTS_STATS) As Integer     '2.x only
  34. Declare Function TTSGetWorkstationThresholds Lib "NWNETAPI.DLL" (logicalRecordLockThreshold%, physicalRecordLockThreshold%) As Integer
  35. Declare Function TTSIsAvailable Lib "NWNETAPI.DLL" () As Integer
  36. Declare Function TTSSetApplicationThresholds Lib "NWNETAPI.DLL" (ByVal logicalRecordLockThreshold%, ByVal physicalRecordLockThreshold%) As Integer
  37. Declare Function TTSSetWorkstationThresholds Lib "NWNETAPI.DLL" (ByVal logicalRecordLockThreshold%, ByVal physicalRecordLockThreshold%) As Integer
  38. Declare Function TTSTransactionStatus Lib "NWNETAPI.DLL" (ByVal transactionNumber&) As Integer
  39.  
  40.