//RECOVKDS JOB ,'EYSHA',MSGLEVEL=(1,1),REGION=0M,
// MSGCLASS=H,CLASS=A,NOTIFY=&SYSUID
//*------------------------------------------------------------------*
//* RESTORE A DUMPED KEY DATA SET *
//*------------------------------------------------------------------*
//* INSTRUCTIONS: *
//* - UPDATE THE JCL JOB CARD TO FIT YOUR ENVIRONMENT *
//* - UPDATE THE DUMPDS DSN WITH THE BACKUP KDS NAME *
//* *
//* NOTE: AN EXAMPLE BACKUP KDS NAMING SCHEME IS *
//* <ORIGINALNAME>.D<YYMMDD>.BAK<SEQNO> *
//* *
//* - UPDATE THE RENAME UNCONDITIONAL SUFFIX FOR THE RESTORED KDS *
//* *
//* NOTE: AN EXAMPLE RESTORED KDS NAMING SCHEME IS *
//* **.D<YYMMDD>.RST<SEQNO> *
//* *
//* - UPDATE THE DUMPDS UNIT AND VOLUME FOR THE BACKUP DATA SET *
//* - UPDATE THE RESTORE DATASET INCLUDE WITH THE ORIGINAL KDS NAME *
//* - UPDATE THE RESTORED KDS OUTDYNAM VOLUME *
//* *
//* - SUBMIT THIS JCL *
//* (E.G. SUB 'HLQ.MLD.LLQ(RECOVKDS)') *
//*------------------------------------------------------------------*
//RESTORE EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//DUMPDS DD DISP=OLD,
// DSN='EYSHA.ICSF.CSF77C1.CKDSR.D190426.BAK0001',
// VOLUME=SER=CSFDR7,UNIT=3390
//SYSIN DD *
RESTORE DATASET(INCLUDE('EYSHA.ICSF.CSF77C1.CKDSR')) -
ADMINISTRATOR INDDNAME(DUMPDS) CATALOG -
RENAMEU(**,**.D190426.RST0001) OUTDYNAM(CSFDR7)
/*