//TRNG111A JOB NOTIFY=TRNG111
//STEP1 EXEC PGM=IEFBR14
//*JCL PGM TO COPY A DS INTO NEW DATASET
//AAA DD DSN=TRNG111.TEST.ESDS5,DISP=(NEW,CATLG),SPACE=(TRK,(5,3)),
// RECORG=ES,LRECL=100
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(TRNG111.EMPL.DATA) OUTDATASET(TRNG111.TEST.ESDS5)
No comments:
Post a Comment