Chikku

Automate Mainframe application

9 posts in this topic

I am looking for codes to copy the data from Excel sheet and paste it Mainframe application.

 

Kindly help if anyone in the

Share this post


Link to post
Share on other sites



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


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

How to check the emulation. I believe it is 3270.

 

Share this post


Link to post
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 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
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

 

 

Share this post


Link to post
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 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
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:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for 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 API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

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 * Best coding practices * 

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) * 

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 *

"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: 2017-06-04

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
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