Jump to content

Automate Mainframe application


Chikku
 Share

Recommended Posts

Which emulation program do you run (PC3270 ...)?

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

I think it depends on the company providing the product how you can access the mainframe from AutoIt.
Is it from IBM or ...?

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

Its IBM - PC3270.

This is the macro I have recorded by using the Tool ----Macro.

 I want to know how I can automate it to perform the data to be copied from XL sheet and paste in the required fields.

' Global variable declarations

Global g_HostSettleTime%

Global g_szPassword$

 

Sub Main()

'--------------------------------------------------------------------------------

' Get the main system object

                Dim Sessions As Object

                Dim System As Object

                Set System = CreateObject("EXTRA.System")     ' Gets the system object

                If (System is Nothing) Then

                                Msgbox "Could not create the EXTRA System object.  Stopping macro playback."

                                STOP

                End If

                Set Sessions = System.Sessions

 

                If (Sessions is Nothing) Then

                                Msgbox "Could not create the Sessions collection object.  Stopping macro playback."

                                STOP

                End If

'--------------------------------------------------------------------------------

' Set the default wait timeout value

                g_HostSettleTime = 3000                              ' milliseconds

 

                OldSystemTimeout& = System.TimeoutValue

                If (g_HostSettleTime > OldSystemTimeout) Then

                                System.TimeoutValue = g_HostSettleTime

                End If

 

' Get the necessary Session Object

                Dim Sess0 As Object

                Set Sess0 = System.ActiveSession

                If (Sess0 is Nothing) Then

                                Msgbox "Could not create the Session object.  Stopping macro playback."

                                STOP

                End If

                If Not Sess0.Visible Then Sess0.Visible = TRUE

                Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

               

' This section of code contains the recorded events

                Sess0.Screen.Sendkeys("<Tab><Right><Right><Right><Right>71<Enter>")        

                Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

                Sess0.Screen.Paste        

                Sess0.Screen.Sendkeys("<Enter>")        

                Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

                Sess0.Screen.Sendkeys("<Enter>")        

                Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

                Sess0.Screen.Sendkeys("4<Enter>")     

                Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

                Sess0.Screen.Copy         

                Sess0.Screen.Sendkeys("<Tab>54<Enter>")      

                Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

                Sess0.Screen.Paste        

                Sess0.Screen.Sendkeys("<Enter>")        

                Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

 

                System.TimeoutValue = OldSystemTimeout

End Sub

 

 

Link to comment
Share on other sites

Maybe something like this:

#include <MsgBoxConstants.au3>
; Global variable declarations
Global $g_HostSettleTime
Global $g_szPassword

Main()

Func Main()
    ;--------------------------------------------------------------------------------
    ; Get the main system object
    Local $Sessions, $System
    $System = ObjCreate("EXTRA.System") ; Gets the system object
    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
    ;--------------------------------------------------------------------------------
    ; Set the default wait timeout value
    $g_HostSettleTime = 3000 ; milliseconds
    $OldSystemTimeout = $System.TimeoutValue
    If $g_HostSettleTime > $OldSystemTimeout Then $System.TimeoutValue = $g_HostSettleTime
    ; Get the necessary Session Object
    Local $Sess0
    $Sess0 = $System.ActiveSession
    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.WaitHostQuiet($g_HostSettleTime)
    ; This section of code contains the recorded events
    $Sess0.Screen.Sendkeys("<Tab><Right><Right><Right><Right>71<Enter>")
    $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)
    $Sess0.Screen.Paste
    $Sess0.Screen.Sendkeys("<Enter>")
    $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)
    $Sess0.Screen.Sendkeys("<Enter>")
    $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)
    $Sess0.Screen.Sendkeys("4<Enter>")
    $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)
    $Sess0.Screen.Copy
    $Sess0.Screen.Sendkeys("<Tab>54<Enter>")
    $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)
    $Sess0.Screen.Paste
    $Sess0.Screen.Sendkeys("<Enter>")
    $Sess0.Screen.WaitHostQuiet($g_HostSettleTime)
    $System.TimeoutValue = $OldSystemTimeout
EndFunc   ;==>Main

 

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

@Chikku please provide some link to documentation to this ActiveX object, I mean to this program which you automate.

Long time ago I made something similar but for other ActiveX object, I want to compare features of this two products.

 

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST APIErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskSchedulerIE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related:How to get reference to PDF object embeded in IE * IE on Windows 11

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuffOnHungApp handlerAvoid "AutoIt Error" message box in unknown errors  * HTML editor

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites

It doesn't look like IBM's PC3270 but like Attachmate's EXTRA!
Details about the object model can be found here: http://docs.attachmate.com/extra/x-treme/apis/com/index.htm

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...