Tuesday, 17 April 2012

REPRO


//REPRO1 JOB 1
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SOURCE DD DSN=KC03H0E.Y.X(M1),
// DISP=OLD
//TARGET DD DSN=KC03H0E.Y.X(M2),
// DISP=OLD
//SYSIN DD *
  REPRO -
  INFILE(SOURCE) -
  OUTFILE(TARGET)
/*

No comments:

Post a Comment