Does Rocket Bluezone has any session timeout to prevent working after certain time?

981 Views Asked by At
Sub Fullflow()
Dim WorkBookName As String
Dim Host
bookname = Application.ThisWorkbook.Path
WorkBookName = "" & bookname & "\MasterSheetFetchJob.xlsm"
Set src = Workbooks.Open(WorkBookName, True, True)
iTotalRows = src.Worksheets("CardDetails").Cells(Rows.Count, 1).End(xlUp).row
GetCardNumber
'If GetCardNumber Returns atleast one card then run the rest of the jobs.
If iTotalRows > 1 Then
    GenerateCVV
    GeneratePINBLOCK
    GenerateATC
    GetNameAndCurrency
    updateTestData
    updateMaxAndMinAmountInTestDataSheet
    updatePinBlockCountInTestData
    updateChipFallbackinTestData
    updateAmountFieldForInsufficientFunds
    RestartLine
Else
    Set Host = CreateObject("BZWhll.WhllObj")
    Retval = Host.Connect("A")
    Host.WaitReady 10, 2000
    Host.Exit
End If
End Sub

I have written few independent function combining all in one flow..

GetCardNumber alone opens the Rocket Bluezone Mainframe TN3270 Emulator.. I am not closing emaulator until it runs RestartLine..

Other than GetCardNumber every function has this function to connect mainframe emulator.

Set Host = CreateObject("BZWhll.WhllObj")
Retval = Host.Connect("A")

In my local, all functions working perfectly if i run Fullflow macro..

But in one of the others machine, it runs until 15 mins (all the 15 mins it is doing job and it is not in inactivity state), after that it is not connecting to Mainframe using code but i am able to interact emualtor with Manually.. After 15 mins, the code is not running.. Is there any configuration settings or anything which prevents this to run..?

I am using Bluezone 7.1.8 and the other machine has 7.1.6.. Is this causing issue or any configuration?

0

There are 0 best solutions below