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 ...
The following parameter must be specified for a link to a VTAM Entire Net-Work partner application via TRANSIT-CD:
SYSCODE=Y
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
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* ...
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* ....
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
NETWRK VBUILD TYPE=APPL NETWRK1 APPL AUTH=(ACQ,NVPACE),PARSESS=YES,PRTCT=EYEAPPLE, * SONSCIP=YES
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.
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
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