Embedded Files
Sub RingRead()
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 H:\FL-CPTP-FS3\Ring\RingInfoFile.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("H:\FL-CPTP-FS3\Ring\RingInfoFile.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
counter = 0
myNum = 2000
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
line1 = ts.ReadLine 'Account Numbers
If line1 = "" Then
MsgBox "No more accounts. Ending Ring Search. "
End
End If
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.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
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
Call ibmCurrentScreen.SendKeys("re01")
Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Transmit)
BTCHIDColumn = ibmCurrentScreen.GetText("5", "67", "1")
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Tab)
Call ibmCurrentScreen.MoveCursorTo1("1", "17")
'Wait for the cursor to be position correctly before continuing
returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 1, 17)
If (returnValue <> ReturnCode_Success) Then
Call CursorPos
End If
If Month(Now) = "1" Then Call ibmCurrentScreen.SendKeys("01")
If Month(Now) = "2" Then Call ibmCurrentScreen.SendKeys("02")
If Month(Now) = "3" Then Call ibmCurrentScreen.SendKeys("03")
If Month(Now) = "4" Then Call ibmCurrentScreen.SendKeys("04")
If Month(Now) = "5" Then Call ibmCurrentScreen.SendKeys("05")
If Month(Now) = "6" Then Call ibmCurrentScreen.SendKeys("06")
If Month(Now) = "7" Then Call ibmCurrentScreen.SendKeys("07")
If Month(Now) = "8" Then Call ibmCurrentScreen.SendKeys("08")
If Month(Now) = "9" Then Call ibmCurrentScreen.SendKeys("09")
If Month(Now) = "10" Then Call ibmCurrentScreen.SendKeys("10")
If Month(Now) = "11" Then Call ibmCurrentScreen.SendKeys("11")
If Month(Now) = "12" Then Call ibmCurrentScreen.SendKeys("12")
If Day(Now) = "1" Then Call ibmCurrentScreen.SendKeys("01")
If Day(Now) = "2" Then Call ibmCurrentScreen.SendKeys("02")
If Day(Now) = "3" Then Call ibmCurrentScreen.SendKeys("03")
If Day(Now) = "4" Then Call ibmCurrentScreen.SendKeys("04")
If Day(Now) = "5" Then Call ibmCurrentScreen.SendKeys("05")
If Day(Now) = "6" Then Call ibmCurrentScreen.SendKeys("06")
If Day(Now) = "7" Then Call ibmCurrentScreen.SendKeys("07")
If Day(Now) = "8" Then Call ibmCurrentScreen.SendKeys("08")
If Day(Now) = "9" Then Call ibmCurrentScreen.SendKeys("09")
If Day(Now) = "10" Then Call ibmCurrentScreen.SendKeys("10")
If Day(Now) = "11" Then Call ibmCurrentScreen.SendKeys("11")
If Day(Now) = "12" Then Call ibmCurrentScreen.SendKeys("12")
If Day(Now) = "13" Then Call ibmCurrentScreen.SendKeys("13")
If Day(Now) = "14" Then Call ibmCurrentScreen.SendKeys("14")
If Day(Now) = "15" Then Call ibmCurrentScreen.SendKeys("15")
If Day(Now) = "16" Then Call ibmCurrentScreen.SendKeys("16")
If Day(Now) = "17" Then Call ibmCurrentScreen.SendKeys("17")
If Day(Now) = "18" Then Call ibmCurrentScreen.SendKeys("18")
If Day(Now) = "19" Then Call ibmCurrentScreen.SendKeys("19")
If Day(Now) = "20" Then Call ibmCurrentScreen.SendKeys("20")
If Day(Now) = "21" Then Call ibmCurrentScreen.SendKeys("21")
If Day(Now) = "22" Then Call ibmCurrentScreen.SendKeys("22")
If Day(Now) = "23" Then Call ibmCurrentScreen.SendKeys("23")
If Day(Now) = "24" Then Call ibmCurrentScreen.SendKeys("24")
If Day(Now) = "25" Then Call ibmCurrentScreen.SendKeys("25")
If Day(Now) = "26" Then Call ibmCurrentScreen.SendKeys("26")
If Day(Now) = "27" Then Call ibmCurrentScreen.SendKeys("27")
If Day(Now) = "28" Then Call ibmCurrentScreen.SendKeys("28")
If Day(Now) = "29" Then Call ibmCurrentScreen.SendKeys("29")
If Day(Now) = "30" Then Call ibmCurrentScreen.SendKeys("30")
If Day(Now) = "31" Then Call ibmCurrentScreen.SendKeys("31")
Call ibmCurrentScreen.SendControlKey(Month(Now))
'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", "21")
'Wait for the cursor to be position correctly before continuing
returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 1, 21)
If (returnValue <> ReturnCode_Success) Then
Call CursorPos
End If
Call ibmCurrentScreen.SendKeys(Year(Now))
Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Tab)
Call ibmCurrentScreen.SendKeys(line1)
Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Transmit)
'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("8", "17")
'Wait for the cursor to be position correctly before continuing
returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 8, 17)
If (returnValue <> ReturnCode_Success) Then
Call CursorPos
End If
DCColumn = ibmCurrentScreen.GetText("8", "17", "1")
If DCColumn = "D" Then
MsgBox "An item for account " & line1 & " was found. "
Dim RetVal
RetVal = Shell("H:\My Documents\AHK2\Ring\CloseRing2.exe", 1) ' Close Ring2.
PaperColumn = ibmCurrentScreen.GetText("4", "75", "1")
Call RingPullAcctInfo.RingPullAcctInfo
Do While BTCHIDColumn <> "1"
BTCHIDColumn = ibmCurrentScreen.GetText("5", "67", "1")
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
Loop
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
End If
If DCColumn = "C" Then
MsgBox "An item for account " & line1 & " was found. "
Do While BTCHIDColumn <> "1"
BTCHIDColumn = ibmCurrentScreen.GetText("5", "67", "1")
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
Loop
BTCHIDColumn = ibmCurrentScreen.GetText("5", "67", "1")
'Wait for host to 'be quiet' before continuing
returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)
If (returnValue <> ReturnCode_Success) Then
Call HostQuiet
End If
End If
'MsgBox "The loop made " & counter & " repetitions. " & line1 & " Acct "
Loop
ts.Close
'Sequence to input information
End Sub
Page updated
Google Sites
Report abuse