zOs/JCL/ELARJW
$*( Elar Indexe erstellen
ddl ist in elarJX
pro table 2 JoSteps: ddl und runstats rebuild runstats
defer yes und ; einfuegen
Kommentare überlesen
falls Tabel eine Partition > 5GB hat,
Bufferpool auf BP16K2 ändern
$*)
$** $>.jclSub()
$<A540769.WK.JCL(ELARJX)
$=tb=-''
$=jn=0
$=ssid=DVBP
m.big = 0
call sqlConnect $ssid
$@for li $@[
w1 = translate(word($li, 1))
if w1 == 'CREATE' then do
parse value $li with wc wi ix wo tb re
if wi = 'UNIQUE' then
parse value $li with wc wu wi ix wo tb re
say 'ix' ix 'tb' tb'|'
if wi <> 'INDEX' | wo \= 'ON' | re \= '' then
call err 'bad create' strip($li)
if $tb \= '' then
$$ DEFER YES ;
if tb \= $tb then do
if $tb \= '' then
$@tbEnd()
m.ixl.0 = 0
$=tb=-tb
$@tbBeg()
end
call mAdd ixl, ix
end
if w1 = 'BUFFERPOOL' & m.big then
$$ BUFFERPOOL BP16K2
else if pos(left(w1, 1), ' ?;') < 1 then
$$ $li
$]
if $tb \= '' then do
$$ DEFER YES ;
$@tbEnd()
end
call sqlDisConnect
$@proc tbBeg $@[
parse value $tb with cr'.'tb
call sqlPreAllCl 1, "select max(s.dbName), max(s.name), ",
"real(max(r.space)) * 1024" ,
"from sysibm.systables t, sysibm.sysTableSpace s,",
"sysibm.systableSpaceStats r" ,
"where t.creator = '"cr"' and t.name ='"tb"'" ,
"and t.dbName = s.dbName and t.tsName = s.name",
"and r.dbId = s.dbId and r.psId = s.psId",
, s, ":qDb, :qTs, :qSz"
m.big = qSz > 5e9
say cr'.'tb m.s.0 '=>' qDb'.'qTs '=' qSz 'big' m.big
if $jn = 0 then $@=[
//Y540769C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
$]
$=jn=-right($jn+1, 3, 0)
$@=[
// IF RC=0 OR RC=4 THEN create $tb
//CRE$jn EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM($ssid)
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';
$]
$]
$@proc tbEnd $@[
$@=[
// ENDIF create $tb
// IF RC=0 OR RC=4 THEN rebuild $tb
//REB$jn EXEC PGM=DSNUTILB,
// PARM='$ssid,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=$ssid.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE $tb
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
$]
do ix=1 to m.ixl.0
$$- ' INCLUDE INDEX' m.ixl.ix 'PARTLEVEL'
end
$@=[
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild $tb
$]
$]
$#out 20100728 15:47:12
//Y540769C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001002
//CRE001 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1P8_MIG ON BUA.XBDKP001PM001002
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001002
//REB001 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001002
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P8_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001003
//CRE002 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1P9_MIG ON BUA.XBDKP001PM001003
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001003
//REB002 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001003
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P9_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001004
//CRE003 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PA_MIG ON BUA.XBDKP001PM001004
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001004
//REB003 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001004
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PA_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001005
//CRE004 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PB_MIG ON BUA.XBDKP001PM001005
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001005
//REB004 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001005
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PB_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001006
//CRE005 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PC_MIG ON BUA.XBDKP001PM001006
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001006
//REB005 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001006
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PC_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001007
//CRE006 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PD_MIG ON BUA.XBDKP001PM001007
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001007
//REB006 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001007
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PD_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001008
//CRE007 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PF_MIG ON BUA.XBDKP001PM001008
( EN1SLWRFNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001008
//REB007 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001008
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PF_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001009
//CRE008 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PG_MIG ON BUA.XBDKP001PM001009
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001009
//REB008 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001009
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PG_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001010
//CRE009 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PH_MIG ON BUA.XBDKP001PM001010
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001010
//REB009 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001010
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PH_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001011
//CRE010 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PI_MIG ON BUA.XBDKP001PM001011
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001011
//REB010 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001011
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PI_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001012
//CRE011 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PJ_MIG ON BUA.XBDKP001PM001012
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001012
//REB011 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001012
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PJ_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001013
//CRE012 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PK_MIG ON BUA.XBDKP001PM001013
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PL_MIG ON BUA.XBDKP001PM001013
( EN1KONTO ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001013
//REB012 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001013
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PL_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001014
//CRE013 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PM_MIG ON BUA.XBDKP001PM001014
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PN_MIG ON BUA.XBDKP001PM001014
( EN1VALORNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PO_MIG ON BUA.XBDKP001PM001014
( EN1ISIN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001014
//REB013 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001014
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001015
//CRE014 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PP_MIG ON BUA.XBDKP001PM001015
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001015
//REB014 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001015
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PP_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001IT002001
//CRE015 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000AMH7_MIG ON BUA.XBDKP001IT002001
( EA1STRN ASC
, EN1STK1 ASC
, EN1STK2 ASC
, EN1ENTERTAG ASC
-- , EN1PART ASC -- Unique Index nicht möglich (Duplikate)
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001IT002001
//REB015 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001IT002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000AMH7_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS001001
//CRE016 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE UNIQUE INDEX BUA.I000B2RG_MIG ON BUA.XBDKP001PS001001
( EA1ATRN ASC
, EN1ENTERTAG ASC
, ET1LOGPROD ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE UNIQUE INDEX BUA.I000B2RH_MIG ON BUA.XBDKP001PS001001
(
EN1PART ASC
, EN1ABRWSN ASC
, EC1ABRWSHIST ASC
, EN1ABRWS ASC
, ES1ABRWS ASC
, EC1BA ASC
, EC1GA ASC
, EC1PHASE ASC
, ET1LOGPROD ASC
,
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RI_MIG ON BUA.XBDKP001PS001001
( EN1ABRWS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RJ_MIG ON BUA.XBDKP001PS001001
( EN1CIFINH ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RK_MIG ON BUA.XBDKP001PS001001
( EN1DEPOT ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RL_MIG ON BUA.XBDKP001PS001001
( EN1SWIFTREF ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RM_MIG ON BUA.XBDKP001PS001001
( EN1SICABS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RN_MIG ON BUA.XBDKP001PS001001
( EN1VALORNEU ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RO_MIG ON BUA.XBDKP001PS001001
( EN1ISIN ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS001001
//REB016 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS001001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RG_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RH_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RI_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RJ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RL_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS002001
//CRE017 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE UNIQUE INDEX BUA.I000B2RQ_MIG ON BUA.XBDKP001PS002001
( EA1STRN ASC
, EN1ENTERTAG ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RR_MIG ON BUA.XBDKP001PS002001
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS002001
//REB017 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RQ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RR_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS002001
$#out 20100728 14:50:15
//Y540769C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001002
//CRE001 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1P8_MIG ON BUA.XBDKP001PM001002
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001002
//REB001 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001002
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P8_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001003
//CRE002 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1P9_MIG ON BUA.XBDKP001PM001003
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001003
//REB002 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001003
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P9_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001004
//CRE003 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PA_MIG ON BUA.XBDKP001PM001004
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001004
//REB003 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001004
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PA_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001005
//CRE004 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PB_MIG ON BUA.XBDKP001PM001005
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001005
//REB004 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001005
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PB_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001006
//CRE005 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PC_MIG ON BUA.XBDKP001PM001006
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001006
//REB005 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001006
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PC_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001007
//CRE006 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PD_MIG ON BUA.XBDKP001PM001007
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001007
//REB006 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001007
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PD_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001008
//CRE007 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PF_MIG ON BUA.XBDKP001PM001008
( EN1SLWRFNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001008
//REB007 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001008
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PF_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001009
//CRE008 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PG_MIG ON BUA.XBDKP001PM001009
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001009
//REB008 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001009
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PG_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001010
//CRE009 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PH_MIG ON BUA.XBDKP001PM001010
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001010
//REB009 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001010
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PH_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001011
//CRE010 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PI_MIG ON BUA.XBDKP001PM001011
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001011
//REB010 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001011
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PI_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001012
//CRE011 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PJ_MIG ON BUA.XBDKP001PM001012
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001012
//REB011 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001012
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PJ_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001013
//CRE012 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PK_MIG ON BUA.XBDKP001PM001013
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PL_MIG ON BUA.XBDKP001PM001013
( EN1KONTO ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001013
//REB012 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001013
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PL_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001014
//CRE013 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PM_MIG ON BUA.XBDKP001PM001014
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PN_MIG ON BUA.XBDKP001PM001014
( EN1VALORNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PO_MIG ON BUA.XBDKP001PM001014
( EN1ISIN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001014
//REB013 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001014
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001015
//CRE014 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000B1PP_MIG ON BUA.XBDKP001PM001015
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001015
//REB014 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001015
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PP_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001IT002001
//CRE015 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE INDEX BUA.I000AMH7_MIG ON BUA.XBDKP001IT002001
( EA1STRN ASC
, EN1STK1 ASC
, EN1STK2 ASC
, EN1ENTERTAG ASC
-- , EN1PART ASC -- Unique Index nicht möglich (Duplikate)
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001IT002001
//REB015 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001IT002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000AMH7_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS001001
//CRE016 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE UNIQUE INDEX BUA.I000B2RG_MIG ON BUA.XBDKP001PS001001
( EA1ATRN ASC
, EN1ENTERTAG ASC
, ET1LOGPROD ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE UNIQUE INDEX BUA.I000B2RH_MIG ON BUA.XBDKP001PS001001
(
EN1PART ASC
, EN1ABRWSN ASC
, EC1ABRWSHIST ASC
, EN1ABRWS ASC
, ES1ABRWS ASC
, EC1BA ASC
, EC1GA ASC
, EC1PHASE ASC
, ET1LOGPROD ASC
,
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RI_MIG ON BUA.XBDKP001PS001001
( EN1ABRWS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RJ_MIG ON BUA.XBDKP001PS001001
( EN1CIFINH ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RK_MIG ON BUA.XBDKP001PS001001
( EN1DEPOT ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RL_MIG ON BUA.XBDKP001PS001001
( EN1SWIFTREF ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RM_MIG ON BUA.XBDKP001PS001001
( EN1SICABS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RN_MIG ON BUA.XBDKP001PS001001
( EN1VALORNEU ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RO_MIG ON BUA.XBDKP001PS001001
( EN1ISIN ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS001001
//REB016 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS001001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RG_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RH_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RI_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RJ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RL_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS002001
//CRE017 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
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';
CREATE UNIQUE INDEX BUA.I000B2RQ_MIG ON BUA.XBDKP001PS002001
( EA1STRN ASC
, EN1ENTERTAG ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RR_MIG ON BUA.XBDKP001PS002001
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS002001
//REB017 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RQ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RR_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS002001
$#out 20100728 14:40:08