//SERVZFS3 JOB ,D10.JOBS,
//         MSGLEVEL=(1,1),PERFORM=10,CLASS=A,MSGCLASS=I
//*****************************************************************/
//*                                                               */
//*  Job to service the z/OS V1R13 ZFS on PLEX1                   */
//*                                                               */
//*  step 1 - unmounts old zFS                                    */
//*  step 2 - deletes old zFS                                     */
//*  step 3 - restores version zFS and renames to old zFS name    */
//*  step 4 - runs customization exec (see CUSTZFS3)              */
//*                                                               */
//*  XXXXXX is the primary (first) SYSRES volume                  */
//*                                                               */
//*****************************************************************/
//UNMOUNT  EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
   UNMOUNT FILESYSTEM(OMVSSPN.XXXXXX.ROOT.FS) IMMEDIATE
//*******************************************************************
//* DELETE EXISTING ROOT                                            *
//*******************************************************************
//DELETE1  EXEC  PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=(H,,STD)
//SYSABEND DD SYSOUT=(H,,STD)
//SYSTSIN  DD DATA,DLM='/>'
 DELETE 'OMVSSPN.XXXXXX.ROOT.FS'
/>
//*******************************************************************
//* RESTORE NEW ROOT ZFS                                            *
//*******************************************************************
//RESTORE1 EXEC PGM=ADRDSSU,TIME=60,REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DD1      DD DSN=MVSBUILD.ITOSR13.ZFSDUMP,DISP=SHR,
//         UNIT=3390,VOL=SER=XXXXXX
//SYSIN    DD *
 RESTORE DATASET(INCLUDE(OMVS.ZFS.AQTS.**)) -
      INDD(DD1) -
      TOL(ENQF) -
      STORCLAS(SMSOE) -
      MGMTCLAS(SMSOE) -
 RENAMEU(OMVS.ZFS.AQTS.**,OMVSSPN.XXXXXX.ROOT.FS) -
      REPLACE CATALOG
/*
//**********************************************************************
//* CUSTOMIZE ROOT ZFS                                                 *
//**********************************************************************
//CUSTOM1  EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=4M
//SYSUDUMP DD SYSOUT=(I,,STD)
//SYSTSPRT DD SYSOUT=(I,,STD)
//SYSEXEC  DD DSN=SYS1.SBPXEXEC,DISP=SHR
//SYSPROC  DD DSN=ISP.SISPCLIB,DISP=SHR
//ISPMLIB  DD DSN=SYS1.SBPXMENU,DISP=SHR
//         DD DSN=ISP.SISPMENU,DISP=SHR
//ISPPLIB  DD DSN=SYS1.SBPXPENU,DISP=SHR
//         DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB  DD DSN=ISP.SISPSENU,DISP=SHR
//ISPTLIB  DD DSN=ISP.SISPTENU,DISP=SHR
//         DD DSN=SYS1.SBPXTENU,DISP=SHR
//ISPPROF  DD   DSN=&&TMPPRF,
//         DISP=NEW,UNIT=3390,SPACE=(CYL,(1,1,1)),
//         DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
//SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
//         DD DSN=ISP.SISPMACS,DISP=SHR
//         DD DSN=SYS1.MODGEN,DISP=SHR
//SYSTSIN  DD *
 MKDIR '/service/XXXXXX' MODE(7,5,5)
 MOUNT FILESYSTEM('OMVSSPN.XXXXXX.ROOT.FS') -
  MOUNTPOINT('/service/XXXXXX') -
  TYPE(ZFS) -
  MODE(RDWR)
 EXEC 'D10.PETHFSN.JOBS(CUSTZFS3)' '/service/XXXXXX'
 UNMOUNT FILESYSTEM('OMVSSPN.XXXXXX.ROOT.FS') IMMEDIATE
//*********************************************************************
//* THIS COPIES THE UPDATED PLEX2 ZFS3 JOB TO THE PLEX2 ACCESSABLE    *
//* DATASET FOR OPERATIONS TO SUBMIT, BUT ONLY IF THE RETURN          *
//* CODE from the "RESTORE1" step is less THAN '8'.                   *
//*********************************************************************
//COPYSTEP EXEC PGM=IEBGENER,COND=(7,LT,RESTORE1)
//SYSPRINT DD SYSOUT=(*,,STD),HOLD=YES
//SYSIN    DD DUMMY,DCB=BLKSIZE=80
//*
//SYSUT1   DD DISP=SHR,DSN=D10.PET.STAGE3.TEMP(PLX2ZFS3)
//SYSUT2   DD DISP=OLD,DSN=D10.PET.PLEX2.OMVS.JCL(PLX2ZFS3)