IBM Crypto Education Community - Group home

JCL Sample: Restore a Key Data Set

By Eysha Shirrine Powers posted Wed March 25, 2020 05:30 PM

  

//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)                       
/*