zOs/TX/REC01REC

//A540769R JOB (CP00,KE50),'DB2 rec bu',
//             MSGCLASS=T,TIME=1440,SCHENV=DP4G,
//             NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* ux utility generator rec bu
//*           who RZ4 DP4G A540769 2
//*           09.09.15 11:41:35 A540769P 06
//*
//STEP1    EXEC PGM=DSNUTILB,TIME=1440,
//             PARM=(DP4G,'A540769R.UXUTIL'),
//             REGION=0M
//SYSPRINT   DD SYSOUT=*
//*YSPRINT   DD DSN=DSN.JOBRUN.A540769P.STEP1.#DT#,
//*            DISP=(NEW,CATLG,CATLG),MGMTCLAS=BAT#NW,DSNTYPE=LARGE,
//*            DCB=(RECFM=FB,LRECL=132,DSORG=PS),SPACE=(CYL,(1,1000))
//SYSUDUMP   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSTEMPL   DD DISP=SHR,DSN=DP4G.DBAA.LISTDEF(TEMPL)
//INDUMMY    DD DUMMY
//SYSIN      DD *
  OPTIONS(EVENT ITEMERROR SKIP)
  LISTDEF TPLIST
    INCLUDE TABLESPACE QZ92A1T.REC01 PARTLEVEL
  LISTDEF IPLIST INCLUDE INDEXSPACES LIST TPLIST
---- recover -----------------------------------------------------------
--       Tipp: mit TSO LRSN logPoints umwandeln
  RECOVER LIST TPLIST
    PARALLEL
--  TOLOGPOINT X'00' -- max start_rba
--  TOLOGPOINT X'FFFFFFFFFF' -- min start_rba
--    LOGONLY BACKOUT YES
--    RESTOREBEFORE FFFFFFFFFF
--  TOLASTCOPY
--  TOLASTFULLCOPY
--RECOVER TABLESPACE ?.? DSNUM ?
--  TOCOPY
---- rebuild index -----------------------------------------------------
  REBUILD INDEX LIST IPLIST
    SORTDEVT SYSDA
    STATISTICS UPDATE ALL