1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

AxObjectXMFDisplay Rumba Mainframe Screen Scraper: Unable to Connect to HostSession

Discussion in 'Visual Basic ( VB )' started by Chythrajs, Nov 15, 2010.

  1. Chythrajs

    Chythrajs New Member

    Joined:
    Nov 15, 2010
    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    0
    Hi All,

    I have a VB Project that connects to Mainframe Systems using Rumba Runtime 6.0
    Recently I migrated this VB Project to VB.NET and now i am facing difficulty in consistantly Connecting to the Mainframe Host. Here is the function that is used. The Hostname that I use is a IP Address. Any help is greatly appriciated as this is a rarely used software by people.
    Code:
     
     Public Function TN3270_ConnectToHost(ByRef HostSession As Object, Optional ByRef HostName As Object = Nothing) As Integer
      Dim I As Short
      
      'Return if already connected
      'UPGRADE_WARNING: Couldn't resolve default property of object HostName. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.HostInterface. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            If (UCase(Trim(HostSession.HostInterface.Interface.ConnectedName)) = UCase(Trim(HostName))) Then
                TN3270_ConnectToHost = 0
                Exit Function
            End If
      
      'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.Disconnect. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      HostSession.Disconnect()
      System.Windows.Forms.Application.DoEvents()
      
      'Set host address/name
      'UPGRADE_NOTE: IsMissing() was changed to IsNothing(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="8AE1CB93-37AB-439A-A4FF-BE3B6760BB23"'
      If (Not IsNothing(HostName)) Then
       'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.HostInterface. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
       With HostSession.HostInterface.Interface
        'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.HostInterface. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        For I = .DestinationCount To 0 Step -1
         'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.HostInterface. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
         If (Len(Trim(.DestinationName2(I))) > 0) Then .DeleteName2(.DestinationName2(I))
        Next 
        'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.HostInterface. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        .InsertName2(HostName)
       End With
      End If
      
      'Connect to host
      'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.Connect. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            HostSession.Connect()
      System.Windows.Forms.Application.DoEvents()
      
      'Wait until connected
            If (Utility.GetWindowsVersion Like "5*") Then
                TN3270_ConnectToHost = 0
            Else
                For I = 1 To 60
                    Sleep((500)) : System.Windows.Forms.Application.DoEvents()
                    'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.HostConnected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    If (HostSession.HostConnected) Then
                        If (Len(Trim(TN3270_GetScreen(HostSession))) > 0) Then Exit For
                    End If
                Next
                'UPGRADE_WARNING: Couldn't resolve default property of object HostSession.HostConnected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                TN3270_ConnectToHost = IIf(HostSession.HostConnected, 0, 1)
            End If
      
      Sleep((500))
     End Function
     
    Thanks in Adcance!
    Chythra
     
    Last edited by a moderator: Nov 15, 2010

Share This Page