How to extract the session name?

John,

 

If what you want to extract is the “Session Long Name”;, then you can get this by using:

 

           ;     strLongName = Host.CfgXXX.Longname

 

If you want the profile name, then use:

 

           ;     strProfileName = Host.CfgXXX.Profile

 

Note: ; Replace CfgXXX with the proper object name: ; Cfg3270, Cfg5250 or CfgVT

 

Look in the CfgXXX (Configuration object) which is an object within the Host object. It contains many configuration properties.

 

Regards,

 

Pierre

 

 

All:

 

I’m going to ask an easy one (hopefully).  I for the life of me can’t figure out how to extract the session name (or profile name) from within H’Bird basic.  I know I’ll can eventually figure it out, but I’ve been at this for three days and I need to get past this.

 

What I’m looking to do is determine if a session is already running, and if it isnR17;t, start it.  I can come up with the ShortName, UniqueSessionID, etc – but not the actual name of the session.  I want to use it in something like this (taken as an example from the HostExplorer programming guide):

 

Sub Main

          Dim HE as Object

          Dim Host as Object

          Set HE = CreateObject( “HostExplorer”)

 

          Set Host = Nothing        ;  216;Prepares ‘Next’ method to get the first host

 

          For I = 1 to HE.Hosts.Count

           ;        Set Host = HE.Hosts.Next(Host)

           ;        MsgBox “The current short name is: “ + Host.ShortName

          Next I

 

End Sub

 

 

If I don’t find the session name in this loop, I can open it.  There also may be a better way of doing this, and if so I would appreciate any direction offered.

 

I know I can assign a SessionShortName in the profile, but I’d rather not do that because I don’t want to have to supply the .HEP file to folks using the script.

 

Thanks in advance!

 

-jrt