|
|
|
Getting the OIA contents with SDK
Technical Note 1.0.9737482.3403544
Created 05-Oct-2001
Applies To
e-Vantage SDK 2.2.3
Goal
Getting the OIA contents with SDKFix
You would use the getOIAContents function as follows:Set screenObj = Session("SessScreenObj")
'Declare var to hold our Host data.
Dim OIAData
OIAData = screenObj.getOIAContents
'Display Host Data 'Displays
Response.Write ("Byte 1: (Emulator Type): " & Asc(mid(OIAData, 1, 1)) & "<br>")
Response.Write ("Byte 84: (Connection status): " & Asc(mid(OIAData, 84, 1)) & "<br>")
Response.Write ("Byte 86: (Current page number): " & Asc(mid(OIAData, 86, 1)) & "<br>")
Response.Write ("Byte 87: (Total number of pages): " & Asc(mid(OIAData, 87, 1)) & "<br>")
Response.Write ("Byte 88: (Editing mode): " & Asc(mid(OIAData, 88, 1)) & "<br>")
Response.Write ("Byte 89: (Forms mode): " & Asc(mid(OIAData, 89, 1)) & "<br>")
Response.Write ("Byte 90: (Transmit mode): " & Asc(mid(OIAData, 90, 1)) & "<br>")
Response.Write ("Byte 91: (Control mode): " & Asc(mid(OIAData, 91, 1)) & "<br>")
Response.Write ("Byte 92: (Receive mode): " & Asc(mid(OIAData, 92, 1)) & "<br>")
Response.Write ("Byte 93: (LTAI): " & Asc(mid(OIAData, 93, 1)) & "<br>")
Response.Write ("Byte 94: (Enquire mode): " & Asc(mid(OIAData, 94, 1)) & "<br>")
Response.Write ("Byte 95: (Search mode): " & Asc(mid(OIAData, 95, 1)) & "<br>")
Response.Write ("Byte 96: (Transmit line mode): " & Asc(mid(OIAData, 96, 1)) & "<br>")
Response.Write ("Byte 104: (User message): " & Asc(mid(OIAData, 104, 15)) & "<br>")
'Close Object
Set screenObj = Nothing
