//MVS0080 JOB  (SYSGEN),
//             'Alloc var files',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1)
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//*
//* DESC: Allocate various files that are needed later
//*
//*********************************************************************
//*
//CLEANUP EXEC PGM=IEFBR14
//SYSINLIB DD  DISP=(MOD,DELETE),
//             DSN=SYS1.SYSINLIB,
//             UNIT=TSO,
//             SPACE=(TRK,(0))
//HELP2    DD  DISP=(MOD,DELETE),
//             DSN=SYS2.HELP,
//             UNIT=TSO,
//             SPACE=(TRK,(0))
//MAKE    EXEC PGM=IEBUPDTE,PARM=NEW
//HELP2    DD  DISP=(,CATLG),
//             DSN=SYS2.HELP,
//             UNIT=TSO,
//             SPACE=(CYL,(1,1,20)),
//             DCB=SYS1.HELP
//SYSUT2   DD  DISP=SHR,DSN=SYS1.CMDPROC
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DATA,DLM=XX
./ ADD NAME=STDLOGON
        PROC 0
CONTROL NOMSG,NOLIST,NOSYMLIST,NOCONLIST,NOFLUSH
CLS
WRITE ******************************************-
*************************************
WRITE *                                         -
                                    *
WRITE *                                         -
                                    *
WRITE *                    Welcome to the TSO sy-
stem on BSP1                        *
WRITE *                    =====================-
============                        *
WRITE *                                         -
                                    *
WRITE *                                         -
                                    *
WRITE ******************************************-
*************************************
./ ADD NAME=USRLOGON
        PROC 0
CONTROL NOMSG,NOLIST,NOSYMLIST,NOCONLIST,NOFLUSH
FREE FILE(SYSHELP)
WRITE Logging on to BSP1 at &SYSTIME using &SYSPROC
ALLOC FILE(SYSHELP) DSN('SYS1.HELP','SYS2.HELP') SHR
ALLOC FILE(X1) DSN('&SYSUID..CMDPROC(STDLOGON)') SHR
IF &LASTCC = 0 THEN +
   DO
      WRITE Logging on using private logon procedure
      FREE FILE(SYSPROC)
      FREE FILE(X1)
      ALLOC FILE(SYSPROC) DSN('&SYSUID..CMDPROC','SYS1.CMDPROC') SHR
   END
ELSE +
   DO
      WRITE Logging on using public logon procedure
      FREE FILE(X1)
   END
/* ENDIF */      
%STDLOGON
EXIT
XX
//SYSINLB EXEC PGM=IEBUPDTE,PARM=NEW
//SYSUT2   DD  DISP=(,CATLG),
//             DSN=SYS1.SYSINLIB,
//             UNIT=TSO,
//             SPACE=(CYL,(1,1,20)),
//             DCB=SYS1.OBJPDS01
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DATA,DLM=XX
./ ADD NAME=ADDSYSP
 PUNCH ' PROFILE NOPREFIX'
 PUNCH ' ACCOUNT'
 PUNCH ' SYNC'
 PUNCH '  DEL (&SYSPARM.)'
 PUNCH '  ADD (&SYSPARM. * * TSOLOGON) +'
 PUNCH '      NOLIM +'
 PUNCH '      OPER +'
 PUNCH '      ACCT +'
 PUNCH '      JCL +'
 PUNCH '      MOUNT +'
 PUNCH '      UNIT(3350) +'
 PUNCH '      SIZE(4096)'
 PUNCH '  LIST (&SYSPARM.)'
 PUNCH ' END'
         END
./ ADD NAME=ADDUSER
 PUNCH ' PROFILE NOPREFIX'
 PUNCH ' ACCOUNT'
 PUNCH '  SYNC'
 PUNCH '  DEL (&SYSPARM.)'
 PUNCH '  ADD (&SYSPARM. * * TSOLOGON) +'
 PUNCH '      NOLIM                    +'
 PUNCH '      NOOPER                   +'
 PUNCH '      NOACCT                   +'
 PUNCH '      JCL                      +'
 PUNCH '      NOMOUNT                  +'
 PUNCH '      UNIT(TSO)                +'
 PUNCH '      SIZE(4096)'
 PUNCH '  LIST (&SYSPARM.)'
 PUNCH ' END'
         END
./ ADD NAME=DEFALIAS
 PUNCH ' DELETE &SYSPARM..*'
 PUNCH ' DELETE &SYSPARM ALIAS'
 PUNCH ' SET LASTCC = 0'
 PUNCH ' SET MAXCC = 0'
 PUNCH ' DEFINE ALIAS(NAME(&SYSPARM.) RELATE(SYS1.UCAT.TSO))'
         END 
XX