ActiveX AS/400 Objects - Communications

• ActiveX AS/400 Objects - Communications

• Use this class to process CA/400 environment and connection routines. No CA/400 configuration settings are modified within this class. This call provides connection settings and status.

• Contains a read/write property:

 

Name	Type	Description
AutoMessages	Boolean	Set True to halt and display error messages.

 

• Contains read-only properties:

 

Name	Type	Description
ActiveConversations	Long	Count of active Client Access/400 conversations with optional system name parameter. If system name is not passed, default system name will be used.
ActiveEnvironment	String	Name of active Client Access/400 environment.
ConnectedSystemName	String	Name of connected AS/400 system based on optional index parameter. Index can be from 1 through NumberOfSystems. If index parameter is not passed, 1 is used.
CurrentEnvironment	String	Name of current Client Access/400 environment.
CurrentSystem	String	Name of current AS/400 system.
CurrentUserID	String	Name of current AS/400 user profile based on optional system name parameter. If system name is not passed default system name is used.
DefaultUserID	String	Name of default AS/400 user profile based on optional system name parameter. If system name is not passed default system name is used.
HostVersion	String	Version of AS/400 host licensed program based on optional system name parameter. If system name is not passed default system name is used.
IsSystemConfigured	Boolean	Returns True if required system name parameter is currently configured within optional environment parameter. If environment is not passed, default environment is used.
IsSystemConnected	Boolean	Returns True if optional system name property is currently connected . If system name is not passed default system name is used.
Message	String	Most recent diagnostic message generated.
NextSystemName	String	Returns next system name configured within the current Client Access/400 environment.
RC	Long	Most recent CA/400 dll return code.

• VB, VBA Communications example:

 

Dim oCM As ActiveX_AS400.Communications

Dim nDx As Integer

Set oCM = new ActiveX_AS400.Communications

For nDx = 1 To oCM.NumberOfSystems

comboboxSystems.AddItem oCM.NextSystemName

Next nDx

2003 - Chouinard & Myhre, Inc.