zOs/JCL/KEM4000Q
//KEM4000P JOB (PD00,KE50,,SP00000000),'DB2',
// MSGCLASS=E,TIME=1440
//*MAIN CLASS=SUBP2
//*
//* REORG DISCARD FÜR TABLESPACE AUSFÜHREN
//*
//P05 EXEC PGM=DSNUTILB,
// PARM='DBOF,KEM4000P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE ARCHIVE DSN('TSS.SKA.PF22.KEM4000P.UNLOAD.W&DATE.')
DATACLAS (EYN0XP) MGMTCLAS(BAT#ZJ)
SPACE (4000,4000) CYL
TEMPLATE ARCHPUN DSN('TSS.SKA.PF22.KEM4000P.UNLOAD.P&DATE.')
DATACLAS (EYN0XP) MGMTCLAS(BAT#ZJ)
SPACE (1,10) CYL
COPY TABLESPACE KS09A1P.A841H
COPYDDN(TCOPYD)
SHRLEVEL REFERENCE
REORG TABLESPACE KS09A1P.A841H
LOG NO
SORTDATA NOSYSREC SORTKEYS
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
DRAIN_WAIT 0
RETRY 0
RETRY_DELAY 300
MAPPINGTABLE S100447.KEM4000P
MAXRO 300
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN(TSRECD)
WORKDDN(TSYUTD,TSOUTD)
STATISTICS
INDEX ALL
KEYCARD
REPORT NO
UPDATE ALL
HISTORY NONE
FORCEROLLUP NO
PUNCHDDN ARCHPUN
DISCARDDN ARCHIVE
DISCARD NOPAD FROM TABLE OA1P.TKS841H1 WHEN
(KS841001 < '2006-04-01-00.00.00.000000')
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK05 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK06 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK07 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK08 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK09 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK10 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK11 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK12 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK13 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK14 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK15 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK16 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK17 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK18 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK19 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK20 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK21 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK22 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK23 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK24 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//DATAWK01 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK02 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK03 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK04 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK05 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK06 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK07 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK08 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK09 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK10 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK11 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK12 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK13 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK14 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK15 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK16 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK17 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK18 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK19 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK20 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK21 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK22 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK23 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK24 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK25 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK26 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK27 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK28 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK29 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK30 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK31 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK32 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK33 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK34 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK35 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK36 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK37 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK38 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK39 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK40 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK41 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK42 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK43 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK44 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK45 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK46 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK47 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK48 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK49 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK50 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK51 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK52 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK53 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK54 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK55 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK56 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK57 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK58 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK59 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK60 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//*
// IF ((ABEND) OR (P05.RC GT 4) ) THEN
//*
//* TERM UTIL
//*
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-TERM UTIL(KEM4000P.*)
END
//*
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-DIS DB(KS09A1P) SP(A841H) LOCKS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) CLAIMERS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) USE LIMIT(*)
END
// ENDIF