//SG0090  JOB  (SYSGEN),
//             'ACCEPT TIOCS et al',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             REGION=5120K
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* DESC: ACCEPT various MVS related FMIDs
//*
//* Note: Because the cumptf is not complete, their might be mising
//*       PTFS.  We might have to use BYPASS(PRE,IFREQ) to get the
//*       functions installed
//*
//*********************************************************************
//JOBCAT   DD  DISP=SHR,DSN=SYS1.VMASTCAT
//MVSACC  EXEC SMP4
//SMPPTFIN DD  DISP=(OLD,KEEP),DSN=SMPMCS,UNIT=(TAPE,,DEFER),
//             VOL=(PRIVATE,RETAIN,SER=MVS38J),LABEL=(1,SL)
//SMPCNTL  DD  *
 ACCEPT G(
          EML1102                            /* Multi-Leaving WS    */
          EMS1102                            /* MSS                 */
          FDZ1610                            /* DSF                 */
          ETI1106                            /* TIOC                */
          ETC0108                            /* TCAM                */
         )
     DIS(WRITE)
     BYPASS(IFREQ)
     NOAPPLY
.
//
