zOs/JCL/DB2UNLRT
//A540769U JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769U.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TRECTS DSN('A540769.TMP.&SSID..RTSTABLE.REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE TPUNTS DSN('A540769.TMP.&SSID..RTSTABLE.PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
TEMPLATE TRECIX DSN('A540769.TMP.&SSID..RTSINDEX.REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE TPUNIX DSN('A540769.TMP.&SSID..RTSINDEX.PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
UNLOAD DATA
PUNCHDDN TPUNTS UNLDDN TRECTS
SHRLEVEL CHANGE ISOLATION UR
FROM TABLE SYSIBM.SYSTABLESPACESTATS
UNLOAD DATA
PUNCHDDN TPUNIX UNLDDN TRECIX
SHRLEVEL CHANGE ISOLATION UR
FROM TABLE SYSIBM.SYSINDEXSPACESTATS