zOs/JCL/R

//YBE0101C  JOB (CP00,KE50),                                             0001000
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//***MAIN CLASS=DBTF
//*********************************************************************
//* create tbe010 secondary indexes
//*     subsys     = DBTF
//*     creator    = OA1T01
//*     tablespace = BE01A1T.A010A01
//*     jobs       = YBE0101C und YBE0101S
//*********************************************************************
//REB      EXEC PGM=DSNUTILB,
//             PARM='DBTF,YBE0101C.REBUILD'
//SYSPRINT   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTEMPL   DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN      DD *
  LISTDEF C#LIST                                                        00010000
    INCLUDE INDEX OA1T01.IBE010A1 PARTLEVEL
    INCLUDE INDEX OA1T01.IBE010A3 PARTLEVEL
  REBUILD INDEX LIST C#LIST
      SORTDEVT SYSDA
      WORKDDN(TSYUTD)
      SHRLEVEL REFERENCE
      STATISTICS KEYCARD
                 REPORT NO  UPDATE ALL
//*