Skip to content

ZosNetwork

The ZosNetwork object represents the overall ZDD Network. ZosNetwork is always the starting point for ChangeMan ZDD Automation. It is created as follows:

Visual Basic or VBScript:

Dim objNetwork
    Set objNetwork = CreateObject("ZosCom.ZosNetwork")

JScript:

var objNetwork; 
    objNetwork = new ActiveXObject("ZosCom.ZosNetwork");

The COM program ID used to access ChangeMan ZDD has changed to ZosCom.ZosNetwork. For backward compatibility, the old program ID of ZosShell.Network will still work. However, ZosShell.ZosNetwork has been deprecated, and you should begin using ZosCom.ZosNetwork instead.

ZosNetwork Properties

ZosNetwork exposes the following properties:

Property Type R/W Description
Servers Object (IZosServers) R Collection of all servers.
Server (strName) Object (IZosServer) R Server with specified name.
CacheFolder String R/W Name of folder used to store cached files.
CacheDays Integer (long) R/W Number of days to keep cached files.
SystemSettingsFolder String R/W The system settings folder allows you to share system settings, server configuration, and security controls, between machines. This folder is optional. You can export the system settings from one machine into a shared folder. The system settings are automatically imported from this folder each time the system is booted.
UserSettingsFolder String R/W The user settings folder is used to save user configuration such as folders and filters. You can share settings between machines by using a shared folder. This is a system-wide setting, but the path name can include environment variables, such as %USERNAME% to make the folder user-specific.
NotifyPort Integer (long) R/W TCP/IP port number used to receive notification messages from the server. This port number should be unblocked on your local machine in the Windows firewall or other firewall software.
NotifyDelay Integer (long) R/W Time delay, in seconds, before a message box is displayed. The time delay allows messages to accumulate so that several messages can be displayed in a single message box.
NotifyMessageBox Boolean R/W Display message box for notify messages.
AsciiCodePage Integer (long) R/W Windows code page number.
TimeOut Integer (long) R/W Network timeout interval, in minutes. Network operations are aborted if no response is received after this period of time. Must be in the range 3 - 30 minutes.
KeepAlive Integer (long) R/W TCP/IP keep alive time interval, in minutes. TCP/IP keep alive packets are sent after this many minutes of inactivity to detect lost connections.

ZosNetwork Methods

ZosNetwork exposes the following methods:

StartNetwork Method

Start the ZDD Network service. This service provides all communication with z/OS servers.

StartNetwork()

StopNetwork Method

Stop the ZDD Network service. This service provides all communication with z/OS servers.

StopNetwork()

ExportUserSettings method

Exports user settings to a file in the specified folder. User settings are those settings that are userspecific, such as “DataSets”, “Jobs”, or “Unix” folder definitions, as well as filters, such as “Applications”, “Packages”, or “Releases” filters. 

ExportUserSettings(
    strFolder
    )

ImportUserSettings Method

Imports user settings from a file in the specified folder. User settings are those settings that are userspecific, such as “DataSets”, “Jobs”, or “Unix” folder definitions, as well as filters, such as “Applications”, “Packages”, or “Releases” filters. 

ImportUserSettings(
    strFolder
    )

...

Examples of getting or setting network properties:

Visual Basic or VBScript:

Dim objNetwork
    Dim objServers
    Dim objServer
    Set objServers = objNetwork.Servers
    Set objServer = objNetwork.Server("SYSA")
    objNetwork.CacheFolder = "C:\Temp"
    objNetwork.CacheDays = 3
    objNetwork.NotifyPort = 4000
    objNetwork.NotifyDelay = 60
    objNetwork.NotifyMessageBox = True
    objNetwork.AsciiCodePage = 1252

JScript:

var objNetwork;
    var objServers;
    var objServer;
    objServers = objNetwork.Servers;
    objServer = objNetwork.Server("SYSA")
    objNetwork.CacheFolder = "C:\\Temp";
    objNetwork.CacheDays = 3;
    objNetwork.NotifyPort = 4000;
    objNetwork.NotifyDelay = 60;
    objNetwork.NotifyMessageBox = true;
    objNetwork.AsciiCodePage = 1252

...

Back to top