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