Some basic definitions are required for all VTAM® connections.
These definitions are listed below.Figure 1. Basic VTAM definitions
*********************************************************************
** APPL STATEMENT FOR SYSTEM 1 *
*********************************************************************
DB1APPL APPL APPC=YES, X
ATNLOSS=ALL, X
AUTH=(ACQ), X
AUTOSES=1, X
DSESLIM=20, X
DMINWNL=10, X
DMINWNR=10, X
PRTCT=DB1PWD, X
SECACPT=ALREADYV, X
EAS=509, X
MODETAB=DB2MODES, X
PARSESS=YES, X
SRBEXIT=YES, X
SYNCLVL=SYNCPT, X
VPACING=2
*********************************************************************
** APPL STATEMENT FOR SYSTEM 2 *
*********************************************************************
DB2APPL APPL APPC=YES, X
ATNLOSS=ALL, X
AUTH=(ACQ), X
AUTOSES=1, X
DSESLIM=20, X
DMINWNL=10, X
DMINWNR=10, X
PRTCT=DB2PWD, X
SECACPT=ALREADYV, X
EAS=509, X
MODETAB=DB2MODES, X
PARSESS=YES, X
SRBEXIT=YES, X
SYNCLVL=SYNCPT, X
VPACING=2
**********************************************************************
** LOGMODE TABLE FOR SYSTEM 1 TO SYSTEM 2 CONNECTIONS
**********************************************************************
DB2MODES MODETAB
*********************************************************************
* LU6.2 SERVICES MANAGER BASE MODE FOR APPC/VTAM
*********************************************************************
SNASVCMG MODEENT LOGMODE=SNASVCMG, X
FMPROF=X'13', X
TSPROF=X'07', X
PRIPROT=X'B0', X
SECPROT=X'B0', X
PSERVIC=X'060200000000000000000300', X
COMPROT=X'D0B1', X
RUSIZES=X'8585', X
ENCR=B'0000'
*********************************************************************
**********************************************************************
** DB2 DEFAULT FOR SYSTEM 1 AND SYSTEM 2 DRDA ACCESS **
**********************************************************************
IBMRDB MODEENT LOGMODE=IBMRDB, X
TYPE=0, X
PSNDPAC=X'00', X
SSNDPAC=X'02', X
SRCVPAC=X'00', X
RUSIZES=X'8989', X
FMPROF=X'13', LU6.2 FM PROFILE X
TSPROF=X'07', LU6.2 TS PROFILE X
PRIPROT=X'B0', LU6.2 PRIMARY PROTOCOLS X
SECPROT=X'B0', LU6.2 SECONDARY PROTOCOLS X
COMPROT=X'50A5', LU6.2 COMMON PROTOCOLS X
PSERVIC=X'060200000000000000122F00' LU6.2 LU TYPE
***********************************************************************
** ATCSTRTA VTAM START OPTIONS FOR SYSTEM 1, INCLUDES IOBUF
***********************************************************************
CONFIG=TA, X
SSCPID=53,MAXSUBA=150,HOSTSA=53, X
SSCPNAME=SSCP004,NETID=USIBMSY, X
IOBUF=(328,441,20,,64,48,768)
***********************************************************************
** ATCSTRTB VTAM START OPTIONS FOR SYSTEM 2, INCLUDES IOBUF
***********************************************************************
CONFIG=TB, X
SSCPID=54,MAXSUBA=150,HOSTSA=54, X
SSCPNAME=SSCP00E,NETID=USIBMSY, X
IOBUF=(328,441,20,,64,48,768)