This section provides information about installing and running Entire Net-Work in the BS2000 operating system environment. It covers the following topics:
The information in this section uses the substitution variable vrs, which stands for the current version, revision, and system maintenance (SP) level of the product; for example: "WCP621".
Refer to the Entire Net-Work Software AG Product Delivery Report for the names and sequence of the libraries and files on the installation media.
The Entire Net-Work installation media for BS2000 contains all components required to run Entire Net-Work as sequential files:
Entire Net-Work Mainline Processor and Service Routines
Entire Net-Work DCAM Line Driver
Entire Net-Work TCP/IP Line Driver (if ordered)
Adabas components required to run Entire Net-Work if Adabas is not installed
Installation-dependent files
After successful installation, the disk will contain the following LMS libraries:
| Library Name | Description |
|---|---|
| WCPvrs.LIB | Entire Net-Work Main Line and Service Routines |
| WTCvrs.LIB | Entire Net-Work TCP/IP Line Driver (optional) |
All load modules, sources, and jobs are contained in the appropriate libraries.
Verify that any required updates are applied to the WAL 8 libraries so it runs Entire Net-Work and Entire Net-Work TCP/IP Option in BS2000 environments.
For customers wishing to access networks using TCP/IP IPV6, the minimum requirement is Sockets 2.5.
In addition, for customers running BS2000 Sockets 2.0 only, the preparation of the startup of the Sockets subtask has been extended, so please check the following part of the STARTP procedure:
/ DECLARE-VARIABLE - &* then set up the parameters
/ NWBS2SUB(INIT=- &* for the NWBS2SUB task.
/'ENTER-PROC FROM = (LIB = WCP&(VERSION).LIB,-
/ ELE = SUBTASKPROC),-
/ PROC-PAR= (WTCLIB= WTC&(VERSION).LIB,-
/ WCPLIB= WCP&(VERSION).LIB,-
/ DUMP = &(DUMP)),-
/ JOB-CLAS= *STD,-
/ JOB-NAME= NETTCP,-
/ RESOURCE= *PAR(CPU-LIMIT=&TIME),-
/ SYS-OUTP= *DELETE')
The operand in bold in the example is new and is required. Without this additional parameter, the socket subtask will fail to start.
If you are not using Software AG's System Maintenance Aid (SMA), follow the instructions in this section.
Copy the files (data sets) from the supplied installation medium to your disk before you perform the individual installation procedure for each component to be installed.
The way you copy the files depends on the installation method and the medium used:
If you use System Maintenance Aid (SMA), refer to the copy job instructions provided in the System Maintenance Aid documentation.
If you are not using SMA and want to copy the files from CD-ROM, refer to the README.TXT file on the CD-ROM.
If you are not using SMA and want to copy the files from tape, follow the instructions in this section.
This section explains how to copy all files from tape to disk.
This step is not necessary if you have already copied the library
SRVvrs.LIB from another Software AG
installation tape. For further information, refer to the element
#READ-ME in this library. The library
SRVvrs.LIB is stored on the tape as a
sequential file named SRVvrs.LIBS
containing LMS commands. The current version
vrs can be obtained from the
Software AG Product Delivery Report.
Execute the following commands to convert
SRVvrs.LIBS into an LMS library:
/IMPORT-FILE SUPPORT=*TAPE(FILE-NAME=SRVvrs.LIBS,- / VOLUME=volser, DEV-TYPE=tape-device) /ADD-FILE-LINK LINK-NAME=EDTSAM, FILE-NAME=SRVvrs.LIBS,- / SUPPORT=*TAPE(FILE-SEQ=3), ACC-METH=*BY-CAT,- / BUF-LEN=*BY-CAT, REC-FORM=*BY-CAT, REC-SIZE=*BY-CAT /START-EDT @READ '/' @SYSTEM 'REMOVE-FILE-LINK EDTSAM' @SYSTEM 'EXPORT-FILE FILE-NAME=SRVvrs.LIBS' @WRITE 'SRVvrs.LIBS' @HALT /ASS-SYSDTA SRVvrs.LIBS /MOD-JOB-SW ON=1 /START-PROG $LMS /MOD-JOB-SW OFF=1 /ASS-SYSDTA *PRIMARY
where:
tape-device is the device
type of the tape, for example, TAPE-C4, and
volser is the VOLSER of the
tape (see the Software AG Product Delivery
Report).
Call the procedure P.COPYTAPE in the library
SRVvrs.LIB to copy the procedure
COPY.PROC to disk:
/CALL-PROCEDURE (SRVvrs.LIB,P.COPYTAPE), - / (VSNT=volser, DEVT=tape-device)
If you use a TAPE-C4 device, you can omit the parameter
DEVT.
Enter the procedure COPY.PROC to copy all product files to
disk:
/ENTER-PROCEDURE COPY.PROC, DEVT=tape-device
If you use a TAPE-C4 device, you can omit the parameter
DEVT.
The result of this procedure is written to the file
L.REPORT.SRV.
Apply corrective maintenance if necessary (refer to the Software AG Product Delivery Report).
Perform the line driver-dependent installation procedure and prepare the DRIVER and LINK statements. The following line drivers are provided:
If you are using Software AG's System Maintenance Aid (SMA) install, proceed as usual. After installation, the PLAM libraries WCPvrs.LIB and optionally WTCvrs.LIB will exist on your disk and be ready for use.
For more information about the SMA installation process, refer to the System Maintenance Aid documentation.
The following points should be considered when running Entire Net-Work in the BS2000 environment:
Note:
The format of the procedures supplied as of
Entire Net-Work Version 6 has been updated. It is no longer possible to use the older
format procedures that were used with Entire Net-Work 5.6.1 and earlier.
Correctly configured DCAM and/or TCP/IP environments are prerequisites for starting Entire Net-Work.
The library WCPvrs.LIB contains a set of predefined elements that is usually ready to use. The J-Element START can be used to start Entire Net-Work with a minimum set of configuration data. It contains an example configuration including a DCAM and a TCP/IP connection.
If the new tracing facilities are required, set the TRACE parameter to YES in the call to the STARTP procedure.
In order to define which Adabas modules will be used to run Entire Net-Work, either:
Create a JOB-VARIABLE named 'ADALIB' and set it to the correct name of the Adabas or WAL library, or
Modify the START procedure so that the name is supplied as the ADALIB parameter in the call to STARTP, as follows:
/CALL-PROC - / FROM-FILE = *LIB(LIB = WCPvrs.LIB, - / ELE = STARTP), - / PROC-PAR = (DUMP = YES, - / ADALIB= xxxxxx, - / TRACE= NO, - / OPMSG = YES, - / TIME = NO), - / LOGGING = *YES
where xxxxxx is the name of your library. For example: $SAG.WAL826.MOD
If the optional TCP/IP line driver is to be used, then an extra task will be started automatically. The parameters for starting this task are defined in the variable NWBS2SUB within the STARTP procedure. The library or procedure names may be altered if required (see the section Starting the TCP/IP Line Driver).
To actually start Entire Net-Work, enter the following command:
/ENTER-JOB (WCPvrs.LIB,START)
The SAG supplied J-Element START is executed. It has the following sample content:
/SET-LOGON-PARAMETERS -
/ USER-ID = *NO,-
/ ACCOUNT = *NONE,-
/ JOB-CLASS = *STD,-
/ JOB-NAME = NETWORK
/ASSIGN-SYSOUT -
/ TO = START.JNL
/CALL-PROC -
/ FROM-FILE = *LIB(LIB = WCPvrs.LIB,-
/ ELE = STARTP),-
/ PROC-PAR = (DUMP = YES,-
/ ADALIB= &(ADALIB),-
/ LICLIB= LICvrs.MOD,-
/ WCPLIB = WCPvrs.LIB,-
/ WTCLIB = WTCvrs.LIB,-
/ MLCLIB = MLCmvrs.LIB,-
/ VERSION = vrs,-
/ TRACE = NO,-
/ OPMSG = YES,-
/ TIME = NO),-
/ LOGGING = *YES
ADARUN PROG=NETWRK,TARGETID=vrs2,IDTNAME=ADANET02
ADARUN TASKCTGY=TP,FORCE=YES,GROUPS=NO,CMDQMODE=ABOVE
* The next 2 lines can be omitted if the WY optional zap 2
* has been applied and the Sockets version is
* greater than or equal to 2.2
ADARUN CMSIZE=32000000,CMFIX=Y,CMSCOPE=GROUP,CMADDR=X'01300000'
ADARUN CMLSIZE=4096000,CMLFIX=Y,CMLSCOPE=GROUP
/EOF
NODE MHK2 NT=128,LOG=N,PASSWORD=ALL,-
TRANS DEF ID=(0,0),TOASCII=E2ASIE,TOEBCDIC=A2ESIE
DRIVER DCAM
DRIVER TCPI API=BS2,ACCEPTUI=N,SERVERID=8882,APITRACE=N,-
OPTIONS1=(0,0,0,0,0,0,1024)
LINK MHK1 DCAM PRONAME=HOST
LINK IBM TCPI I=157.189.160.95,SERVERID=2000
LINK H60 TCPI ADJHOST=SIH1,SERVERID=8881
LINK PCMHK TCPI ADJHOST=PCMHK,SERVERID=8882
/EXIT-JOB -
/ MODE = NORMAL,-
/ SYS-OUT = NONE
To determine the version of Sockets that is running, input the following command:
SHOW-SUBSYSTEM-STATUS SUBSYSTEM-NAME=SOCKETS
The Sockets version number will be returned.
The default CMSIZE is around 32MB. We recommend that this size be set to the largest possible in the address space. This area is used by all drivers by the buffer pool manager. It is important to set this as large as possible, particularly when transferring large data objects. This system runs a subtask called NETTCP.
Important:
Do not change the parameters CMFIX=Y, CMSCOPE=GROUP, or
CMADDR=X'01300000'
The extra ADARUN entries, beginning with CMSIZE and CMLSIZE, are required for the TCP/IP line driver and the Simple Connection Line Driver.
If you wish to use a different job class for Entire Net-Work, it may be supplied to the START procedure as follows (xxxxxxxxx is your defined JOB-CLASS):
/SET-LOGON-PARAMETERS - / USER-ID = *NO,- / ACCOUNT = *NONE,- / JOB-CLASS = xxxxxxxx,- / JOB-NAME = NETWORK
START calls procedure STARTP, which is shown below:
/"* **************************************************************** *"
/"* *"
/"* Entire Net-Work STARTP Procedure *"
/"* *"
/"* MODE SINGLE: ONLY ONE NET-WORK SESSION PER USER-ID ALLOWED *"
/"* *"
/"* **************************************************************** *"
/SET-PROCEDURE-OPTIONS -
/ IMPLICIT-DECLARATION = *YES,- &* For SDF-BASYS
/ LOGGING-ALLOWED = *YES,- &*
/ SYSTEM-FIL-CONTEXT = *SAME-AS-CAL,-&* For ADARUN
/ JV-REPLACEMENT = *AFTER,- &* Allow JV for ADALIB
/ ERROR-MECHANISM = *SPIN-OFF &* For SDF-BASYS
/BEGIN-PARAMETER-DECLARATION
/ DECLARE-PARAM - &* Used to form WCP and WTC
/ VERSION(INIT='621') &* library names.
/ DECLARE-PARAM - &* Adabas or WAL library.
/ ADALIB &*
/ DECLARE-PARAM - &* License Module
/ LICLIB &* Library
/ DECLARE-PARAM - &*
/ WCPLIB &* Net-Work main library
/ DECLARE-PARAM - &*
/ WTCLIB &* Net-Work TCP/IP Library
/ DECLARE-PARAM - &*
/ MLCLIB &* License Library
/ DECLARE-PARAM - &* Determines whether a dump
/ DUMP(INIT='NO') &* is created for errors.
/ DECLARE-PARAM - &* For tracing facilities
/ TRACE-TO-NETPRNT(INIT='NO') &*
/ DECLARE-PARAM - &* TCP/IP operator messages.
/ OPMSG(INIT='YES') &*
/ DECLARE-PARAM - &* CPU limit for TCP sub task;
/ TIME(INIT='NO') &* NO, STD or 1 - 32767
/END-PARAMETER-DECLARATION
/
/ IF (OPMSG = 'NO')
/ MOD-USER-SW ON = 1
/ END-IF
/
/ MODIFY-JOB-OPTIONS - &* Log messages to the system
/ OPERATOR = *YES &* Console.
/
/ MODIFY-TEST-OPTIONS -
/ DUMP = &DUMP
/
/ CALL-PROC -
/ FROM-FILE = *LIB(LIB = &(WCPLIB), -
/ ELE = NEWGEN), -
/ PROC-PAR = (NET.PROTO.OUT) &* Create the next generation
/ &* in this file group, then
/ ASSIGN-SYSOUT - &* direct SYSOUT to it.
/ TO = NET.PROTO.OUT(+0)
/
/ IF (TRACE-TO-NETPRNT = 'YES')
/ CALL-PROC
/ FROM-FILE = *LIB(LIB = &(WCPLIB), -
/ ELE = NEWGEN), -
/ PROC-PAR = (NET.NETPRNT) &* Create the next generation
/ &* in this file group, then
/ SET-FILE-LINK - &* direct NETPRNT tracing
/ LINK-NAME = NETPRNT,- &* to it.
/ FILE-NAME = NET.NETPRNT(+0), -
/ ACC-METH = SAM,-
/ REC-FORM = *FIXED(REC-SIZ=121)
/
/END-IF
/ SHOW-JOB-STATUS
/
/" *-----------------------------------------------------------------*"
/" The following section is for the TCP/IP driver "
/" "
/" 1) The task is started according to the parameters supplied in the "
/" variable NWBS2SUB. "
/" 2) If a different procedure is to be used, the LIB and ELE names "
/" in the FROM parameter may be altered. "
/" 3) If the subtask code is to be loaded from a different library, "
/" then the WTCLIB name in the PROC-PAR parameter may be changed. "
/" "
/" **** Do NOT start the subtask manually! **** "
/"*------------------------------------------------------------------*"
/ SHOW-FILE-ATTRIBUTES - &* Test whether TCP/IP driver
/ FILE-NAME = &(WTCLIB),- &* is available. If it is...
/ INFORMAT = *MIN
/
/ SET-FILE-LINK - &* add WTC file link for BLS,
/ LINK-NAME = BLSLIB01, -
/ FILE-NAME = &(WTCLIB)
/
/ DECLARE-VARIABLE - &* then set up the parameters
/ NWBS2SUB(INIT=- &* for the NWBS2SUB task.
/'ENTER-PROC FROM = (LIB = WCP&VERSION..LIB,-
/ ELE = SUBTASKPROC),-
/ PROC-PAR= (WTCLIB= &(WCPLIB),-
/ WCPLIB= &(WTCLIB),-
/ DUMP = &DUMP),-
/ JOB-CLAS= *STD,-
/ JOB-NAME= NETTCP,-
/ RESOURCE= *PAR(CPU-LIMIT=&TIME),-
/ SYS-OUTP=
*DELETE')
/SET-JOB-STEP &* Catch spinoff
/
/ SET-FILE-LINK - &* add WCP file link for BLS.
/ LINK-NAME = BLSLIB00, -
/ FILE-NAME = &(WCPLIB)
/
/ SET-FILE-LINK - &* add a file link for ADARUN.
/ LINK-NAME = DDLIB, -
/ FILE-NAME = &ADALIB
/ SET-FILE-LINK - &* Add a file link for BLS.
/ LINK-NAME = BLSLIB02, -
/ FILE-NAME = &(ADALIB)
/
/ SET-FILE-LINK - &* Add a file link for BLS.
/ LINK-NAME = BLSLIB03, -
/ FILE-NAME = &(LICLIB)
/
/ SET-FILE-LINK - &* Add a file link for BLS.
/ LINK-NAME = BLSLIB04, -
/ FILE-NAME = &(MLCLIB)
/
/
/ SEND-MSG -
/ TO = *OPERATOR,-
/ MSG = 'STARTING Entire Net-Work (V &VERSION)'
/
/ START-PROGRAM -
/ FROM = *MODULE(LIB = &ADALIB, ELEM = ADARUN, PROG = ANY,-
/ RUN-MOD = ADV(ALT-LIB = YES))
/
/ IF (OPERATOR-MSG = 'NO') &* Unset switch 1 if
/ MOD-USER-SW OFF = 1 &* it was set earlier.
/ END-IF &*
/
/EXIT-PROC
Notes:
You must install a valid license on all mainframe platforms in which your Software AG mainframe product is installed. The license file is provided as an XML document. The document's encoding is US-ASCII and must remain in that format -- even on the mainframe. It must not be modified. Any modification of the license file will invalidate the digital signature and the license check will fail. If the check fails, you will not be able to run the product. In the event of a check failure, contact your Software AG technical support representative for assistance.
Note:
Thirty days before the license expires, license check failure
messages are produced. Your software product will still function, but these
messages warn you that it is time to obtain a new license.
In this step, you will prepare the license file (obtain it from e-mail or the installation media and store it on your z/OS system) and then install it:
The product license file is supplied on the individual customer installation media or separately via an e-mail attachment. Before you can install the license, you must transfer it from e-mail or the installation media and store it on a z/OS system. This section describes how to do this for a license distributed using either method.
To prepare the license file from an e-mail attachment,
complete the following steps:
Transfer the license to BS2000, as described in Transferring a License File from PC to a BS2000 Host Using FTP.
Verify that the transferred license file is a SAM sequential file, taking care to preserve its format as ASCII.
To prepare the license file from the installation media,
complete the following steps:
Verify that the transferred license file is a SAM sequential file, taking care to preserve its format as ASCII.
Check the license file by modifying and running the job WCPvrs.LIB(LICCHECK,J).
To install the product license file, complete the following
steps:
Convert the license to a loadable element (NETLIC) that is then loaded by Entire Net-Work by modifying and running the job WCPvrs.LIB(NETLICA,J).
This will put the NETLIC into a license module library.
Update your Entire Net-Work startup jobs to reference the license library. Complete the following steps:
Make sure any previously-created NETLIC module is inaccessible to the Entire Net-Work load library being used in your Entire Net-Work startup job. Entire Net-Work first tries to load NETLIC, and, if unsuccessful, then reads from a DDLIC link name referenced in the Entire Net-Work startup job.
Software AG licensing requires that the modules LICMAIN(R) and LICUTIL(R) be loaded when Entire Net-Work starts up. These modules are distributed in the MLCvrs.MOD library. Do either (but not both) of the following:
Copy LICMAIN and LICUTIL into the WCPvrs.LIB library.
Concatenate MLCvrs.MOD into the BLSLIB chain with WCPvrs.LIB.
Verify that the license file is correctly referenced in each startup job. Do either (but not both) of the following:
Verify that the NETLIC load module is stored in a load library that is accessible to the Entire Net-Work load library. Add the user load library in which NETLIC resides to the BLSLIB concatenation of the Entire Net-Work startup job or copy the NETLIC library into the WCPvrs.LIB library.
Verify that there is no NETLIC load module accessible to the Entire Net-Work load library and that the following link statement is included in the WCPvrs.LIB job STARTP (J):
/ADD-FILE-LINK DDLIC,license_file
where license_file is the name of the license file loaded from the installation media (in ASCII format). Entire Net-Work first tries to load NETLIC and, if unsuccessful, it reads from the DDLIC link name.
Entire Net-Work produces 2 FGGs with 7 generations, which are:
| FGG | Description |
|---|---|
| NET.PROTO.OUT | contains all main task output* |
| NET.PROTO.TCP.OUT (Sockets 2.0 only) | contains all subtask output (TCP/IP)* |
| NET.NETPRNT | (optional) contains tracing data |
*All console messages are also contained in the above output files.
Entire Net-Work operator commands (as described in their corresponding sections) are generally issued as follows:
/INF-PROG 'message text',*TSN(<tsn>)
/INTR <tsn>,<command>
<tsn> is the task sequence number of Entire Net-Work's main task or subtask
<command> is the command of Entire Net-Work's main task or subtask
The following examples assume the task serial number of the Entire Net-Work task is 1234:
/INF-PROG D 'LINKS',*TSN(1234)
displays all links currently known by Entire Net-Work.
/INF-PROG C 'TOUNIX1',*TSN(1234)
connects to foreign node known by link named "tounix1".
/INF-PROG C 'MYPC',*TSN(1234)
connects to link named "mypc".
/INF-PROG 'NETEND',*TSN(1234)
shuts down Entire Net-Work.
The TCP/IP subtask has a trace feature that allows you to generate trace files during an active Entire Net-Work session. For an explanation of the TRACE command arguments, see the section BS2000 Net-Work Sockets Tracing.
It is not normally possible to shut down an Entire Net-Work node without access to either a console or a privileged user ($TSOS).
Entire Net-Work Version 6 provides the NETEND utility procedure, which allows local or remote Entire Net-Work nodes to be shut down without such access. The NETEND procedure can be invoked as follows:
CALL-PROC *LIB($SAG.WCPvrs.LIB,NETEND),(
ADALIB=<Adabas or WAL library>,
IDTNAME= <idtname>,
NETLIB=$SAG.WCPvrs.LIB,
TARGETID= <node number>)
NETEND uses the Programmable Command Interface (PCI). If you wish to use this utility, see the NODE statement keywords PASSWORD, ENDCMS, and REMCMD in the section Programmable Command Interface.