24-12-19 01:36 PM
27-12-19 08:34 AM
02-01-20 09:16 AM
02-01-20 12:33 PM
We are also using IBM Mainframe Application in our company. The attach also never worked for us.
I used the informations on this page:
To create codestage functions in the HOST business object like:
Read from HOST
Dim autECLPSObj As Object autECLPSObj = CreateObject ("PCOMM.autECLPS") autECLPSObj.SetConnectionByName("A") DIM autECLOIA as Object autECLOIA = CreateObject("PCOMM.autECLOIA") autECLOIA.SetConnectionByName("A") if (autECLOIA.WaitForInputReady()) then outputstring = autECLPSObj.GetTextRect(y,x,y,(x+zeichen-1)) end if
Write to HOST
Dim autECLPSObj As Object autECLPSObj = CreateObject ("PCOMM.autECLPS") autECLPSObj.SetConnectionByName("A") DIM autECLOIA as Object autECLOIA = CreateObject("PCOMM.autECLOIA") autECLOIA.SetConnectionByName("A") if (autECLOIA.WaitForInputReady()) then autECLPSObj.SetCursorPos(y,x) autECLPSObj.SendKeys (Inputstring) end if
Set Cursor
Dim autECLPSObj As Object autECLPSObj = CreateObject ("PCOMM.autECLPS") autECLPSObj.SetConnectionByName("A") DIM autECLOIA as Object autECLOIA = CreateObject("PCOMM.autECLOIA") autECLOIA.SetConnectionByName("A") if (autECLOIA.WaitForInputReady()) then autECLPSObj.SetCursorPos(y,x) end if
Send Key to HOST
Dim autECLPSObj As Object autECLPSObj = CreateObject ("PCOMM.autECLPS") autECLPSObj.SetConnectionByName("A") DIM autECLOIA as Object autECLOIA = CreateObject("PCOMM.autECLOIA") autECLOIA.SetConnectionByName("A") if (autECLOIA.WaitForInputReady()) then autECLPSObj.SendKeys (translated_Inputkey) end if
29-10-20 02:48 PM
29-10-20 07:37 PM
29-10-20 08:08 PM
30-10-20 03:10 AM
30-10-20 03:20 AM
30-10-20 10:21 AM