Tuesday, 2 July 2013

ESDS- REPRO to COPY A DATASET INTO NEW DATASET




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