Disconnect Session

SkipVought · Dec 15, 2008

I am running VBA in Excel, an unattended process, where I create an Extra System object, a session, a screen, log in to an IMS session on the mainframe, do stuff, then...

here's where I am experiencing my "opportunity."

When I

Code:

    oSystem.Quit

I get a 'Yes/No' message box...

Extra!Personal Client
Do you want to disconnect session 'session name'?

How can I dispose of this message via code?

Skip,
_{Just traded in my old subtlety...

for a NUANCE!}

SkipVought · Dec 15, 2008

I posted in Forum707 as well, since I am running VBA.

I got a response from DaveInIowa that helped me to solve this problem, thread707-1519452.

Make the SESSION Visible property FALSE.
Then Quit the System object.

Skip,
_{Just traded in my old subtlety...

for a NUANCE!}

tps14334 · May 4, 2009

Could you share the code you use to launch extra, load a session, execute a macro, and how you closed it?

SkipVought · May 4, 2009

Code:

sub Main()
    IMS_Login
    
    Step2

    oSess.Visible = False
    oSystem.Quit
    Set oScrn = Nothing
    Set oSess = Nothing
    Set oSystem = Nothing
End sub
Sub IMS_Login(Optional bContinue As Boolean = True)
    

    Dim bLogin As Boolean
    
    Set oSystem = CreateObject("Extra.System")
    
    sPath = "C:\Program Files\E!PC\65Backup\Sessions"
    sFile = "MVSB1 Session1.EDP"
    
    If oSystem.Sessions.Count = 0 Then
        Set oSess = oSystem.Sessions.Open(sPath & "\" & sFile)
'        ufmPassword.Show
        bLogin = True
    Else
        Set oSess = oSystem.ActiveSession
        bLogin = False
    End If
    
    With oSess
        .Visible = True
        .WindowState = xNORMAL
    End With

    Set oScrn = oSess.Screen
    If (oScrn Is Nothing) Then GoTo ExitMacro
    
    oSystem.TimeoutValue = 100
    
    With oScrn
        If bLogin Then
        ' BHT SignOn
            Do Until .WaitForCursor(17, 28)
                DoEvents
            Loop
            .Area(17, 28, 17, 28) = "S"
            .SendKeys ("<ENTER>")
        ' Login
            Do Until .WaitForCursor(14, 37)
                DoEvents
            Loop
            .Area(14, 37, 14, 46) = fOSUserName()
            .Area(15, 37, 15, 46) = vPassword
            .SendKeys ("<ENTER>")
        ' SuperSession
            Do Until .WaitForCursor(9, 2)
                DoEvents
            Loop
            .Area(11, 2, 11, 2) = "S"
            .SendKeys ("<ENTER>")
        ' IMS Ready
        End If
    End With

ExitMacro:
    If bContinue Then Exit Sub
    Set oScrn = Nothing
    Set oSess = Nothing
    Set oSystem = Nothing
End Sub


Skip,
[sup][glasses]Don't let the [b]Diatribe[/b]...
talk you to death![tongue][/sup][sub]
[glasses]Just traded in my old subtlety...
[b]for a NUANCE![/b][tongue][/sub]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Disconnect Session

SkipVought

Programmer

SkipVought

Programmer

tps14334

Technical User

SkipVought

Programmer

Similar threads

Part and Inventory Search

Sponsor