Sub Read()
Dim hostSettleTimeout As Integer
Dim hostSettleTime As Integer
Dim ibmCurrentScreen As IbmScreen
Dim ibmCurrentTerminal As IbmTerminal
Dim returnValue As Integer
Dim hiddenTextEntry As String
hostSettleTimeout = 5000
hostSettleTime = 300
Set ibmCurrentTerminal = ThisFrame.SelectedView.control
Set ibmCurrentScreen = ibmCurrentTerminal.Screen
' Reading File from C:\My Documents\File.txt
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, line1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\My Documents\File.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
line1 = ts.ReadLine ' First Line on File
ts.Close
' Sequence to input information Sample
Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Clear)
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
Call ibmCurrentScreen.MoveCursorTo1("1", "1")
'Wait for the cursor to be position correctly before continuing
returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 1, 1)
If (returnValue <> ReturnCode_Success) Then
Call CursorPos
End If
Call ibmCurrentScreen.SendKeys(line1) ' First Line on File
Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Transmit)
End Sub