Read File

Sub ReadAccount()

Dim hostSettleTimeout As Integer

Dim hostSettleTime As Integer

Dim osCurrentScreen As Screen

Dim osCurrentTerminal As Terminal

Dim returnValue As Integer

Dim hiddenTextEntry As String

hostSettleTimeout = 5000

hostSettleTime = 300

Set osCurrentTerminal = ThisFrame.SelectedView.control

Set osCurrentScreen = osCurrentTerminal.Screen

' Sequence to input information Sample

Call ContractInquiry

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(200)

' Reading File from P:\File\Auto_Process\AccountNumber.txt

Dim MyString, MyString2, MyNumber

Open "P:\File\Auto_Process\AccountNumber.txt" For Input As #1 ' Open file for input.

Input #1, MyString, MyString2 ' Read data into two variables.

Call osCurrentScreen.SendKeys(MyString) ' First Line on File

osCurrentScreen.SendControlKey ControlKeyCode_Enter

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(100)

Call osCurrentScreen.SendKeys(MyString2) ' First Line on File

osCurrentScreen.SendControlKey ControlKeyCode_Enter

Close #1 ' Close file.

End Sub