Multiple DCAM Drivers in One Entire Net-Work

It is possible to activate four DCAM drivers in one Entire Net-Work node by using different driver names (DCAM, ICAM, DCM1, and DCM2). This feature can be useful if different MAXBLK values are needed; i.e., each DRIVER statement can contain a different MAXBLK value. See the following example:

1st driver's name DCAM
                       MAXBLK=receive-buffer-size-A
                       DCAM link statements ...
2nd driver        ICAM with APPNAME different from the one in the DCAM driver
                       MAXBLK=receive-buffer-size-B
                       ICAM link statements ...

Special Provisions for a DCAM/VTAM Link Using TRANSIT-CD

DCAM Provisions

The following parameter must be specified for a link to a VTAM Entire Net-Work partner application via TRANSIT-CD:

SYSCODE=Y

VTAM Provisions

The following parameters must be specified on a LINK statement:

LOGMODE=logmode_table_name

This parameter specifies a LOGMODE table that is used from VTAM Entire Net-Work as bind parameters (see TRANSIT-CD documentation).

LMPEO=NO

Example for PDN Definitions

RDF for IBM Host:

     XSYSP EINSATZ=HOST,PRONAM=ZE01R7        *
           PRONR=1,REGNR=7                   *
*          SUBAREA=1,                        *TCD*
*          SSCPID=1,                         *TCD*
*          CDRMNAME=SIEGAT                   *TCD*
           ...
* XSTAT    STATNAM=NETWRK1,STATTYP=AP,       *TCD*
*          IBMNAM=NETWRK1,IBMTYP=AP,PACING=1 *TCD*
           ...

RDF for Fujitsu Technology Solutions Host:

    XSYSP  EINSATZ=HOST/BCAM,PRONAM=ZE18R6,  * 
           PRONR=18,REGNR=6                  *
*          SUBAREA=19,                       *TCD*
*          SSCPID=19,                        *TCD*
*          CDRMNAME=SIEHOST                  *TCD*
*          PARTCDRM=(SIEGAT)                 *TCD*
           ...*
  XSTAT    STATNAM=NETWRK2,STATTYP=AP,       *TCD*
*          IBMNAM=NETWRK2,IBMTYP=AP,PACING=1 *TCD*
           ....

Example of Parameters for Entire Net-Work Node 1

NODE NETWRK1,BUFFERS=(16K,32K,128K)
DRIVER VTAM APP=NETWRK1,MAXRU=FB,PA=EYEAPPLE
LINK TONW2 VTAM,APP=NETWRK2,LOGMODE=LOGLU0,-
     MAXRU=FB,LMPEO=NO

VTAM Definitions:

NETWRK  VBUILD TYPE=APPL
NETWRK1 APPL   AUTH=(ACQ,NVPACE),PARSESS=YES,PRTCT=EYEAPPLE, *
                SONSCIP=YES

Example of Parameters for Entire Net-Work Node 2

NODE NETWRK2,BUFFERS=(16K,32K,128K) 
DRIVER DCAM 
LINK TONW1 DCAM,PTNNAME=NETWRK1,PRONAME=ZE01R7,-
      ACQUIRE=YES,SYSCODE=YES,COMPRMSG=NO

Note:
The lines beginning with '*' are definitions for TRANSIT-CD.

Example for a Logmode Entry

          MODETAB
LOGMLU0   MODEENT LOGMODE=LOGMLU0,TYPE=1,             X 
                  FMPROF=3,TSPROF=3,ENCR=NO,          X
                  PRIPROT=X'70',SECPROT=X'70',        X
                  COMPROT=X'0000',SSNDPC=0,SRCVPC=0,  X
                  RUSIZES=X'8989',PSNDPAC=0,          X
                  PSERVIC=X'000000000000000000000000'
          MODEEND END

Example of a Heterogeneous Entire Net-Work Configuration

graphics/graphic3.png

where:

SIEHOST BS2000/OSD host with DCAM/ICAM driver.
OS390HOST OS/390 or z/OS host with VTAM driver.
/SET-LOGON-PARAMETERS -
/    USER-ID  = *NO,-
/    ACCOUNT  = *NONE,-
/    JOB-CLASS = *STD,-
/    JOB-NAME  = NETWORK
/MODIFY-TEST-OPTIONS -
/    DUMP = YES
/ASS-SYSOUT-
/    TO   = LST-NETWORK
/ASS-SYSOUT-
/    TO   = LST-NETWORK
/SET-FILE-LINK -
/    LINK-NAME = BLSLIB01, -
/    FILE-NAME = WCP&VERSION..LIB
/SET-FILE-LINK -                      &* add a file link for ADARUN.
/    LINK-NAME = DDLIB, -
/    FILE-NAME = &ADALIB
/START-PROGRAM -
                                                   
/    FROM      = *MODULE(LIB = &ADALIB, ELEM = ADARUN, PROG = ANY,-
/                        RUN-MOD = ADV(ALT-LIB = YES))
ADARUN PROG=NETWRK,DBID=1234
/EOF
NODE SIEHOST,BUFFERS=(4K,4K,512K)
*
DRIVER DCAM,ISO=N,ACCEPTUI=N
LINK OS390HOST DCAM,PRONAME=ZE01R7,SYSCODE=Y
/EXIT-JOB -
/    MODE = NORMAL,-
/    SYS-OUT = NONE