DB2
z/OS DB2 LUW
z/OS
CICS VTAM
|
DB2 z/OS Info
|
Home |
Kleine
Beispiele für LISTDEF und TEMPLATE
QUIESCE ALL TS :
Früher ohne LISTDEF
//GENQSTS EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*
//SYSREC00 DD DISP=(,PASS),DSN=&&QSDSN,
//
DCB=(RECFM=FB,LRECL=80),SPACE=(CYL,(2,2)),UNIT=SYSDA
//SYSPUNCH DD DUMMY
//SYSTSIN DD *
DSN S(DSN1)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) -
PARMS('SQL,1000') -
LIB('<YOUR>.RUNLIB.LOAD')
END
/*
//SYSIN DD *
SELECT CHAR('
TABLESPACE '
CONCAT STRIP(DBNAME, B) CONCAT '.' CONCAT NAME , 80)
FROM SYSIBM.SYSTABLESPACE
WHERE DBNAME NOT IN ('DSNDB07')
ORDER BY DBNAME, NAME
;
//STEP010 EXEC PGM=DSNUTILB,PARM=(DSN1,'QUIESCE.TSALL')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
QUIESCE
//
DD
DISP=(OLD,DELETE),DSN=&&QSDSN
/*
Heute
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP010 EXEC PGM=DSNUTILB,PARM=(DSN1,'QUIESCE.TSALL')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF LQUIESCE
INCLUDE
TABLESPACE A*.*
INCLUDE
TABLESPACE B*.*
INCLUDE
TABLESPACE C*.*
INCLUDE
TABLESPACE D*.*
INCLUDE
TABLESPACE E*.*
INCLUDE
TABLESPACE F*.*
INCLUDE
TABLESPACE G*.*
INCLUDE
TABLESPACE H*.*
INCLUDE
TABLESPACE I*.*
INCLUDE
TABLESPACE J*.*
INCLUDE
TABLESPACE K*.*
INCLUDE
TABLESPACE L*.*
INCLUDE
TABLESPACE M*.*
INCLUDE
TABLESPACE N*.*
INCLUDE
TABLESPACE O*.*
INCLUDE
TABLESPACE P*.*
INCLUDE
TABLESPACE Q*.*
INCLUDE
TABLESPACE R*.*
INCLUDE
TABLESPACE S*.*
INCLUDE
TABLESPACE T*.*
INCLUDE
TABLESPACE U*.*
INCLUDE
TABLESPACE V*.*
INCLUDE
TABLESPACE W*.*
INCLUDE
TABLESPACE X*.*
INCLUDE
TABLESPACE Y*.*
INCLUDE
TABLESPACE Z*.*
INCLUDE
TABLESPACE DSNDB06.SYSALTER
INCLUDE
TABLESPACE DSNDB06.SYSCOPY
INCLUDE
TABLESPACE DSNDB06.SYSDBASE
INCLUDE
TABLESPACE DSNDB06.SYSDBAUT
INCLUDE
TABLESPACE DSNDB06.SYSDDF
INCLUDE
TABLESPACE DSNDB06.SYSEBCDC
INCLUDE
TABLESPACE DSNDB06.SYSGPAUT
INCLUDE
TABLESPACE DSNDB06.SYSGROUP
INCLUDE
TABLESPACE DSNDB06.SYSGRTNS
INCLUDE
TABLESPACE DSNDB06.SYSHIST
INCLUDE
TABLESPACE DSNDB06.SYSJAUXA
INCLUDE
TABLESPACE DSNDB06.SYSJAUXB
INCLUDE
TABLESPACE DSNDB06.SYSJAVA
INCLUDE
TABLESPACE DSNDB06.SYSOBJ
INCLUDE
TABLESPACE DSNDB06.SYSPKAGE
INCLUDE
TABLESPACE DSNDB06.SYSPLAN
INCLUDE
TABLESPACE DSNDB06.SYSSEQ
INCLUDE
TABLESPACE DSNDB06.SYSSEQ2
INCLUDE
TABLESPACE DSNDB06.SYSSTATS
INCLUDE
TABLESPACE DSNDB06.SYSSTR
INCLUDE
TABLESPACE DSNDB06.SYSUSER
INCLUDE
TABLESPACE DSNDB06.SYSVIEWS
INCLUDE
TABLESPACE DSNDB01.DBD01
INCLUDE
TABLESPACE DSNDB01.SCT02
INCLUDE
TABLESPACE DSNDB01.SPT01
INCLUDE
TABLESPACE DSNDB01.SYSLGRNX
-- INCLUDE TABLESPACE
DSNDB01.SYSUTILX
INCLUDE
TABLESPACE DSNDB06.SYSCOPY
//SYSIN DD *
QUIESCE LIST LQUIESCE
/*
//TERMUTIL EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-TERM UTIL(QUIESCE.TSALL)
END
/*
REORG :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP030 EXEC PGM=DSNUTILB,PARM=(DSN1,'REORG.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DSN=DSN1.REORG.SYSUT1,
//
DISP=(NEW,CATLG,CATLG),
//
SPACE=(CYL,(800,800)),
// UNIT=WORK
//SORTOUT DD DSN=DSN1.REORG.SORTOUT,
//
DISP=(NEW,CATLG,CATLG),
//
SPACE=(CYL,(800,800)),
// UNIT=WORK
//SYSERR DD DSN=DSN1.REORG.SYSERR,
//
DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(50,10)),
// UNIT=WORK
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DB1%.TS%
INCLUDE
TABLESPACE DB2%.TS%
INCLUDE
TABLESPACE DB3%.TS%
INCLUDE
TABLESPACE DB4%.TS%
-- INCLUDE TABLESPACES
PARTLEVEL TABLESPACE DB1%.TS%
//SYSTEMPL DD *
TEMPLATE UNLDSN
DSN('DSN1.REORG.&DB..&TS..D&DT..T&TI.')
UNIT(WORK)
DISP(NEW,DELETE,CATLG)
SPACE (500,500)
CYL
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
//SYSIN DD *
REORG TABLESPACE LIST ROLIST
LOG NO
SORTDATA
SORTDEVT WORK
SORTNUM 4
COPYDDN (SYSCOPY)
UNLDDN (UNLDSN)
UNLOAD CONTINUE
WORKDDN (SYSUT1,SORTOUT)
/*
//DELETE EXEC PGM=IDCAMS,COND=(5,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DSN1.REORG.SYSUT1 NONVSAM
DELETE DSN1.REORG.SORTOUT NONVSAM
DELETE DSN1.REORG.SYSREC NONVSAM
DELETE DSN1.REORG.SYSERR NONVSAM
SET MAXCC = 0
/*
Online REORG :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP030 EXEC PGM=DSNUTILB,PARM=(DSN1,'REORG.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DSN=DSN1.REORG.SYSUT1,
//
DISP=(NEW,CATLG,CATLG),
//
SPACE=(CYL,(800,800)),
// UNIT=WORK
//SORTOUT DD DSN=DSN1.REORG.SORTOUT,
//
DISP=(NEW,CATLG,CATLG),
//
SPACE=(CYL,(800,800)),
// UNIT=WORK
//SYSERR DD DSN=DSN1.REORG.SYSERR,
//
DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(50,10)),
// UNIT=WORK
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DB1%.TS%
INCLUDE
TABLESPACE DB2%.TS%
INCLUDE
TABLESPACE DB3%.TS%
INCLUDE
TABLESPACE DB4%.TS%
-- INCLUDE TABLESPACES
PARTLEVEL TABLESPACE DB1%.TS%
//SYSTEMPL DD *
TEMPLATE UNLDSN
DSN('DSN1.REORG.&DB..&TS..D&DT..T&TI.')
UNIT(WORK)
DISP(NEW,DELETE,CATLG)
SPACE (500,500)
CYL
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
//SYSIN DD *
REORG TABLESPACE LIST ROLIST
SHRLEVEL CHANGE
LOG NO
SORTDATA
SORTDEVT SYSDA
SORTNUM 32
COPYDDN (SYSCOPY)
UNLDDN (UNLDSN)
UNLOAD CONTINUE
WORKDDN SYSUT1
MAPPINGTABLE <YOUR.MAPPING_TABLE>
FASTSWITCH NO
DELAY 1200
MAXRO 300
DRAIN_WAIT 50
MAXRO 50
LONGLOG CONTINUE
TIMEOUT TERM
STATISTICS
TABLE(ALL)
INDEX(ALL)
REPORT NO
UPDATE ALL
/*
//DELETE EXEC PGM=IDCAMS,COND=(5,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DSN1.REORG.SYSUT1 NONVSAM
DELETE DSN1.REORG.SORTOUT NONVSAM
DELETE DSN1.REORG.SYSREC NONVSAM
DELETE DSN1.REORG.SYSERR NONVSAM
SET MAXCC = 0
/*
REORG Catalog Tablespaces :
//SETRC0 EXEC PGM=IEFBR14
//ALLOC EXEC PGM=IEFBR14
//SYSUT1 DD DSN=DSN1.REORG.SYSUT1,
//
DISP=(NEW,CATLG,CATLG),
//
SPACE=(CYL,(500,500)),
// UNIT=WORK
//SORTOUT DD DSN=DSN1.REORG.SORTOUT,
//
DISP=(NEW,CATLG,CATLG),
//
SPACE=(CYL,(500,500)),
// UNIT=WORK
//SYSREC DD DSN=DSN1.REORG.SYSREC,
//
DISP=(NEW,CATLG,CATLG),
//
SPACE=(CYL,(500,500)),
// UNIT=WORK
//SYSERR DD DSN=DSN1.REORG.SYSERR,
//
DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(50,10)),
// UNIT=WORK
/*
//STEP030 EXEC PGM=DSNUTILB,
//
REGION=8M,COND=(5,LT),
//
PARM=(DSN1,'REORG.DSNDB06') RESTART(PHASE)
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DSN1.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DSN1.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DSN1.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB06.SYSALTER
INCLUDE
TABLESPACE DSNDB06.SYSDDF
INCLUDE
TABLESPACE DSNDB06.SYSEBCDC
INCLUDE
TABLESPACE DSNDB06.SYSGPAUT
INCLUDE
TABLESPACE DSNDB06.SYSGRTNS
INCLUDE
TABLESPACE DSNDB06.SYSHIST
INCLUDE
TABLESPACE DSNDB06.SYSOBJ
INCLUDE
TABLESPACE DSNDB06.SYSPKAGE
INCLUDE
TABLESPACE DSNDB06.SYSSEQ
INCLUDE
TABLESPACE DSNDB06.SYSSEQ2
INCLUDE
TABLESPACE DSNDB06.SYSSTATS
INCLUDE
TABLESPACE DSNDB06.SYSSTR
INCLUDE
TABLESPACE DSNDB06.SYSUSER
INCLUDE
TABLESPACE DSNDB01.SCT02
INCLUDE
TABLESPACE DSNDB01.SPT01
//SYSTEMPL DD *
TEMPLATE UNLDSN
DSN('DSN1.REORG.&DB..&TS..D&DT..T&TI.')
DISP(NEW,DELETE,CATLG)
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTDATA
SORTDEVT WORK
SORTNUM 4
UNLDDN (UNLDSN)
UNLOAD
CONTINUE
WORKDDN
(SYSUT1,SORTOUT)
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//DBD01 EXEC PGM=DSNUTILB,
//
REGION=8M,COND=(5,LT),
//
PARM=(DSN1,'REORG.DBD01')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DSN1.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DSN1.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DSN1.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB01.DBD01
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTNUM 4
UNLOAD
CONTINUE
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//SYSDBASE EXEC PGM=DSNUTILB,
//
REGION=8M,COND=(5,LT),
//
PARM=(DSN1,'REORG.SYSDBASE')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DSN1.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DSN1.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DSN1.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB06.SYSDBASE
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTNUM 4
UNLOAD
CONTINUE
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//SYSDBAUT EXEC PGM=DSNUTILB,
//
REGION=8M,COND=(5,LT),
//
PARM=(DSN1,'REORG.SYSDBAUT')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DSN1.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DSN1.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DSN1.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB06.SYSDBAUT
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTNUM 4
UNLOAD
CONTINUE
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//SYSGROUP EXEC PGM=DSNUTILB,
//
REGION=8M,COND=(5,LT),
//
PARM=(DSN1,'REORG.SYSGROUP')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DSN1.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DSN1.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DSN1.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB06.SYSGROUP
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTNUM 4
UNLOAD
CONTINUE
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//SYSPLAN EXEC PGM=DSNUTILB,
//
REGION=8M,COND=(5,LT),
//
PARM=(DSN1,'REORG.SYSPLAN')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DSN1.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DSN1.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DSN1.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB06.SYSPLAN
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTNUM 4
UNLOAD
CONTINUE
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//SYSVIEWS EXEC PGM=DSNUTILB,
//
REGION=8M,COND=(5,LT),
//
PARM=(DSN1,'REORG.SYSVIEWS')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DSN1.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DSN1.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DSN1.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DSN1.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB06.SYSVIEWS
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTNUM 4
UNLOAD
CONTINUE
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//* UND ZU GUTER LETZT DIE SYSCOPY WEGEN IC
//SYSCOPY EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DB28,'REORG.SYSCOPY')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DB28.REORG.SYSUT1
//SORTOUT DD DISP=SHR,DSN=DB28.REORG.SORTOUT
//SYSREC DD DISP=SHR,DSN=DB28.REORG.SYSREC
//SYSERR DD DISP=SHR,DSN=DB28.REORG.SYSERR
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DSNDB06.SYSCOPY
//SYSTEMPL DD *
TEMPLATE UNLDSN
DSN('DB28.REORG.&DB..&TS..D&DT..T&TI.')
DISP(NEW,DELETE,CATLG)
TEMPLATE SYSCOPY
DSN('DB28.IC1.&DB..&TS..D&DT..T&TI.')
DISP(NEW,CATLG,DELETE)
//SYSIN DD *
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
REORG TABLESPACE LIST ROLIST
LOG NO
SORTDATA
SORTDEVT WORK
SORTNUM 4
UNLDDN (UNLDSN)
UNLOAD
CONTINUE
WORKDDN
(SYSUT1,SORTOUT)
REPAIR SET TABLESPACE DSNDB06.SYSCOPY NOCOPYPEND
COPY LIST ROLIST
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//DELETE EXEC PGM=IDCAMS,COND=(5,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DSN1.REORG.SYSUT1 NONVSAM
DELETE DSN1.REORG.SORTOUT NONVSAM
DELETE DSN1.REORG.SYSREC NONVSAM
DELETE DSN1.REORG.SYSERR NONVSAM
SET MAXCC = 0
/*
REORG Index :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP030 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'REORGIX.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
INDEX IXCreator.IXName%
//SYSTEMPL DD *
TEMPLATE SREC
UNIT(WORK)
DISP(NEW,CATLG,CATLG)
DSN(DSN1.REORG.&ST..SREC)
TEMPLATE SUT1
UNIT(WORK)
DISP(NEW,DELETE,CATLG)
DSN(DSN1.REORG.&ST..SUT1)
TEMPLATE SOUT
UNIT(WORK)
DISP(NEW,DELETE,CATLG)
DSN(DSN1.REORG.&ST..SOUT)
//SYSIN DD *
REORG INDEX LIST ROLIST
SHRLEVEL CHANGE
SORTDEVT WORK
WORKDDN (SUT1)
/*
//TERMUTIL EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-TERM UTIL(REORGIX.TS1)
END
/*
IMAGE COPY ALL :
//*
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP010 EXEC PGM=DSNUTILB,PARM=(DSN1,'ICOPY.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF ICLIST1
INCLUDE
TABLESPACE A*.*
INCLUDE
TABLESPACE B*.*
INCLUDE
TABLESPACE C*.*
INCLUDE
TABLESPACE D*.*
INCLUDE
TABLESPACE E*.*
INCLUDE
TABLESPACE F*.*
INCLUDE
TABLESPACE G*.*
INCLUDE
TABLESPACE H*.*
INCLUDE
TABLESPACE I*.*
INCLUDE
TABLESPACE J*.*
INCLUDE
TABLESPACE K*.*
INCLUDE
TABLESPACE L*.*
INCLUDE
TABLESPACE M*.*
INCLUDE
TABLESPACE N*.*
INCLUDE
TABLESPACE O*.*
INCLUDE
TABLESPACE P*.*
INCLUDE
TABLESPACE Q*.*
INCLUDE
TABLESPACE R*.*
INCLUDE
TABLESPACE S*.*
INCLUDE
TABLESPACE T*.*
INCLUDE
TABLESPACE U*.*
INCLUDE
TABLESPACE V*.*
INCLUDE
TABLESPACE W*.*
INCLUDE
TABLESPACE X*.*
INCLUDE
TABLESPACE Y*.*
INCLUDE
TABLESPACE Z*.*
-- EXCLUDE TABLESPACE
DSNDB01.%
LISTDEF ICLIST2
INCLUDE
TABLESPACE DSNDB06.SYSALTER
-- INCLUDE TABLESPACE
DSNDB06.SYSCOPY
INCLUDE
TABLESPACE DSNDB06.SYSDBASE
INCLUDE
TABLESPACE DSNDB06.SYSDBAUT
INCLUDE
TABLESPACE DSNDB06.SYSDDF
INCLUDE
TABLESPACE DSNDB06.SYSEBCDC
INCLUDE
TABLESPACE DSNDB06.SYSGPAUT
INCLUDE
TABLESPACE DSNDB06.SYSGROUP
INCLUDE
TABLESPACE DSNDB06.SYSGRTNS
INCLUDE
TABLESPACE DSNDB06.SYSHIST
INCLUDE
TABLESPACE DSNDB06.SYSJAUXA
INCLUDE
TABLESPACE DSNDB06.SYSJAUXB
INCLUDE
TABLESPACE DSNDB06.SYSJAVA
INCLUDE
TABLESPACE DSNDB06.SYSOBJ
INCLUDE
TABLESPACE DSNDB06.SYSPKAGE
INCLUDE
TABLESPACE DSNDB06.SYSPLAN
INCLUDE
TABLESPACE DSNDB06.SYSSEQ
INCLUDE
TABLESPACE DSNDB06.SYSSEQ2
INCLUDE
TABLESPACE DSNDB06.SYSSTATS
INCLUDE
TABLESPACE DSNDB06.SYSSTR
INCLUDE
TABLESPACE DSNDB06.SYSUSER
INCLUDE
TABLESPACE DSNDB06.SYSVIEWS
INCLUDE
TABLESPACE DSNDB01.DBD01
INCLUDE
TABLESPACE DSNDB01.SCT02
INCLUDE
TABLESPACE DSNDB01.SPT01
-- EXCLUDE TABLESPACE
DSNDB01.SYSLGRNX
-- EXCLUDE TABLESPACE
DSNDB01.SYSUTILX
EXCLUDE
TABLESPACE DSNDB06.SYSCOPY
//SYSTEMPL DD *
TEMPLATE COPY1
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
TEMPLATE COPY2
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
TEMPLATE COPYTAPE
DSN
('&SSID..IC1.&DB..&TS.(+1)')
DISP (NEW,CATLG,CATLG)
MODELDCB
YOUR.MODEL.PTYPGDG
EXPDT '99000'
VOLCNT
255
UNIT TAPE
STACK YES
GDGLIMIT (100)
//SYSIN DD *
--OPTIONS PREVIEW
COPY LIST ICLIST1
SHRLEVEL CHANGE
FULL YES
COPYDDN(COPY1 )
COPY LIST ICLIST2
SHRLEVEL CHANGE
FULL YES
COPYDDN(COPY2 )
/*
//STEP020 EXEC PGM=DSNUTILB,REGION=8M,PARM=(DSN1,'ICOPY.TS2')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
//SYSIN DD *
COPY TABLESPACE DSNDB01.SYSLGRNX
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//STEP030 EXEC PGM=DSNUTILB,REGION=8M,PARM=(DSN1,'ICOPY.TS3')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
//SYSIN DD *
COPY TABLESPACE DSNDB01.SYSUTILX
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//STEP040 EXEC PGM=DSNUTILB,REGION=8M,PARM=(DSN1,'ICOPY.TS4')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD *
TEMPLATE SYSCOPY
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
//SYSIN DD *
COPY TABLESPACE DSNDB06.SYSCOPY
SHRLEVEL CHANGE
FULL YES
COPYDDN(SYSCOPY)
/*
//TERMUTIL EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-TERM UTIL(ICOPY.TS1)
-TERM UTIL(ICOPY.TS2)
-TERM UTIL(ICOPY.TS3)
-TERM UTIL(ICOPY.TS4)
END
/*
RUNSTATS :
//STEP030 EXEC PGM=DSNUTILB,PARM=(DSN1,'RUNSTATS.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
-- OPTIONS PREVIEW
--
LISTDEF RSLIST
INCLUDE
TABLESPACE DB1%.TS1%
--
RUNSTATS TABLESPACE LIST RSLIST
TABLE ALL
INDEX (ALL)
SHRLEVEL CHANGE
UPDATE(ALL)
/*
//TERMUTIL EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-TERM UTIL(RUNSTATS.TS1)
END
/*
REPORT RECOVERY :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP010 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'REPORT.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF MODLIST INCLUDE TABLESPACE DBT%.TS%
//SYSIN DD *
REPORT RECOVERY TABLESPACE LIST MODLIST
/*
UNLOAD (DELIMITED) :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//SETRC0 EXEC PGM=IEFBR14
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DSN1.UNL1.DBT1.TS1A.UNLOAD NONVSAM
DELETE DSN1.UNL1.DBT1.TS1B.UNLOAD NONVSAM
DELETE DSN1.UNL1.DBT1.TS1A.PUNCH NONVSAM
DELETE DSN1.UNL1.DBT1.TS1B.PUNCH NONVSAM
/*
//UNLOAD EXEC PGM=DSNUTILB,REGION=0M,
//*
RESTART('PHASE'),
//
PARM=(DSN1,'UNLOAD.TS1','')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
LISTDEF UNLDLIST
INCLUDE
TABLESPACE DB1.TS1%
--
TEMPLATE UNLDSN DSN DSN1.UNL1.&DB..&TS..UNLOAD
-- UNIT WORK
DISP (NEW,CATLG,CATLG)
SPACE (5,10) CYL
--
TEMPLATE PUNCHDSN DSN DSN1.UNL1.&DB..&TS..PUNCH
-- UNIT WORK
DISP (NEW,CATLG,CATLG)
SPACE (1,1) TRK
--
--
UNLOAD LIST UNLDLIST
UNLDDN UNLDSN
PUNCHDDN PUNCHDSN
SHRLEVEL CHANGE
ISOLATION UR
EBCDIC
DELIMITED
COLDEL ';'
CHARDEL '"'
DECPT ','
/*
MODIFY RECOVERY :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP010 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'MODYFIRC.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF MODLIST INCLUDE TABLESPACE DB1%.TS1%*
//SYSIN DD *
MODIFY RECOVERY LIST MODLIST
DELETE DATE(*)
REPORT RECOVERY TABLESPACE LIST MODLIST
/*
MODIFY STATISTICS :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP010 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'MODSTATS.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF MODSTATS
INCLUDE
TABLESPACE DSNDB06.SYSALTER
INCLUDE
TABLESPACE DSNDB06.SYSCOPY
INCLUDE
TABLESPACE DSNDB06.SYSDBASE
INCLUDE
TABLESPACE DSNDB06.SYSDBAUT
INCLUDE
TABLESPACE DSNDB06.SYSDDF
INCLUDE
TABLESPACE DSNDB06.SYSEBCDC
INCLUDE
TABLESPACE DSNDB06.SYSGPAUT
INCLUDE
TABLESPACE DSNDB06.SYSGROUP
INCLUDE
TABLESPACE DSNDB06.SYSGRTNS
INCLUDE
TABLESPACE DSNDB06.SYSHIST
INCLUDE
TABLESPACE DSNDB06.SYSJAUXA
INCLUDE
TABLESPACE DSNDB06.SYSJAUXB
INCLUDE
TABLESPACE DSNDB06.SYSJAVA
INCLUDE
TABLESPACE DSNDB06.SYSOBJ
INCLUDE
TABLESPACE DSNDB06.SYSPKAGE
INCLUDE
TABLESPACE DSNDB06.SYSPLAN
INCLUDE
TABLESPACE DSNDB06.SYSSEQ
INCLUDE
TABLESPACE DSNDB06.SYSSEQ2
INCLUDE
TABLESPACE DSNDB06.SYSSTATS
INCLUDE
TABLESPACE DSNDB06.SYSSTR
INCLUDE
TABLESPACE DSNDB06.SYSUSER
INCLUDE
TABLESPACE DSNDB06.SYSVIEWS
INCLUDE
TABLESPACE DSNDB01.DBD01
INCLUDE
TABLESPACE DSNDB01.SCT02
INCLUDE
TABLESPACE DSNDB01.SPT01
INCLUDE
TABLESPACE DSNDB01.SYSLGRNX
//SYSIN DD *
--OPTIONS PREVIEW
MODIFY STATISTICS LIST MODSTATS
-- DELETE ACCESSPATH DATE(20000417)
DELETE ALL
AGE 10
/*
//TERMUTIL EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-TERM UTIL(MODSTATS.TS1)
END
/*
CHECK INDEX :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP010 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'CHECKIX.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF CHECKIDX
INCLUDE
INDEXSPACE DB1.XAS* ALL
//SYSTEMPL DD *
TEMPLATE SUT1
-- UNIT(WORK)
DISP(NEW,DELETE,CATLG)
DSN('DSN1.REORG.&DB..&TS..D&DT..T&TI.')
SPACE
(50,50) CYL
//SYSIN DD *
CHECK INDEX LIST CHECKIDX
WORKDDN (SUT1)
SORTDEVT WORK
SORTNUM 4
/*
COPYTOCOPY :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP010 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'CPYTOCPY.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF ICLIST1
INCLUDE
TABLESPACE DSNDB06.SYSALTER
--
INCLUDE
TABLESPACE DSNDB06.SYSDBASE
INCLUDE
TABLESPACE DSNDB06.SYSDBAUT
INCLUDE
TABLESPACE DSNDB06.SYSDDF
INCLUDE
TABLESPACE DSNDB06.SYSEBCDC
INCLUDE
TABLESPACE DSNDB06.SYSGPAUT
INCLUDE
TABLESPACE DSNDB06.SYSGROUP
INCLUDE
TABLESPACE DSNDB06.SYSGRTNS
INCLUDE
TABLESPACE DSNDB06.SYSHIST
INCLUDE
TABLESPACE DSNDB06.SYSJAUXA
INCLUDE
TABLESPACE DSNDB06.SYSJAUXB
INCLUDE
TABLESPACE DSNDB06.SYSJAVA
INCLUDE
TABLESPACE DSNDB06.SYSOBJ
INCLUDE
TABLESPACE DSNDB06.SYSPKAGE
INCLUDE
TABLESPACE DSNDB06.SYSPLAN
INCLUDE
TABLESPACE DSNDB06.SYSSEQ
INCLUDE
TABLESPACE DSNDB06.SYSSEQ2
INCLUDE
TABLESPACE DSNDB06.SYSSTATS
INCLUDE
TABLESPACE DSNDB06.SYSSTR
INCLUDE
TABLESPACE DSNDB06.SYSUSER
INCLUDE
TABLESPACE DSNDB06.SYSVIEWS
INCLUDE
TABLESPACE DSNDB01.DBD01
INCLUDE
TABLESPACE DSNDB01.SCT02
INCLUDE
TABLESPACE DSNDB01.SPT01
EXCLUDE
TABLESPACE DSNDB06.SYSCOPY
-- INCLUDE INDEXSPACES COPY
YES INDEXSPACE DSNDB06.*
//SYSTEMPL DD *
TEMPLATE COPY1
DSN('DSN1.IC1.&DB..&TS..D2010326.T105437')
TEMPLATE COPY2
DSN('DSN1.IC2.&DB..&TS..D2010326.T105437')
//SYSIN DD *
OPTIONS PREVIEW
OPTIONS OFF
COPYTOCOPY LIST ICLIST1
COPYDDN(COPY1,COPY2)
/*
RECOVER :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP030 EXEC PGM=DSNUTILB,REGION=8M,
//
PARM=(DSN1,'RECOVER.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF RECLIST
INCLUDE
TABLESPACE <YOURDB>.<YOURTS1>
INCLUDE
TABLESPACE <YOURDB>.<YOURTS2>
LISTDEF RBINDEX
INCLUDE INDEXSPACES
TABLESPACE <YOURDB>.<YOURTS1> ALL
INCLUDE INDEXSPACES
TABLESPACE <YOURDB>.<YOURTS2> ALL
//SYSIN DD *
RECOVER LIST RECLIST TOLOGPOINT
X'<YOUR LOGPOINT>'
REBUILD INDEX LIST RBINDEX
/*
Rebuild Index :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP030 EXEC PGM=DSNUTILB,REGION=8M,
//
PARM=(DSN1,'REBUILDI.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF RBINDEX
INCLUDE
INDEXSPACES TABLESPACE <YOURDB>.<YOURTS1> ALL
INCLUDE
INDEXSPACES TABLESPACE <YOURDB>.<YOURTS2> ALL
//SYSIN DD *
REBUILD INDEX LIST RBINDEX
/*
CHANGE PUNCH FILE
//CHANGE1 EXEC PGM=IKJEFT01,DYNAMNBR=20
//* Change 'RESUME YES' 'REPLACE NOCOPYPEND'
//* Instert parameter für RUN STATS
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
EDIT 'DSN1.<DB>.<TS>.UNLOAD.PUNCH' +
TEXT OLD NONUM NORECOVER ASIS
CHANGE * 4 /RESUME YES/REPLACE NOCOPYPEND/
TOP
DOWN 4
INSERT STATISTICS TABLE(ALL) INDEX(ALL) REPORT NO UPDATE
ALL
END SAVE
/*