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
/*