DB2 z/OS DB2 LUW
z/OS CICS VTAM

DB2 z/OS Info

Print A DATASET

//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//* PRINT A DATASET
//ST000001 EXEC PGM=DSN1COPY,PARM='PRINT'
//SYSUT1 DD DISP=OLD,DSN=DSN1CAT.DSNDBC.<DB>.<TS>.<I>0001.A001
//SYSUT2 DD DUMMY
//SYSPRINT DD SYSOUT=*
//*

RESET A DATASET

//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//ST000001 EXEC PGM=DSN1COPY, PARM='CHECK,RESET'
//SYSUT1 DD DISP=OLD,DSN=DSN1CAT.DSNDBC.<DB>.<TS>.<I>0001.A001
//SYSUT2 DD DUMMY
//SYSPRINT DD SYSOUT=*
//*

RESTORE A DATASET FROM FULL IMAGECOPY

//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//* STOP DATABASE(<YOURDB>) SPACENAM(<YOURTS>)
//STOPDB   EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-STOP DATABASE(<YOURDB>) SPACENAM(<YOURTS>)
END
/*
//DSN1CPY EXEC PGM=DSN1COPY,
//      PARM='FULLCOPY,OBIDXLAT,RESET'
//SYSUT1   DD DISP=SHR,DSN=DSN1.IC1.<YOURDB>.<YOURTS>.G1014V00
//SYSUT2   DD DISP=SHR,DSN=DSN1CAT.DSNDBC.<YOURDB>.<YOURTS>.I0001.A001
//SYSPRINT DD SYSOUT=*
//SYSXLAT DD *
271,271 DB=<YOURDB>
5,197    TS=<YOURTS>
6,202    TB=TBSOURCE/TBTARGET
100,200 TB=TBSOURCE/TBTARGET
/*
//* START DATABASE(<YOURDB>) SPACENAM(<YOURTS>) ACCESS(RW)
//STARTDB EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-START DATABASE(<YOURDB>) SPACENAM(<YOURTS>) ACCESS(RW)
END
/*
//RBINDEX 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
//SYSIN    DD *
REBUILD INDEX LIST RBINDEX
/*

Kleine Query um die ID's zu selektieren

SELECT T3.NAME AS DBNAME
   ,   T1.NAME AS TSNAME
   ,   STRIP(T2.CREATOR) !! '.' !! STRIP(T2.NAME) AS TABNAME
   ,   T3.DBID AS DBID
   ,   T1.PSID AS TSID
   ,   T2.OBID AS TBID
   ,   Hex(T3.DBID) AS DBID1
   ,   Hex(T1.PSID) AS TSID1
   ,   Hex(T2.OBID) AS TBID1
FROM SYSIBM.SYSTABLESPACE        T1
INNER JOIN SYSIBM.SYSTABLES      T2
ON    T1.DBNAME = T2.DBNAME
AND   T1.NAME    = T2.TSNAME
INNER JOIN SYSIBM.SYSDATABASE    T3
ON    T1.DBNAME = T3.NAME
where T2.NAME = '<TABLENAME>'
And    T2.Creator = '<CREATOR>'
ORDER BY DBNAME desc, TSNAME, TABNAME
;