Is there any UDF For Attachmate Extra Mainframe Sessions?

[Gowrisankar]

Good day to the members of the forum.. 

Is there any UDF that is available to automate Attachmate Extra Mainframe sessions?

I am trying to automate mainframe processes. I couldn't get values from particular co-ordinates in mainframe or pass values to particular co-ordinates in mainframe.

Please let me know if there is any UDF or any other kind of solution is available. 

Thanks and regards,

Gowrisankar R.

[mLipok]

  On 3/30/2017 at 11:34 AM, Gowrisankar said:

Attachmate Extra Mainframe sessions

Expand  

Do you think about this ?

http://docs.attachmate.com/extra/x-treme/apis/com/

 

[Gowrisankar]

Yes mLipok, This is exactly what I'm looking for. I tried it.. Its working for me. Thanks a lot...

But I couldn't figure how to send waithostquiet. I tried the following. But it didn't work.

$Sess0.Screen.WaitHostQuiet(3000) ; A WAIT HOST QUIET TIME OF 3 SECONDS

Can you please advice?

Edited March 30, 2017 by Gowrisankar

[mLipok]

Make a small testing script for connecting and showing your problem. (of coruse without license keys)

Post it here.

And post link to related part of Reference/Documentation on the developer page.

 

Edited March 30, 2017 by mLipok

[Gowrisankar]

The following is my code mLipok.. 

 

expandcollapse popup

#include <MsgBoxConstants.au3>

Global $g_HostSettleTime

Global $Sessions
Global $System
Global $SessionName
Global $Sess0

Main()

Func Main()

   $System = ObjCreate("EXTRA.System")
   If Not IsObj($System) Then
      MsgBox($MB_ICONERROR, "Error", "Could not create the EXTRA System object.  Stopping macro playback.")
      Exit
   EndIf

   $Sessions = $System.Sessions
   If Not IsObj($Sessions) Then
      MsgBox($MB_ICONERROR, "Error", "Could not create the Sessions collection object.  Stopping macro playback.")
      Exit
   EndIf

   $g_HostSettleTime = 5000
   $OldSystemTimeout = $System.TimeoutValue
   If $g_HostSettleTime > $OldSystemTimeout Then $System.TimeoutValue = $g_HostSettleTime

   $SessionName = "NameOfMainframeSession.EDP"
   $Sess0 = $Sessions.Open($SessionName)

   If Not IsObj($Sess0) Then
      MsgBox($MB_ICONERROR, "Error", "Could not create the Session object.  Stopping macro playback.")
      Exit
   EndIf
   If Not $Sess0.Visible Then $Sess0.Visible = True


   $Sess0.Screen.Putstring("ISM", 23, 48)
   $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)
   $Sess0.Screen.Sendkeys("<ENTER>")
   $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)

EndFunc

I couldn't show any error message. Because there is no error message populated. The code runs without considering the WaitHostQuiet.

 

[mLipok]

How this works ?
You are connecting to the object which exist and is authorized (license) only when you have running normal standalone GUI APP (manufacutred by dev team) ?
If so I suppose that connecting process is made by hand ?

 

[Gowrisankar]

I'm sorry I couldn't understand your question mLipok.. 

The mainframe sessions are installed in my computer and I am given access to the sessions. 

Edited March 30, 2017 by Gowrisankar

[mLipok]

  On 3/30/2017 at 1:50 PM, Gowrisankar said:

The mainframe sessions are installed in my computer and I am given access to the sessions. 

Expand  

How you start connection ?
Via script or separate GUI based APP ?
 

Sorry for all my questions but I do not have time for reading docs for this AcitveX Object.

Edited March 30, 2017 by mLipok

[Gowrisankar]

No problem mLipok.. 

I am starting the connection through autoit script only.. 

[mLipok]

ok
So as I suppose you are connecting here:

$SessionName = "NameOfMainframeSession.EDP"
   $Sess0 = $Sessions.Open($SessionName)

 

 

  On 3/30/2017 at 1:36 PM, Gowrisankar said:

I couldn't show any error message. Because there is no error message populated. The code runs without considering the WaitHostQuiet.

Expand  

I do not see you any COM Error Handler you should add one.

Read about:

ObjEvent()

 

[Gowrisankar]

Yes.. correct.. That is the place where it is connected.

I'll try the 

ObjEvent()

and let you know.. Thanks so much.. 

[mLipok]

Hello.
I'm intrested in, did you do any progress ?

 

[Gowrisankar]

Hi mLipok, I couldn't make any further progress in it. 

Your interest in this motivates me..  

I'll definitely try and let you know.. 

[junkew]

maybe here some help although it seems you are lucky with activeX component

 

[Gowrisankar]

Thanks @junkew

I'll try it as well..