zOs/JCL/DB2RECTI

//A540769A JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//SRECO    EXEC PGM=DSNUTILB,
//             PARM='DBTF,A540769R.RECOV'
//SYSPRINT   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTEMPL   DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN      DD *
  LISTDEF RECOLST
    INCLUDE TABLESPACE MF01A1P.A110A PARTLEVEL
  -- OPTIONS EVENT(ITEMERROR SKIP)
  COPY    LIST RECOLST COPYDDN(TCOPYD) PARALLEL SHRLEVEL REFERENCE
  RECOVER LIST RECOLST TOLOGPOINT X'C625833F92C8'
          PARALLEL
  LISTDEF IXLST
    INCLUDE INDEXSPACES LIST RECOLST
  REBUILD INDEX LIST IXLST
      SORTDEVT SYSDA
      SORTNUM  100
      WORKDDN(TSYUTD)