Click above to get retro games delivered to your door ever month!

 TTSWSThresholdGet() / TTSWSThresholdSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the TTS workstation lock threshold.

 Syntax:
 iWSThr = TTSWSThresholdGet()
 iWSThr = TTSWSThresholdSet( iNewThr )

 Parameters:
 iNewThr The new number of record locks.

 Returns:
 A numeric value (signed short int).

 The CA-Clipper name for this function is:
 TTSWSThrSet()

 Description:
 TTSWSThresholdGet() returns the number of record locks which may be
 made before an implicit TTS transaction is started.

 TTSWSThresholdSet() sets the number of record locks to iNewThr.

 Returns NOVERRINT if an error occurs.

 Example:
 // To display the number of record locks which may be made before an
 // implicit transaction is started:
 iLockCount = TTSWSThresholdGet()
 if ( iLockCount != NOVERRINT )
    ? "The implicit transaction lock threshold is ", LockCount
 endif
 // To set the TTS program threshold so that 3 record locks may be made
 // before a TTS transaction is started:
 iOldLockCount = TTSWSThresholdSet( 3 )
 iNewLockCount = TTSWSThresholdGet()
 if ( iNewLockCount != NOVERRINT )
    ? "The implicit transaction lock threshold is now ", iNewLockCount
 endif

 Notes:
 The number of record locks returned or set using this function is
 valid not only for the requesting program but also for subsequent programs.

 TTS thresholds which should only be valid for a particular program can be
 set using the TTSAppThresholdSet() function.