Work Queue Processor

1
**REGION Load Queue Items
2
SET varSourceFilePath TO $'''C:\\\\Data\\\\WorkQueue.xlsx'''
3
SET varCurrentMessage TO $fx'Loading queue: ${varSourceFilePath}'
4
 
5
Excel.LaunchExcel.LaunchAndOpen Path: $fx'=${varSourceFilePath}' Visible: False ReadOnly: True LoadAddInsAndMacros: False UseMachineLocale: False Instance=> ExcelInstance
6
ON ERROR REPEAT 1 TIMES WAIT 2
7
END
8
 
9
Excel.ReadFromExcel.ReadAllCells Instance: $fx'=ExcelInstance' GetCellContentsMode: Excel.GetCellContentsMode.TypedValues FirstLineIsHeader: True RangeValue=> varQueueItems
10
ON ERROR REPEAT 1 TIMES WAIT 2
11
END
12
 
13
Excel.CloseExcel.Close Instance: $fx'=ExcelInstance'
14
ON ERROR REPEAT 1 TIMES WAIT 2
15
END
16
 
17
SET varTotalItems TO $fx'= Count(varQueueItems)'
18
SET varProcessedCount TO $fx'=0'
19
SET varSuccessCount TO $fx'=0'
20
SET varFailCount TO $fx'=0'
21
 
22
Variables.CreateNewDatatable InputTable: { ^['ItemIndex', 'Status', 'ErrorMessage'] } DataTable=> varResultsTable
23
SET varCurrentMessage TO $fx'Queue loaded — ${varTotalItems} item(s) to process'
24
**ENDREGION

1
**REGION Process Queue with Error Isolation
2
SET varCurrentMessage TO $'''Starting queue processing loop'''
3
 
4
LOOP FOREACH TransactionItem IN varQueueItems
5
 
6
    # Safe stop check
7
    IF (FlowControl.IfSafeStop ShouldStop: True) THEN
8
        SET varCurrentMessage TO $fx'Safe stop requested after ${varProcessedCount} items'
9
        GOTO 'QueueComplete'
10
    END
11
 
12
    Variables.IncreaseVariable Value: $fx'=varProcessedCount' IncrementValue: $fx'=1' Result=> varProcessedCount
13
    SET varCurrentMessage TO $fx'Processing item ${varProcessedCount} of ${varTotalItems}'
14
 
15
    # BLOCK provides per-item error isolation
16
    BLOCK 'ProcessItem'
17
    ON BLOCK ERROR
18
        # Item failed — log error and continue to next item
19
        Variables.IncreaseVariable Value: $fx'=varFailCount' IncrementValue: $fx'=1' Result=> varFailCount
20
        Variables.AddRowToDataTable.AppendRowToDataTable DataTable: $fx'=varResultsTable' RowToAdd: $fx'[${varProcessedCount}, Failed, ${LastError.message}]'
21
        SET varCurrentMessage TO $fx'Item ${varProcessedCount} FAILED: ${LastError.message}'
22
 
23
        Workstation.TakeScreenshot.TakeScreenshotOfForegroundWindow _
24
        ON ERROR REPEAT 1 TIMES WAIT 2
25
        END
26
    END
27
 
28
        # ====================================
29
        # INSERT YOUR PROCESSING LOGIC HERE
30
        # ====================================
31
        # Examples:
32
        # - Data entry via Legacy App Data Entry Loop
33
        # - API call via REST API POST Caller
34
        # - File operation via Folder Scanner patterns
35
        #
36
        # Access columns: TransactionItem.ColumnName
37
        # Any error in this block jumps to ON BLOCK ERROR above
38
 
39
        SET varCurrentMessage TO $fx'Item ${varProcessedCount} processing...'
40
 
41
        # Placeholder: simulate work with a WAIT
42
        WAIT $fx'=1'
43
 
44
        # If we get here, the item succeeded
45
        Variables.IncreaseVariable Value: $fx'=varSuccessCount' IncrementValue: $fx'=1' Result=> varSuccessCount
46
        Variables.AddRowToDataTable.AppendRowToDataTable DataTable: $fx'=varResultsTable' RowToAdd: $fx'[${varProcessedCount}, Success, ]'
47
 
48
    END
49
 
50
    SET varCurrentMessage TO $fx'Item ${varProcessedCount} done — S: ${varSuccessCount} F: ${varFailCount}'
51
 
52
END
53
 
54
LABEL 'QueueComplete'
55
SET varCurrentMessage TO $fx'Queue complete — ${varProcessedCount} processed, ${varSuccessCount} success, ${varFailCount} failed'
56
**ENDREGION

1
**REGION Write Results Report
2
SET varResultsPath TO $'''C:\\\\Data\\\\Output\\\\QueueResults.csv'''
3
SET varCurrentMessage TO $fx'Writing results to: ${varResultsPath}'
4
 
5
File.WriteToCSVFile.WriteCSV VariableToWrite: $fx'=varResultsTable' CSVFile: $fx'=${varResultsPath}' CsvFileEncoding: File.CSVEncoding.UTF8 IncludeColumnNames: True IfFileExists: File.IfFileExists.Overwrite ColumnsSeparator: File.CSVColumnsSeparator.SystemDefault
6
ON ERROR REPEAT 1 TIMES WAIT 2
7
END
8
 
9
SET varCurrentMessage TO $fx'Results written: ${varSuccessCount} success, ${varFailCount} failed'
10
**ENDREGION