Command: ExecuteExclusiveEndAll

Display all  Hide all

Ends all executions of mutually exclusive script sections.  If an instance is terminated, the execution of a mutually exclusive script section is automatically released to the other instances.

Input Parameters

Examples

The following example starts executing a mutually exclusive script section to open a file and write to that file. If it is not possible to execute a mutually exclusive script section after ten seconds, this DIAdem instance aborts execution with a debug message.

Dim intExecuteExclusiveHandle, intMyFileHandle, intMyError
intExecuteExclusiveHandle = ExecuteExclusiveBegin("WriteFile",10) 
If intExecuteExclusiveHandle < 0 Then 
  Call DBM ("Timeout: Could not write file")
Else
  intMyFileHandle =  TextFileOpen(CurrentScriptPath & "MyFile.txt", eTextFileAttributeExclusive OR eTextFileAttributeWrite OR eTextFileAttributeANSI)
  Call TextFileWriteln(intMyFileHandle,"Test")
  intMyError = TextFileClose(intMyFileHandle)
End If
Call ExecuteExclusiveEndAll

intExecuteExclusiveHandle = dd.ExecuteExclusiveBegin("WriteFile",10) 
if intExecuteExclusiveHandle < 0: 
    dd.DBM ("Timeout: Could not write file") 
else: 
    intMyFileHandle =  dd.TextFileOpen(dd.CurrentScriptPath + "MyFile.txt", eTextFileAttributeExclusive or eTextFileAttributeWrite or eTextFileAttributeANSI) 
    dd.TextFileWriteln(intMyFileHandle,"Test") 
    intMyError = dd.TextFileClose(intMyFileHandle) 
dd.ExecuteExclusiveEndAll 

Related Topics

Command: ExecuteExclusiveBegin | Command: ExecuteExclusiveEnd