Example 6: Extracting nonpartitioned index keys
JCL recovering a partitioned table space and partitioned index and unloading keys for a nonpartitioned index
//AFREX06 JOB (0000),'EXAMPLE 6',
// CLASS=Q,NOTIFY=&SYSUID,
// MSGCLASS=X
//*
//RECOVER EXEC PGM=AFRMAIN,REGION=0M,
// PARM='DEJM,EXAMPLE6,NEW/RESTART,MSGLEVEL(2)'
//STEPLIB DD DISP=SHR,DSN=product.libraries
// DD DISP=SHR,DSN=DB2.DSNEXIT
// DD DISP=SHR,DSN=DB2.DSNLOAD
//SKEY DD DSN=RDASTC.BMCDBJ.PARTS12.SUNKEY1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(SYS1.MODEL)
//SYSIN DD *
RECOVER TABLESPACE BMCDBJ.BMCTSJ DSNUM 01
TABLESPACE BMCDBJ.BMCTSJ DSNUM 02 LOGSORT
REBUILD INDEX (RDASTC.BMCIXJ1) PART 01
REBUILD INDEX (RDASTC.BMCIXJ1) PART 02
RECOVER UNLOADKEYS (RDASTC.BMCIXJ2) PART 01
RECOVER UNLOADKEYS (RDASTC.BMCIXJ2) PART 02
/*
//
// CLASS=Q,NOTIFY=&SYSUID,
// MSGCLASS=X
//*
//RECOVER EXEC PGM=AFRMAIN,REGION=0M,
// PARM='DEJM,EXAMPLE6,NEW/RESTART,MSGLEVEL(2)'
//STEPLIB DD DISP=SHR,DSN=product.libraries
// DD DISP=SHR,DSN=DB2.DSNEXIT
// DD DISP=SHR,DSN=DB2.DSNLOAD
//SKEY DD DSN=RDASTC.BMCDBJ.PARTS12.SUNKEY1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(SYS1.MODEL)
//SYSIN DD *
RECOVER TABLESPACE BMCDBJ.BMCTSJ DSNUM 01
TABLESPACE BMCDBJ.BMCTSJ DSNUM 02 LOGSORT
REBUILD INDEX (RDASTC.BMCIXJ1) PART 01
REBUILD INDEX (RDASTC.BMCIXJ1) PART 02
RECOVER UNLOADKEYS (RDASTC.BMCIXJ2) PART 01
RECOVER UNLOADKEYS (RDASTC.BMCIXJ2) PART 02
/*
//
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*