IBM Crypto Education Community

IBM Crypto Education Community

IBM Crypto Education Community

Join the IBM Crypto Education community to explore and understand IBM cryptography technology. This community is operated and maintained by the IBM Crypto Development team.

 View Only

JCL Sample: Backup a Key Data Set

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

  

//SAVEKDS  JOB ,'EYSHA',MSGLEVEL=(1,1),REGION=0M,                               
//      MSGCLASS=H,CLASS=A,NOTIFY=&SYSUID                                       
//*------------------------------------------------------------------*          
//* BACKUP THE ACTIVE 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 DUMPDS UNIT, VOLUME AND SPACE FOR THE BACKUP        *          
//* - UPDATE THE DUMP DATASET INCLUDE WITH THE ORIGINAL KDS NAME     *          
//*                                                                  *          
//* - SUBMIT THIS JCL                                                *          
//*   (E.G. SUB 'HLQ.MLD.LLQ(SAVEKDS)')                              *          
//*------------------------------------------------------------------*          
//BACKUP   EXEC PGM=ADRDSSU                                                     
//SYSPRINT DD SYSOUT=*                                                          
//DUMPDS   DD DISP=(,CATLG),                                                    
//            DSN='EYSHA.ICSF.CSF77C1.CKDSR.D190426.BAK0001',                   
//            VOLUME=SER=CSFDR7,UNIT=3390,                                      
//            SPACE=(CYL,(10,10),RLSE)                                          
//SYSIN    DD *                                                                 
  DUMP DATASET(INCLUDE('EYSHA.ICSF.CSF77C1.CKDSR')) -                           
       ADMINISTRATOR OUTDDNAME(DUMPDS)                                          
/*                                                                              

 

0 comments
22 views

Permalink