Example: lr.end_transaction
Example 1 - Simple Transaction
The sample below illustrates timing the duration of a method call getStockList. The sample code does not check for exceptions.
lr.start_transaction("GetStocks");
orStockServer1.getStockList();
lr.end_transaction ("GetStocks", lr.PASS);
Example 2 - Conditional transaction sample
The sample below illustrates timing the duration of the same sample code, however it adds checks for exceptions and ensures that the getStockList() method returns an non-zero length array.
Dim Stocks as String lr.start_transaction"GetStocks" On Error GoTo ErrorHandler Stocks = getStockList() if len(Stocks)= 0 then lr.end_transaction "GetStocks", lr.FAIL lr.message "No stocks returned" else lr.end_transaction "GetStocks", lr.PASS end if lr.message "Pass" Action = lr.PASS Exit Function ErrorHandler: Action = lr.FAIL lr.message "Fail"