G
Guest
I have an application that contains a "session" object. I cannot find any documentation on this object or on its associated methods. Can someone point me in the right direction. Here is sample code in this regard
With Sessio
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMClearKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMClearKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitANSI "rei1
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMEnterKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitANSI loa
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMEnterKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
If .GetFieldText(24, 2, 3) = "ERR" The
MsgBox "You have entered an invalid number, please try again", vbCritical, "Screen Printer
GoTo To
End I
HName = .GetFieldText(2, 2, 40)
With Sessio
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMClearKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMClearKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitANSI "rei1
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMEnterKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitANSI loa
.WaitForEvent rcKbdEnabled, "5", "0", 1,
.TransmitTerminalKey rcIBMEnterKe
.WaitForEvent rcKbdEnabled, "5", "0", 1,
If .GetFieldText(24, 2, 3) = "ERR" The
MsgBox "You have entered an invalid number, please try again", vbCritical, "Screen Printer
GoTo To
End I
HName = .GetFieldText(2, 2, 40)