//MVS0050 JOB  (SYSGEN),
//             'Build VTAM procs',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             COND=(0,NE),
//             REGION=3072K
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//*
//* DESC: Build VTAM and TSO
//*
//*********************************************************************
//*
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS1.VTAMSRC            NONVSAM
 DELETE SYS1.VTAMLST            NONVSAM
 DELETE SYS1.VTAMOBJ            NONVSAM
 DELETE SYS1.PROCLIB(NETASML)   NONVSAM
 DELETE SYS1.PROCLIB(NET)       NONVSAM
 DELETE SYS1.PROCLIB(IKJACCNT)  NONVSAM
 DELETE SYS1.PROCLIB(TSOLOGON)  NONVSAM
 SET LASTCC = 0
 SET MAXCC  = 0
//TSOKEY  EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PARMLIB(TSOKEY00)
//SYSUT1   DD  DATA
USERMAX=8,                       /* MAXIMUM USERS                    */
RECONLIM=60,                     /* MAXIMUM DISCONNECT MINUTES       */
BUFRSIZE=132,                    /* VTIOC BUFFER SIZE                */
HIBFREXT=13200,                  /* MAX BUFFERS BEFORE SWAP OUT      */
LOBFREXT=6600,                   /* MIMIMUM BUFFERS BEFORE SWAP IN   */
MODE=NOBREAK,                    /* KEYBOARD LOCK OPTION             */
MODESW=NO,                       /* MODESWITCH FROM TERMINAL OPTION  */
CHNLEN=4,                        /* NO. OF RU'S PER CHAIN            */
SCRSIZE=1920                     /* MAXIMUM SCREEN SIZE              */
/*
//VTAMSRC EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=*
//SYSUT2   DD  DISP=(NEW,CATLG),UNIT=3350,VOL=SER=MVSRES,
//             DSN=SYS1.VTAMSRC,
//             SPACE=(CYL,(1,1,10)),
//             DCB=SYS1.MACLIB
//SYSIN    DD  *
./ ADD NAME=BSPLIN01
**************************************************************
*                                                            *
* NAME: BSPLIN01                                             *
*                                                            *
* TYPE: ASSEMBLER SOURCE                                     *
*                                                            *
* DESC: VTAM LOGON INTERPRET TABLE                           *
*                                                            *
**************************************************************
BSPLIN01 INTAB
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='Logon'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='logon'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='LOGON'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='IBMUSER'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='ibmuser'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='Ibmuser'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='Herc01'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='herc01'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='HERC01'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='Herc02'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='herc02'
         LOGCHAR APPLID=(APPLICID,TSO),SEQNCE='HERC02'
         ENDINTAB
         END
./ ADD NAME=BSPLMT01
**************************************************************
*                                                            *
* NAME: BSPLMT01                                             *
*                                                            *
* TYPE: ASSEMBLER SOURCE                                     *
*                                                            *
* DESC: VTAM LOGMODE TABLE                                   *
*                                                            *
**************************************************************
BSPLMT01 MODETAB
*****************************************************************
* NON-SNA 3270 LOCAL TERMINALS                                  *
*      PRIMARY SCREEN   : MODEL 2                               *
*      SECONDARY SCREEN : NON                                   *
*****************************************************************
S3270    MODEENT LOGMODE=S3270,                                        X
               FMPROF=X'02',                                           X
               TSPROF=X'02',                                           X
               PRIPROT=X'71',                                          X
               SECPROT=X'40',                                          X
               COMPROT=X'2000',                                        X
               PSERVIC=X'000000000000000000000200'
*****************************************************************
* NON-SNA 3270 LOCAL TERMINALS                                  *
*      PRIMARY SCREEN   : MODEL 5                               *
*      SECONDARY SCREEN : NON                                   *
*****************************************************************
S32785   MODEENT LOGMODE=S32785,                                       X
               FMPROF=X'02',                                           X
               TSPROF=X'02',                                           X
               PRIPROT=X'71',                                          X
               SECPROT=X'40',                                          X
               COMPROT=X'2000',                                        X
               PSERVIC=X'00000000000018501B847F00'
*****************************************************************
* 3274 MODEL 1C WITH MODEL 2 SCREEN (REMOTE SNA)                *
*      PRIMARY SCREEN   : MODEL 2                               *
*      SECONDARY SCREEN : NON                                   *
*****************************************************************
D4C32782 MODEENT LOGMODE=D4C32782,                                     X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'B1',                                          X
               SECPROT=X'90',                                          X
               COMPROT=X'3080',                                        X
               RUSIZES=X'87F8',                                        X
               PSERVIC=X'020000000000185020507F00'
*****************************************************************
*      3276 SNA WITH MODEL 2 SCREEN (REMOTE SNA)                *
*      PRIMARY SCREEN   : MODEL 2                               *
*      SECONDARY SCREEN : NON                                   *
*****************************************************************
D6327802 MODEENT LOGMODE=D6327802,                                     X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'B1',                                          X
               SECPROT=X'90',                                          X
               COMPROT=X'3080',                                        X
               RUSIZES=X'88F8',                                        X
               PSERVIC=X'020000000000185000007E00'
*****************************************************************
*      3274 1C SNA WITH MODEL 5 SCREEN (REMOTE SNA)             *
*      PRIMARY SCREEN   : MODEL 5                               *
*      SECONDARY SCREEN : NONE                                  *
*****************************************************************
D4C32785 MODEENT LOGMODE=D4C32785,                                     X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'B1',                                          X
               SECPROT=X'90',                                          X
               COMPROT=X'3080',                                        X
               RUSIZES=X'87F8',                                        X
               PSERVIC=X'0200000000001B8400007E00'
*****************************************************************
*      3276 SNA WITH MODEL 2 SCREEN (REMOTE SNA) (T.S.O)        *
*      PRIMARY SCREEN   : MODEL 2                               *
*      SECONDARY SCREEN : NON                                   *
*****************************************************************
D63278TS MODEENT LOGMODE=D63278TS,                                     X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'B1',                                          X
               SECPROT=X'90',                                          X
               COMPROT=X'3080',                                        X
               RUSIZES=X'8587',                                        X
               PSERVIC=X'020000000000000000000200'
*****************************************************************
*      3276 SNA WITH 3289 MODEL 2 PRINTER                       *
*****************************************************************
D6328902 MODEENT LOGMODE=D6328902,                                     X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'B1',                                          X
               SECPROT=X'90',                                          X
               COMPROT=X'3080',                                        X
               RUSIZES=X'8787',                                        X
               PSERVIC=X'030000000000185018507F00'
*****************************************************************
*      3274 NON-SNA  MODEL 2 SCREEN (LOCAL)                     *
*      PRIMARY SCREEN   : MODEL 2                               *
*      SECONDARY SCREEN : NON                                   *
*****************************************************************
D4B32782 MODEENT LOGMODE=D4B32782,                                     X
               FMPROF=X'02',                                           X
               TSPROF=X'02',                                           X
               PRIPROT=X'71',                                          X
               SECPROT=X'40',                                          X
               COMPROT=X'2000',                                        X
               RUSIZES=X'0000',                                        X
               PSERVIC=X'000000000000185000007E00'
*****************************************************************
*     S C S   P R I N T E R                                     *
*****************************************************************
SCS      MODEENT LOGMODE=SCS,                                          X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'B1',                                          X
               SECPROT=X'90',                                          X
               COMPROT=X'3080',                                        X
               RUSIZES=X'87C6',                                        X
               PSNDPAC=X'01',                                          X
               SRCVPAC=X'01',                                          X
               PSERVIC=X'01000000E100000000000000'
*****************************************************************
*        N C C F                                                *
*****************************************************************
DSILGMOD MODEENT LOGMODE=DSILGMOD,                                     X
               FMPROF=X'02',                                           X
               TSPROF=X'02',                                           X
               PRIPROT=X'71',                                          X
               SECPROT=X'40',                                          X
               COMPROT=X'2000',                                        X
               RUSIZES=X'0000',                                        X
               PSERVIC=X'000000000000000000000200'
*****************************************************************
*        N C C F                                                *
*****************************************************************
DSIXDMN  MODEENT LOGMODE=DSIXDMN,                                      X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'20',                                          X
               SECPROT=X'20',                                          X
               COMPROT=X'4000',                                        X
               RUSIZES=X'0000',                                        X
               PSERVIC=X'000000000000000000000000'
*****************************************************************
*      3276 SNA WITH MODEL 2 SCREEN (MAGNETIC STRIPE READER)    *
*      PRIMARY SCREEN   : MODEL 2                               *
*      SECONDARY SCREEN : NON                                   *
*      TEST TEST TEST TEST TEST TEST                            *
*****************************************************************
SCSLRDR  MODEENT LOGMODE=SCSLRDR,                                      X
               FMPROF=X'03',                                           X
               TSPROF=X'03',                                           X
               PRIPROT=X'B1',                                          X
               SECPROT=X'90',                                          X
               COMPROT=X'3080',                                        X
               RUSIZES=X'87C6',                                        X
               PSNDPAC=X'01',                                          X
               SRCVPAC=X'01',                                          X
               PSERVIC=X'04000000E100000000000000'
         MODEEND
         END
//PROCLIB EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=*
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PROCLIB
//SYSIN    DD  DATA,DLM=XX
./ ADD NAME=TSOLOGON
//TSOLOGON PROC
//IKJACCNT EXEC PGM=IKJEFT01,PARM=USRLOGON
//SYSHELP  DD  DISP=SHR,DSN=SYS1.HELP
//SYSPROC  DD  DISP=SHR,DSN=SYS1.CMDPROC
//DD1      DD  DYNAM
//DD2      DD  DYNAM
//DD3      DD  DYNAM
//DD4      DD  DYNAM
//DD5      DD  DYNAM
//DD6      DD  DYNAM
//DD7      DD  DYNAM
//DD8      DD  DYNAM
//DD9      DD  DYNAM
//DDA      DD  DYNAM
//DDB      DD  DYNAM
//DDC      DD  DYNAM
//DDD      DD  DYNAM
//DDE      DD  DYNAM
//DDF      DD  DYNAM
./ ADD NAME=IKJACCNT
//IKJACCNT PROC
//IKJACCNT EXEC PGM=IKJEFT01
//DD1      DD  DYNAM
//DD2      DD  DYNAM
//DD3      DD  DYNAM
//DD4      DD  DYNAM
//DD5      DD  DYNAM
//DD6      DD  DYNAM
//DD7      DD  DYNAM
//DD8      DD  DYNAM
//DD9      DD  DYNAM
//DDA      DD  DYNAM
//DDB      DD  DYNAM
//DDC      DD  DYNAM
//DDD      DD  DYNAM
//DDE      DD  DYNAM
//DDF      DD  DYNAM
./ ADD NAME=NETASML
//NETASML PROC U=3350,                  UNIT FOR WORK DATSETS
//             VTAMLIB='SYS1.VTAMLIB',  NAME OF TARGET LIBRARY
//             MEM=MISSING              MEMBER NAME TO BE ASSEMBLED
//ASM     EXEC PGM=IFOX00,
//             PARM='TERM,NOLIST,NOXREF,NODECK,OBJ',
//             REGION=512K
//SYSLIB   DD  DISP=SHR,DSN=SYS1.MACLIB
//         DD  DISP=SHR,DSN=SYS1.AMODGEN
//SYSUT1   DD  UNIT=&U,SPACE=(1700,(600,100))
//SYSUT2   DD  UNIT=&U,SPACE=(1700,(600,100))
//SYSUT3   DD  UNIT=&U,SPACE=(1700,(600,100))
//SYSPRINT DD  SYSOUT=*
//SYSTERM  DD  SYSOUT=*
//SYSPUNCH DD  SYSOUT=B
//SYSGO    DD  DISP=(,PASS),UNIT=&U,SPACE=(80,(200,50))
//SYSIN    DD  DISP=SHR,DSN=SYS1.VTAMSRC(&MEM)
//LKED    EXEC PGM=IEWL,PARM=(XREF,LET,LIST,NCAL),REGION=512K,
//             COND=(8,LT,ASM)
//SYSLIN   DD  DSN=*.ASM.SYSGO,DISP=(OLD,DELETE)
//         DD  DDNAME=SYSIN
//SYSLMOD  DD  DISP=SHR,DSN=&VTAMLIB(&MEM)
//SYSUT1   DD  UNIT=&U,SPACE=(1024,(50,20))
//SYSPRINT DD  SYSOUT=*
./ ADD NAME=NET
//NET     PROC
//IEFPROC EXEC PGM=ISTINM01,TIME=1440,REGION=4096K
//VTAMLST  DD  DSN=SYS1.VTAMLST,DISP=SHR
//VTAMLIB  DD  DSN=SYS1.VTAMLIB,DISP=SHR
//VTAMOBJ  DD  DSN=SYS1.VTAMOBJ,DISP=SHR
./ ADD NAME=TSO
//TSO     PROC MEM=00
//STEP1   EXEC PGM=IKTCAS00,TIME=1440
//PARMLIB  DD  DISP=SHR,DSN=SYS1.PARMLIB(TSOKEY&MEM),FREE=CLOSE
//PRINTOUT DD  SYSOUT=A,DCB=(LRECL=133,RECFM=FBB)
XX
//VTAMLST EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=*
//VTAMOBJ  DD  DISP=(,CATLG,DELETE),
//             DSN=SYS1.VTAMOBJ,
//             UNIT=3350,
//             VOL=SER=MVSRES,
//             DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB),
//             SPACE=(CYL,(5,5,10))
//SYSUT2   DD  DISP=(,CATLG,DELETE),
//             DSN=SYS1.VTAMLST,
//             UNIT=3350,
//             VOL=SER=MVSRES,
//             DCB=(LRECL=80,BLKSIZE=19040,RECFM=FB),
//             SPACE=(CYL,(5,5,10))
//SYSIN    DD  DATA,DLM=XX
./ ADD NAME=ATCSTR00
CONFIG=00,                         /*CONFIG LIST SUFFIX              */+
SSCPID=01,                         /*THIS VTAMS ID IN NETWORK        */+
NETSOL=YES,                        /*NETWORK SOLICITOR OPTION        */+
MAXSUBA=31,                        /*MAXIMUM SUBAREAS IN NETWORK     */+
NOPROMPT,                          /*OPERATOR PROMPT OPTION          */+
SUPP=NOSUP,                        /*MESSAGE SUPPRESSION OPTION      */+
COLD,                              /*RESTART OPTION   - COLD/WARM    */+
APBUF=(128,,064),                  /*ACE STORAGE POOL                */+
CRPLBUF=(256,,44),                 /*RPL COPY POOL                   */+
IOBUF=(0128,256,16,F),             /*FIXED IO                        */+
LFBUF=(016,,16,F),                 /*LARGE FIXED BUFFER POOL         */+
LPBUF=(032,,32,F),                 /*LARGE PAGEBLE BUFFER POOL       */+
NPBUF=(032,,08,F),                 /*NON WS FMCB                     */+
PPBUF=(032,256,08,F),              /*PAGEBLE IO                      */+
SFBUF=(032,,32,F),                 /*SMALL FIXED BUFFER POOL         */+
SPBUF=(032,,32,F),                 /*SMALL PGBL BUFFER POOL          */+
UECBUF=(32,,16,F),                 /*USER EXIT CB                    */+
WPBUF=(64,,64,F)                   /*MESSAGE CONTROL BUFFER POOL     */
./ ADD NAME=ATCCON00
***********************************************************************
*  STARTLIST   B S P M V S                                            *
***********************************************************************
APPLTSO,                           /* TSO Application major node     */X
APPLCICS,                          /* CICS Application Major Node    */X
LCLMAJ00                           /* LOCAL Non-SNA major node       */
./ ADD NAME=APPLTSO
TSO      APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0001  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0002  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0003  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0004  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0005  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0006  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0007  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
TSO0008  APPL AUTH=(PASS,NVPACE,TSO),BUFFACT=5
./ ADD NAME=LCLMAJ00
LCLMAJ00 LBUILD SUBAREA=2
CUU0C0   LOCAL TERM=3277,CUADDR=0C0,ISTATUS=ACTIVE,                    +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
CUU0C1   LOCAL TERM=3277,CUADDR=0C1,ISTATUS=ACTIVE,                    +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
CUU0C2   LOCAL TERM=3277,CUADDR=0C2,ISTATUS=ACTIVE,                    +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
CUU0C3   LOCAL TERM=3277,CUADDR=0C3,ISTATUS=INACTIVE,                  +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
CUU0C4   LOCAL TERM=3277,CUADDR=0C4,ISTATUS=INACTIVE,                  +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
CUU0C5   LOCAL TERM=3277,CUADDR=0C5,ISTATUS=INACTIVE,                  +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
CUU0C6   LOCAL TERM=3277,CUADDR=0C6,ISTATUS=INACTIVE,                  +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
CUU0C7   LOCAL TERM=3277,CUADDR=0C7,ISTATUS=INACTIVE,                  +
               LOGTAB=BSPLIN01,LOGAPPL=NETSOL,                         +
               FEATUR2=(MODEL2,PFK)
./ ADD NAME=APPLCICS
BSPCIC01 APPL  AUTH=(ACQ,PASS)         CICS CAN ACQUIRE & PASS TMLS
BSPCIC02 APPL  AUTH=(ACQ,PASS)         CICS CAN ACQUIRE & PASS TMLS
XX
