Flags

Sub AXCISATMDep()

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

Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Clear)

Dim RetVal

RetVal = Shell("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDep.exe", 1) ' Run AXCISATMDep.exe.

'Reading File from H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim fs, f, ts, line1, line2

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt")

Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

line1 = ts.ReadLine 'Flag set to 1

ts.Close

'Sequence to input information

If line1 = "1" Then

'Reading File from H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepInfoFile.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepInfoFile.txt")

Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

line1 = ts.ReadLine 'Date

line2 = ts.ReadLine 'First 8 of Date

line3 = ts.ReadLine 'Last 6 of Date (Time)

line4 = ts.ReadLine 'Year

line5 = ts.ReadLine 'Month/Day

line6 = ts.ReadLine 'Month

line7 = ts.ReadLine 'Day

ts.Close

'Sequence to input information

'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("axcis")

Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Transmit)

Call ibmCurrentScreen.SendKeys("czee006s")

Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Tab)

Call ibmCurrentScreen.SendKeys(line6) 'Month

Call ibmCurrentScreen.SendKeys(line7) 'Day

Call ibmCurrentScreen.SendKeys(line4) 'Year

Call ibmCurrentScreen.MoveCursorTo1("11", "21")

'Wait for the cursor to be position correctly before continuing

returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 11, 21)

If (returnValue <> ReturnCode_Success) Then

Call CursorPos

End If

Call ibmCurrentScreen.SendKeys("=")

Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Transmit)

Call ibmCurrentScreen.MoveCursorTo1("2", "15")

'Wait for the cursor to be position correctly before continuing

returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 2, 15)

If (returnValue <> ReturnCode_Success) Then

Call CursorPos

End If

'Writing File to H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt", True)

a.WriteLine ("0")

a.Close

End If

If line1 = "0" Then

'Reading File from H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt")

Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

line1 = ts.ReadLine 'Flag set to 1

ts.Close

'Sequence to input information

Dim Check

Check = True

Do ' Outer loop.

Do While line1 = "0" ' Test value.

'Wait for host to 'be quiet' before continuing

returnValue = ibmCurrentScreen.WaitForHostSettle(hostSettleTimeout, hostSettleTime)

If (returnValue <> ReturnCode_Success) Then

Call HostQuiet

End If

'Reading File from H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt")

Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

line1 = ts.ReadLine 'Flag set to 1

ts.Close

'Sequence to input information

If line1 = "1" Then ' Changed to 1.

Check = False

Exit Do

End If

Loop ' End loop when = 1.

Loop Until Check = False

'Reading File from H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepInfoFile.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepInfoFile.txt")

Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

line1 = ts.ReadLine 'Date

line2 = ts.ReadLine 'First 8 of Date

line3 = ts.ReadLine 'Last 6 of Date (Time)

line4 = ts.ReadLine 'Year

line5 = ts.ReadLine 'Month/Day

line6 = ts.ReadLine 'Month

line7 = ts.ReadLine 'Day

ts.Close

'Sequence to input information

'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("axcis")

Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Transmit)

Call ibmCurrentScreen.SendKeys("czee006s")

Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Tab)

Call ibmCurrentScreen.SendKeys(line6) 'Month

Call ibmCurrentScreen.SendKeys(line7) 'Day

Call ibmCurrentScreen.SendKeys(line4) 'Year

Call ibmCurrentScreen.MoveCursorTo1("11", "21")

'Wait for the cursor to be position correctly before continuing

returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 11, 21)

If (returnValue <> ReturnCode_Success) Then

Call CursorPos

End If

Call ibmCurrentScreen.SendKeys("=")

Call ibmCurrentScreen.SendControlKey(ControlKeyCode_Transmit)

Call ibmCurrentScreen.MoveCursorTo1("2", "15")

'Wait for the cursor to be position correctly before continuing

returnValue = ibmCurrentScreen.WaitForCursor1(hostSettleTimeout, 2, 15)

If (returnValue <> ReturnCode_Success) Then

Call CursorPos

End If

'Writing File to H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("H:\FL-CPTP-FS3\AHK Reflections\AHKs\AXCISATMDep\AXCISATMDepFlag.txt", True)

a.WriteLine ("0")

a.Close

End If

End Sub

Page updated

Google Sites

Report abuse