//SG0020  JOB  (SYSGEN),
//             'Create MasterCat',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             REGION=3072K
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* DESC: Create the master catalog for the new system
//*       The catalog name is SYS1.VMASTCAT
//*       It will be placed onto volume MVSRES.
//*
//* Note:  This job might be run more than once (e.g., when the
//*        SYSGEN process has to be repeated because of a
//*        non-recoverable error situation).  Therefore
//*        a few cleanup steps have been provided as well
//*
//*********************************************************************
//*
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//MVSRES   DD  UNIT=3350,VOL=SER=MVSRES,DISP=SHR
//SYSIN    DD  *
 DELETE SYS1.VMASTCAT USERCATALOG    FORCE    FILE(MVSRES)
 SET LASTCC = 0
 SET MAXCC  = 0
 EXPORT SYS1.VMASTCAT DISCONNECT
 SET LASTCC = 0
 SET MAXCC = 0
//SCRATCH EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=*
//MVSRES   DD  DISP=OLD,UNIT=3350,VOL=SER=MVSRES
//MVSDLB   DD  DISP=OLD,UNIT=3350,VOL=SER=MVSDLB
//SYSIN    DD  *
  SCRATCH VTOC,VOL=3350=MVSRES,PURGE
  SCRATCH VTOC,VOL=3350=MVSDLB,SYS
//DEFMCAT EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//MVSRES   DD  UNIT=3350,VOL=SER=MVSRES,DISP=SHR
//SYSIN    DD  *
  DEFINE UCAT ( NAME (SYS1.VMASTCAT)     -
                FILE (MVSRES)            -
                VOL (MVSRES)             -
                CYL (10)                 -
                BUFSP (8192)             -
                NRVBL                    -
              )
