IBM Crypto Education Community - Group home

JCL Sample: Print a Key Data Set

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

  

//PRINTKDS JOB ,'EYSHA',MSGLEVEL=(1,1),REGION=0M,                               
//      MSGCLASS=H,CLASS=A,NOTIFY=&SYSUID                                       
//*------------------------------------------------------------------*          
//* PRINT THE KDS TO A SEQUENTIAL DATA SET                           *          
//*------------------------------------------------------------------*          
//* INSTRUCTIONS:                                                    *          
//* - UPDATE THE JCL JOB CARD TO FIT YOUR ENVIRONMENT                *          
//* - UPDATE THE INPUT DSN WITH THE KDS NAME                         *          
//* - UPDATE THE OUTPUT DSN WITH THE OUTPUT DATA SET NAME            *          
//*                                                                  *          
//*     NOTE: AN EXAMPLE OUTPUT DATA SET NAMING SCHEME IS            *          
//*             <INPUTDATASETNAME>.READABLE                          *          
//*                                                                  *          
//* - UPDATE THE OUTPUT UNIT AND VOLUME FOR THE SEQUENTIAL DATA SET  *          
//* - UPDATE THE OUTPUT RECORD FORMAT, RECORD LENGTH AND BLOCK SIZE  *          
//* - UPDATE THE OUTPUT SPACE                                        *          
//*                                                                  *          
//* - SUBMIT THIS JCL                                                *          
//*   (E.G. SUB 'HLQ.MLD.LLQ(PRINTKDS)')                             *          
//*------------------------------------------------------------------*          
//REPRO   EXEC PGM=IDCAMS                                                       
//SYSPRINT DD SYSOUT=*                                                          
//INPUT    DD DSN=EYSHA.ICSF.D190426.RST0001,DISP=SHR                           
//OUTPUT   DD DSN=EYSHA.ICSF.D190426.RST0001.READABLE,DISP=(,CATLG),            
//            VOL=SER=CSFDR7,UNIT=3390,                                         
//            DCB=(RECFM=VB,LRECL=4100,BLKSIZE=25004),                          
//            SPACE=(TRK,(1,1))                                                 
//SYSIN    DD *                                                                 
  REPRO                        -                                                
       INFILE(INPUT)           -                                                
       OUTFILE(OUTPUT)                                                          
/*