Code Stage Parameter Problem

[matuopm]

I'm trying to read some characters out of a mainframe application window.

I already got 2 functions like this working:
one for sending single keys like F1 and the other one for sending a string at certain coordinates (y=row / x=column).

Dim autECLPSObj As Object
autECLPSObj = CreateObject ("PCOMM.autECLPS")
autECLPSObj.SetConnectionByName("A")
outputstring = autECLPSObj.GetText(y,x,zeichen)

This code gives me an error:

Internal : Could not execute code stage because exception thrown by code stage: ECL37170: Ungültige Parameter. Ungültige Daten.

Dim autECLPSObj As Object
autECLPSObj = CreateObject ("PCOMM.autECLPS")
autECLPSObj.SetConnectionByName("A")
outputstring = autECLPSObj.GetText(1,2,4)

If I hardcode the values ( 1 , 2 , 4 )its working as intended and returns me a string 4 characters long from the coordinates row 1 column 2

 

[janejeba]

Could you please explain what is the use of below mentioned line

CreateObject ("PCOMM.autECLPS")

 

[matuopm]

We use a IBM Mainframe Application Emulator in our company and to use certain functions that interact with that Application I need to create an object first.

To use all the functions I needed had to use 2 Classes:

PCOMM.autECLPS
and
PCOMM.autECLOIA

U can find more code examples on the IBM Page:

https://www.ibm.com/support/knowled...om.ibm.pcomm.doc/books/html/host_access08.htm

 

[Sachin_Kharmale]

I'm trying to read some characters out of a mainframe application window.

I already got 2 functions like this working:
one for sending single keys like F1 and the other one for sending a string at certain coordinates (y=row / x=column).

Dim autECLPSObj As Object
autECLPSObj = CreateObject ("PCOMM.autECLPS")
autECLPSObj.SetConnectionByName("A")
outputstring = autECLPSObj.GetText(y,x,zeichen)

This code gives me an error:

Internal : Could not execute code stage because exception thrown by code stage: ECL37170: Ungültige Parameter. Ungültige Daten.

Dim autECLPSObj As Object
autECLPSObj = CreateObject ("PCOMM.autECLPS")
autECLPSObj.SetConnectionByName("A")
outputstring = autECLPSObj.GetText(1,2,4)

If I hardcode the values ( 1 , 2 , 4 )its working as intended and returns me a string 4 characters long from the coordinates row 1 column 2

Hi Matuopm,

try bellow Code may be it will work for you..

Dim autECLPSObj As Object
autECLPSObj = CreateObject("PCOmm.autECLPS")
autECLPSObj.SetConnectionByName(A" )
outputstring =autECLPSObj.Get Text(Convert.ToInt32(y), Convert.ToInt32(x), Convert.ToInt32(zeichen))

 

[matuopm]

Convert.ToInt32 is a really good hint.
I found another solution in the meanwhile but I'm sure I can use your advice in the future.

Thank you !