Recovery by using recommended JCL in an IMS managed ACB environment
- Provide the IMS Catalog user exit routine (DFS3CDX0) in the STEPLIB, JOBLIB or linklist library.
//*-----------------------------------------------------
//* RECOVERY IN MACB ENVIRONMENT
//*-----------------------------------------------------
//RECOVER EXEC PGM=RVPUMAIN,REGION=4096K
//STEPLIB DD DISP=SHR,DSN=BMC.xxx.LOAD IMS Catalog user exit
// DD DISP=SHR,DSN=IMS.RESLIB
//DFSRESLB DD DISP=SHR,DSN=IMS.RESLIB
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//RECON1 DD DSN=IMS.RECON1,DISP=SHR
//RECON2 DD DSN=IMS.RECON2,DISP=SHR
//RECON3 DD DSN=IMS.RECON3,DISP=SHR
//RVPSYSIN DD *
GLBL DBRC(Y) ICALLOC(Y) DSALLOC(Y) DBALLOC(Y) -
ICPREF(userpref) ICUNIT(DASD) ICSPACE(TRK,10,10) -
SORTWK(4,SYSDA,C,10,5) PCP(Y) PDX(BMC.RVPPDX)
REC DBD(DBD10O) DDN(DB10ODD1) DUMP(*) LOG(*) -
ACCUM(*) IC(*)
//* RECOVERY IN MACB ENVIRONMENT
//*-----------------------------------------------------
//RECOVER EXEC PGM=RVPUMAIN,REGION=4096K
//STEPLIB DD DISP=SHR,DSN=BMC.xxx.LOAD IMS Catalog user exit
// DD DISP=SHR,DSN=IMS.RESLIB
//DFSRESLB DD DISP=SHR,DSN=IMS.RESLIB
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//RECON1 DD DSN=IMS.RECON1,DISP=SHR
//RECON2 DD DSN=IMS.RECON2,DISP=SHR
//RECON3 DD DSN=IMS.RECON3,DISP=SHR
//RVPSYSIN DD *
GLBL DBRC(Y) ICALLOC(Y) DSALLOC(Y) DBALLOC(Y) -
ICPREF(userpref) ICUNIT(DASD) ICSPACE(TRK,10,10) -
SORTWK(4,SYSDA,C,10,5) PCP(Y) PDX(BMC.RVPPDX)
REC DBD(DBD10O) DDN(DB10ODD1) DUMP(*) LOG(*) -
ACCUM(*) IC(*)
- Provide a DFSDFxxx Procedure library member. The required member suffix for the PROCLIB is specified using the keyword PARM=’DFSDF=xxx’ on the job step’s EXEC statement and by including a //PROCLIB DD containing the matching parameter member.
//*-----------------------------------------------------
//* RECOVERY IN MACB ENVIRONMENT
//*-----------------------------------------------------
//RECOVER EXEC PGM=RVPUMAIN,REGION=4096K,PARM=’DFSDF=xxx’
//STEPLIB DD DISP=SHR,DSN=BMC.xxx.LOAD
// DD DISP=SHR,DSN=IMS.RESLIB
//DFSRESLB DD DISP=SHR,DSN=IMS.RESLIB
//PROCLIB DD DISP=SHR,DSN=IMS.PROCLIB
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//RECON1 DD DSN=IMS.RECON1,DISP=SHR
//RECON2 DD DSN=IMS.RECON2,DISP=SHR
//RECON3 DD DSN=IMS.RECON3,DISP=SHR
//RVPSYSIN DD *
GLBL DBRC(Y) ICALLOC(Y) DSALLOC(Y) DBALLOC(Y) -
ICPREF(userpref) ICUNIT(DASD) ICSPACE(TRK,10,10) -
SORTWK(4,SYSDA,C,10,5) PCP(Y) PDX(BMC.RVPPDX)
REC DBD(DBD10O) DDN(DB10ODD1) DUMP(*) LOG(*) -
ACCUM(*) IC(*)
//* RECOVERY IN MACB ENVIRONMENT
//*-----------------------------------------------------
//RECOVER EXEC PGM=RVPUMAIN,REGION=4096K,PARM=’DFSDF=xxx’
//STEPLIB DD DISP=SHR,DSN=BMC.xxx.LOAD
// DD DISP=SHR,DSN=IMS.RESLIB
//DFSRESLB DD DISP=SHR,DSN=IMS.RESLIB
//PROCLIB DD DISP=SHR,DSN=IMS.PROCLIB
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//RECON1 DD DSN=IMS.RECON1,DISP=SHR
//RECON2 DD DSN=IMS.RECON2,DISP=SHR
//RECON3 DD DSN=IMS.RECON3,DISP=SHR
//RVPSYSIN DD *
GLBL DBRC(Y) ICALLOC(Y) DSALLOC(Y) DBALLOC(Y) -
ICPREF(userpref) ICUNIT(DASD) ICSPACE(TRK,10,10) -
SORTWK(4,SYSDA,C,10,5) PCP(Y) PDX(BMC.RVPPDX)
REC DBD(DBD10O) DDN(DB10ODD1) DUMP(*) LOG(*) -
ACCUM(*) IC(*)
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*