zOs/JCL/QR78801P

//QR78801P JOB (PD00,KE50,,SP00000000),
//             'REORG-DB2',
//             MSGCLASS=T,
//             TIME=1440,
//             SCHENV=DP4G
//*MAIN CLASS=LOG
//********************************************************************
//*                         JCLPREP   11/05/2013   08:30:00   F965472
//********************************************************************
//*
//P00     EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DEL 'DSN.SYSPRINT.QR78801P' NVSAM PURGE
 DEL 'DP4G.DBAA.LISTDEF.QR78801P' NVSAM PURGE
 IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//* OBJEKTE AUS LISTDEF AUFLÖSEN
//P02     EXEC PGM=DSNUTILB,
//             PARM='DP4G,QR78801P.PREVIEW'
//STEPLIB  DD  DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD  DSN=DSN.SYSPRINT.QR78801P,
//             DISP=(,CATLG)
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD  DSN=DP4G.DBAA.LISTDEF(OPTPREV),DISP=SHR
//         DD  DSN=DP4G.DBAA.LISTDEF(QR788011),DISP=SHR
// ENDIF
//*
// IF RC < 9 THEN
//* SYSPRINT AUF SYSOUT UMKOPIEREN
//P03     EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSUT1    DD DSN=DSN.SYSPRINT.QR78801P,DISP=SHR
//SYSUT2    DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR TABLESPACES CHECKEN, OUTPUT ERSTELLEN
//P04     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSEXEC  DD  DSN=TSO.RZ4.P0.USER.EXEC,DISP=SHR
//DDIN1    DD  DSN=DSN.SYSPRINT.QR78801P,DISP=SHR
//DDIN2    DD  DSN=DP4G.DBAA.LISTDEF(QR788011),DISP=SHR
//DDOUT1   DD  DSN=DP4G.DBAA.LISTDEF.QR78801P,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=COM#E005,
//             RECFM=FB,LRECL=80
//SYSTSIN  DD  *
  %CHECKRTS DP4G TS
//SYSIN    DD  DUMMY
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD  SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR TABLESPACES AUSFÜHREN
//P05     EXEC PGM=DSNUTILB,
//             PARM='DP4G,QR78801P.REORG'
//STEPLIB  DD  DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD  DSN=DP4G.DBAA.LISTDEF.QR78801P,DISP=SHR
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR INDEXE CHECKEN, OUTPUT ERSTELLEN
//P06     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSEXEC  DD  DSN=TSO.RZ4.P0.USER.EXEC,DISP=SHR
//DDIN1    DD  DSN=DSN.SYSPRINT.QR78801P,DISP=SHR
//DDIN2    DD  DSN=DP4G.DBAA.LISTDEF(QR788011),DISP=SHR
//DDOUT1   DD  DSN=DP4G.DBAA.LISTDEF.QR78801P,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=COM#E005,
//             RECFM=FB,LRECL=80
//SYSTSIN  DD  *
  %CHECKRTS DP4G IX
//SYSIN    DD  DUMMY
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD  SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR INDEXE AUSFÜHREN
//P07     EXEC PGM=DSNUTILB,
//             PARM='DP4G,QR78801P.REORG'
//STEPLIB  DD  DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD  DSN=DP4G.DBAA.LISTDEF.QR78801P,DISP=SHR
// ENDIF
//*
// IF ((ABEND) OR (P05.RC GT 4) OR (P07.RC GT 4)) THEN
//* TERM UTIL
//P08     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=DP4G.DBAA.LCTL(QR788012),DISP=SHR
//* DISPLAY DATABASE
//*
//P09     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=DP4G.DBAA.LCTL(QR788013),DISP=SHR
// ENDIF