Read a File

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