//SG0120  JOB  (SYSGEN),
//             'Remove SMPTLIBs',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             REGION=5120K
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* DESC: remove SMPTLIBs and related files from MVSDLB
//*
//*********************************************************************
//JOBCAT   DD  DISP=SHR,DSN=SYS1.VMASTCAT
//REJECT  EXEC SMP4
//SMPCNTL  DD  *
     REJECT S(EAS1102) .
     REJECT S(EBB1102) .
     REJECT S(EBT1102) .
     REJECT S(EDE1102) .
     REJECT S(EDM1102) .
     REJECT S(EDS1102) .
     REJECT S(EER1400) .
     REJECT S(EGA1102) .
     REJECT S(EGS1102) .
     REJECT S(EIP1102) .
     REJECT S(EJE1103) .
     REJECT S(EMF1102) .
     REJECT S(EMI1102) .
     REJECT S(EML1102) .
     REJECT S(EMS1102) .
     REJECT S(EPM1102) .
     REJECT S(EST1102) .
     REJECT S(ESU1102) .
     REJECT S(ESY1400) .
     REJECT S(ETC0108) .
     REJECT S(ETI1106) .
     REJECT S(ETV0108) .
     REJECT S(EUT1102) .
     REJECT S(EVT0108) .
     REJECT S(EXW1102) .
     REJECT S(FBB1221) .
     REJECT S(FDS1122) .
     REJECT S(FDZ1610) .
     REJECT S(FDM1133) .
     REJECT S(FDS1133) .
     REJECT S(FUT1133) .
//SCRATCH EXEC PGM=IEHPROGM,COND=(4,LT)
//SYSPRINT DD  SYSOUT=*
//MVSRES   DD  DISP=OLD,UNIT=3350,VOL=SER=MVSRES
 SCRATCH VTOC,VOL=3350=MVSRES
//
