zOs/JCL/BEIXCR
$#@
$=tx=4
$=qq=T
$=subsys=DBTF
$=cr=OA1${qq}0$tx
$=ts=BE01A1$qq.A010A0$tx
$=job=YBE010$tx
$;
$** $>.fSub()
$@=[
//${job}C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//***MAIN CLASS=$subsys
//*********************************************************************
//* create tbe010 secondary indexes
//* subsys = $subsys
//* creator = $cr
//* tablespace = $ts
//* jobs = ${job}C und ${job}S
//*********************************************************************
//DDL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SET CURRENT SQLID = 'S100447';
ALTER INDEX $cr.IBE010A0
PRIQTY -1
SECQTY -1 ;
COMMIT;
CREATE INDEX $cr.IBE010A1
ON $cr.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010089 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX $cr.IBE010A3
ON $cr.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010034 ASC,
BE010054 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
// IF DDL.RC LE 4 THEN
//SUBRUN EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSUT1 DD *,DLM='eS'
//${job}S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=($subsys,'${job}S.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE $ts
SHRLEVEL CHANGE
INDEX($cr.IBE010A0 KEYCARD)
REPORT NO UPDATE ALL
eS
//REB EXEC PGM=DSNUTILB,
// PARM='$subsys,${job}C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=$subsys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF C#LIST 00010000
INCLUDE INDEX $cr.IBE010A1 PARTLEVEL
INCLUDE INDEX $cr.IBE010A3 PARTLEVEL
REBUILD INDEX LIST C#LIST
SORTDEVT SYSDA
WORKDDN(TSYUTD)
SHRLEVEL REFERENCE
STATISTICS KEYCARD
REPORT NO UPDATE ALL
//*
// ENDIF
$]
$#out 20110531 15:56:17
//YBE0104C JOB (CP00,KE50), 0001000
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//***MAIN CLASS=DBTF
//*********************************************************************
//* create tbe010 secondary indexes
//* subsys = DBTF
//* creator = OA1T04
//* tablespace = BE01A1T.A010A04
//* jobs = YBE0104C und YBE0104S
//*********************************************************************
//DDL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SET CURRENT SQLID = 'S100447';
ALTER INDEX OA1T04.IBE010A0
PRIQTY -1
SECQTY -1 ;
COMMIT;
CREATE INDEX OA1T04.IBE010A1
ON OA1T04.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010089 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1T04.IBE010A3
ON OA1T04.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010034 ASC,
BE010054 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
// IF DDL.RC LE 4 THEN
//SUBRUN EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSUT1 DD *,DLM='eS'
//YBE0104S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'YBE0104S.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE BE01A1T.A010A04
SHRLEVEL CHANGE
INDEX(OA1T04.IBE010A0 KEYCARD)
REPORT NO UPDATE ALL
eS
//REB EXEC PGM=DSNUTILB,
// PARM='DBTF,YBE0104C.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 OA1T04.IBE010A1 PARTLEVEL
INCLUDE INDEX OA1T04.IBE010A3 PARTLEVEL
REBUILD INDEX LIST C#LIST
SORTDEVT SYSDA
WORKDDN(TSYUTD)
SHRLEVEL REFERENCE
STATISTICS KEYCARD
REPORT NO UPDATE ALL
//*
// ENDIF
$#out 20110531 15:52:47
$#out 20110531 15:41:01
$#out 20110531 12:56:46
//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
//*********************************************************************
//DDL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SET CURRENT SQLID = 'S100447';
ALTER INDEX OA1T01.IBE010A0
PRIQTY -1
SECQTY -1 ;
COMMIT;
CREATE INDEX OA1T01.IBE010A1
ON OA1T01.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010089 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1T01.IBE010A3
ON OA1T01.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010034 ASC,
BE010054 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
// IF DDL.RC LE 4 THEN
//SUBRUN EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSUT1 DD *,DLM='eS'
//YBE0101S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'YBE0101S.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE BE01A1T.A010A01
SHRLEVEL CHANGE
INDEX(OA1T01.IBE010A0 KEYCARD)
REPORT NO UPDATE ALL
eS
//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
//*
// ENDIF
$#out 20110531 12:05:14
$#out 20110531 11:55:22
$#out 20110530 09:20:26
$#out 20110530 09:19:48