|
By using MVS™ system
symbols in VTAMLST, you can code a single start option list that can
be used to start VTAM® on multiple
systems. You also can use MVS system
symbols to reduce system definition in single system environments.
Guideline: To use MVS system
symbols in VTAM, you must have
at least MVS V5R2.
For instance, to define a single start option list for
use on any of your VTAM interchange
nodes, you could use the following start option list that uses MVS system symbols. **********************************************************
*
* Description: Start definition deck for host 1A
*
**********************************************************
*
SSCPID=0&NUMBER1., Host ID X
SSCPNAME=SSCP&SYSCLONE., Host name X
CONFIG=&SYSCLONE., Start config X
&NET.&ID=&NET.&USERSYM1;, In NETA X
NODETYPE=NN, ICN node X
HOSTSA=0&NUMBER1., Subarea host number X
MAXSUBA=&NUMBER2.&NUMBER5.&NUMBER5., Max Subarea Number X
HOSTPU=PUT5&SYSCLONE., HOST PU X
CPCP=YES, CP-CP session X
DYNADJCP=YES, Dynamic adjacent CP (default) X
ROUTERES=1, Route address X
DYNLU=YES, Dynamic LU X
VERIFYCP=NONE, Verify CP (default) X
CDSERVR=NO, DIRECTORY SERVER X
TRACE, X
TYPE=VTAM, X
OPT=ALL, X
SIZE=200, Start VIT X
CRPLBUF=(&NUMBER2.&NUMBER0.&NUMBER0.), CRPL X
LFBUF=(100,,10,,10,33), Fixed large buffer pool X
LPBUF=(6&NUMBER4.,,&NUMBER4.,,&NUMBER4.,22), X
SFBUF=(60), Fixed small buffer pool X
SPBUF=(32) Pagable small buffer pool
You
assign values to MVS system symbols
by including definitions for them in the IEASYMM1 parmlib member,
as in the sample that follows: ************
************ IEASYMM1 MEMBER
************
SYSDEF SYSCLONE(1A)
SYMDEF(&USERSYM1='A')
SYMDEF(&USERSYM2='1')
SYMDEF(&USERSYM3='GUY')
SYMDEF(&USERSYM4='A1A*')
SYMDEF(&USERSYM5='APPL1A')
SYMDEF(&USERSYM6='P')
SYMDEF(&USERSYM7='SSCPNAME')
SYMDEF(&NET='NET')
SYMDEF(&NAME='NAME')
SYMDEF(&ID='ID')
SYMDEF(&SSCP='SSCP')
SYMDEF(&NUMBER0='0')
SYMDEF(&NUMBER1='1')
SYMDEF(&NUMBER01='01')
SYMDEF(&NUMBER2='2')
SYMDEF(&NUMBER4='4')
SYMDEF(&NUMBER5='5')
SYMDEF(&NUMBER10='10')
SYMDEF(&N60000='60000')
SYMDEF(&LIST='LIST')
SYMDEF(&LIST1A='1A')
SYMDEF(&APPL1A='APPL1A')
SYMDEF(&PATH1A='PATH1A')
SYMDEF(&CDRSC1A='CDRSC1A')
SYMDEF(&CDRM1A='CDRM1A')
SYMDEF(&HOST1A='1A')
SYMDEF(&HOST2A='2A')
SYMDEF(&NETA='2A')
SYMDEF(&SSCPNAME='SSCP1A')
SYMDEF(&CONFIG='GM')
SYMDEF(&APPLNAME='POAPPL1A')
SYMDEF(&APPL='APPL')
SYMDEF(&USERXX='XX')
SYMDEF(&USERYY='YY')
SYMDEF(&UNET='A')
SYMDEF(&QUESTION='?')
SYMDEF(&ASTER='*')
SYMDEF(&ER='&')
SYMDEF(&LINE='LINE')
SYMDEF(&TYPE='TYPE')
SYMDEF(&CTC='CTC')
SYMDEF(&PU='PU')
SYMDEF(&LU='LU')
************
************ LOADM1 MEMBER
When these MVS system symbols are resolved, the start list
above becomes the following list: **********************************************************
*
* Description: Start definition deck for host 1A
*
**********************************************************
*
SSCPID=01, Host ID X
SSCPNAME=SSCP1A, Host name X
CONFIG=1A, Start config X
NETID=NETA, In NETA X
NODETYPE=NN, ICN node X
HOSTSA=01, Subarea host number X
MAXSUBA=255, Max Subarea Number X
HOSTPU=PUT51A, HOST PU X
CPCP=YES, CP-CP session X
DYNADJCP=YES, Dynamic adjacent CP (default) X
ROUTERES=1, Route address X
DYNLU=YES, Dynamic LU X
VERIFYCP=NONE, Verify CP (default) X
CDSERVR=NO, DIRECTORY SERVER X
TRACE, X
TYPE=VTAM, X
OPT=ALL, X
SIZE=200, Start VIT X
CRPLBUF=(200), CRPL X
LFBUF=(100,,10,,10,33), Fixed large buffer pool X
LPBUF=(64,,4,,4,22), Pageable large buffer pool X
SFBUF=(60), Fixed small buffer pool X
SPBUF=(32) Pagable small buffer pool
|