zOs/JCL/DB2RECOV

//A540769R JOB (KEL25071,0240,,3612),'CATALOG',
//*       RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
//         MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//**********************************************************************
//P02     EXEC PGM=DSNUTILB,
//             PARM='DBOC,A540769R.RECOVER'
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOC.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD *
LISTDEF LST
     INCLUDE TABLESPACE AO04A1P.A100A   PARTLEVEL 25
     INCLUDE TABLESPACE AO04A1P.A100A   PARTLEVEL 26
LISTDEF LIX
     INCLUDE TABLESPACES LIST LST
 -- OPTIONS EVENT(ITEMERROR, SKIP)
 --PY LIST LST COPYDDN(TCOPYD)
 --  PARALLEL
 --  SHRLEVEL REFERENCE
 RECOVER LIST LST PARALLEL
     TOLOGPOINT X'CAE90339D534'
  -- TOLASTCOPY
   REBUILD INDEX LIST LIX
      SORTDEVT DISK -- SORTNUM 20
 COPY LIST LST COPYDDN(TCOPYD)
     PARALLEL
     SHRLEVEL REFERENCE