When a task aborts you can specify several actions to be performed (Task properties, Tab Errors). One of them is: Run a task.

At that point you can fill in this attached task: RunOnErrorTask.

It returns the name(s) of (a) task(s) that didn't finish with a good result within the last given amount of seconds (variable lAbortedWithinSeconds in the task RunOnErrorTask).

Per aborted task (selected by name) you can perform the necessary actions to handle the error situation.


Task Steps: (Right click, Select All, Copy to copy to the clipboard. Steps can then be pasted into the AutoMate Task Builder)
<!--- TASK: RunOnErrorTask. You can have this task executed when one of your other tasks abort. When a task aborts you can specify a task to be run: Task properties, tab Errors, Check item 'Run a task' and specify the task to run. There you can specify this task. When this task is executed it builds a list with the names of the tasks that aborted within the last ... seconds. The amount of seconds you can setup with the variable: 'lAbortedWithinSeconds' in this task. The list that is build will be looped and per task you can execute some tasksteps. ---> <!--- First find the file: AM6Taskfile.atl ---> <AMVARIABLE NAME="lAbortedWithinSeconds">10</AMVARIABLE> <AMVARIABLE NAME="cTaskFileMap">%GetEnvironmentVariable(&quot;APPDATA&quot;)%\Network Automation\Automate 6</AMVARIABLE> <AMVARIABLE NAME="cTaskFile"></AMVARIABLE> <AMVARIABLE NAME="cTaskNames"></AMVARIABLE> <AMVARIABLE NAME="cTaskName"></AMVARIABLE> <AMIFFOLDEREXISTS ACTION="not_exist" FOLDER="%cTaskFileMap%"> <AMSET VARIABLENAME="cTaskFileMap">%Replace(cTaskFileMap, LCase( GetUserName()), &quot;All Users&quot;)%</AMSET> <AMIFFOLDEREXISTS ACTION="not_exist" FOLDER="%cTaskFileMap%"> <AMSTOPTASK> </AMIF> </AMIF> <AMSET VARIABLENAME="cTaskFile">%cTaskFileMap%\AM6Taskfile.atl</AMSET> <AMIFFILEEXISTS FILE="%cTaskFile%"> <!--- Now build the list: cTasknames The list contains the tasknames of task that aborted within te last ... seconds. ---> <AMSCRIPT>Sub Main Dim iFileHandler As Integer, iCount As Integer Dim lSecsPassed As Long Dim cLine As String, cLastRunResult As String, cLinePart As String, cFLDPart As String, cFolder As String Dim dLastRunDate As Date Const cQuote = &quot;&quot;&quot;&quot; Const cComma = &quot;,&quot; Const cPoint = &quot;.&quot; Const cSemiC = &quot;;&quot; Const cBSlash = &quot;\&quot; Const cTaskFolderFLD = &quot;TASKFOLDER NAME=&quot; & cQuote Const cTaskIdFLD = &quot;TASK ID=&quot; & cQuote Const cTaskNameFLD = &quot; NAME=&quot; & cQuote Const cLastRunResultFLD = &quot;LASTRUNRESULT=&quot; & cQuote Const cLastRunFLD = &quot;LASTRUN=&quot; & cQuote Const cGoodResult = &quot;OKAY&quot; iFileHandler = FreeFile iCount = 0 Open cTaskFile For Input As #iFileHandler While Not EOF(iFileHandler) Line Input #iFileHandler, cLine If InStr(cLine, cTaskFolderFLD) &gt; 0 Then cLinePart = Replace( Right(cLine, (Len(cLine) - InStr(cLine,cTaskFolderFLD))+1), _ cTaskFolderFLD,&quot;&quot;) cFolder = Left(cLinePart,InStr(cLinePart,cQuote)-1) End If If InStr(cLine, cTaskIdFLD) &gt; 0 And _ InStr(cLine,cTaskNameFLD) &gt; 0 And _ InStr(cLine,cLastRunResultFLD) &gt; 0 And _ InStr(cLine,cLastRunFLD) &gt; 0 Then cLinePart = Replace( Right(cLine, (Len(cLine) - InStr(cLine,cLastRunResultFLD))+1), _ cLastRunResultFLD,&quot;&quot;) cFLDPart = Left(cLinePart,InStr(cLinePart,cQuote)-1) If cFLDPart &lt;&gt; cGoodResult Then cLinePart = Replace( Right(cLine, (Len(cLine) - InStr(cLine,cLastRunFLD))+1), _ cLastRunFLD,&quot;&quot;) cFLDPart = Left( cLinePart, InStr(cLinePart,cQuote) - 1) dLastRunDate = CDate( CDbl( cFLDPart)) cLinePart = Replace( Right(cLine, (Len(cLine) - InStr(cLine,cTaskNameFLD))+1), _ cTaskNameFLD,&quot;&quot;) cFLDPart = Left( cLinePart, InStr(cLinePart,cQuote) - 1) lSecsPassed = DateDiff( &quot;s&quot;, dLastRunDate, Now()) If lSecsPassed &lt;= lAbortedWithinSeconds Then If iCount &gt; 0 Then cTasknames = cTasknames & cSemiC End If cTasknames = cTasknames & _ IIf( Trim( cFolder) &lt;&gt;&quot;&quot;, UCase( cFolder) & cBSlash, &quot;&quot;) & _ UCase( Trim( cFLDPart)) iCount = iCount + 1 End If End If End If Wend Close iFileHandler End Sub </AMSCRIPT> <AMELSE> <AMSTOPTASK> </AMIF> <!--- Are there any aborted tasks? ---> <AMIF EXPRESSION="Trim(cTaskNames) &lt;&gt; &quot;&quot;"> <!--- Loop the list. ---> <AMLOOPLIST LIST="%cTasknames%" RESULTVARIABLE="cTaskName" DELIMITER="semi_colon"> <!--- Now test the tasknames. Per taskname you can execute some steps. The taskname to be tested for must be capital, in this format: FOLDERNAME\TASKNAME ---> <AMIF EXPRESSION="%cTaskName% = &quot;TEST\TEST&quot;"> <AMMESSAGEBOX>Task %cTaskName% aborted. Now you can do something here ...</AMMESSAGEBOX> </AMIF> </AMLOOP> <AMELSE> <AMMESSAGEBOX>No aborted tasks found within period of last %lAbortedWithinSeconds% seconds.</AMMESSAGEBOX> </AMIF>

-------------------------
Bart van Lagen
ICT Department.
St Jansdal Hospital
Harderwijk, Netherlands
Automate 7.1.1.0 / BPA 7.1.1.0
Windows 2003SP2SRV