//STEP01   EXEC  PGM=IDCAMS
 //SYSPRINT  DD  SYSOUT=A
 //SYSIN     DD  *
    /*************************************************************/
    /* DEFINE THE NEW MASTER CATALOG                             */
    /* VOLUME ALTVOL DOES NOT CONTAIN THE ORIGINAL MASTER CATALOG*/
    /*************************************************************/
       DEFINE MASTERCATALOG -
             ( NAME(SYS1.ICFCAT.NEWMASTR) -
               CYLINDERS (5 1)  -
               VOLUME (ALTVOL) -
               ICFCATALOG)
 /*
 //STEP02   EXEC PGM=IDCAMS
 //ALTERV   DD UNIT=3390,VOL=SER=ALTVOL,DISP=SHR
 //SYSPRINT DD SYSOUT=A
 //SYSIN DD *
    /***************************************************************/
    /* COPY OLD MASTER CATALOG TO THE NEW MASTER CATALOG           */
    /***************************************************************/
         REPRO INDATASET(SYS1.ICFCAT.MASTER) -
               OUTDATASET(SYS1.ICFCAT.NEWMASTR)
 /*
 //STEP03   EXEC PGM=IEBGENER
 //*************************************************************
 //* COPY OLD SYS1.NUCLEUS(SYSCATLG) TO SYS1.NUCLEUS(SYSCATAL) *
 //* (USE OLD MASTER AS THE ALTERNATE MASTER, NEW MASTER AS THE*
 //*  DEFAULT MASTER)                                          *
 //*************************************************************
 //SYSPRINT DD SYSOUT=A
 //SYSUT1   DD DSN=SYS1.NUCLEUS(SYSCATLG),DISP=OLD
 //SYSUT2   DD DSN=SYS1.NUCLEUS(SYSCATAL),DISP=OLD
 //SYSIN    DD DUMMY
 //STEP04   EXEC PGM=IEBGENER
//**************************************************************
 //* REPLACE OLD SYS1.NUCLEUS(SYSCATLG) MEMBER WITH POINTER TO  *
 //* NEW MASTER CATALOG.                                        *
 //**************************************************************
 //SYSPRINT DD  SYSOUT=A
 //SYSUT1   DD  *
 ALTVOL11  SYS1.ICFCAT.NEWMASTR
 /*
 //SYSUT2   DD  DSN=SYS1.NUCLEUS(SYSCATLG),DISP=OLD
 //SYSIN    DD  DUMMY